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PREFACE 



This manual consists of four sections: 

• General Information. 

• Sequential Access DASD Files. 

• Direct Access DASD Files. 

• Detailed Flowcharts. 

The first section supplies general 
information pertinent to both sequential 
access DASD files and direct access DASD 
files, including LIOCS extensions for 
Asynchronous Processing , DASD label 
processing, and common logical transient 
phases. 

The second section supplies descriptions 
of the declarative macros and DTF tables, 
descriptions of the imperative macros, and 
the initialization and termination 
procedures for sequential access DASD 
files. 

The third section supplies information 
about direct access DASD files f including 
descriptions of the declarative macros and 
DTF tables, discussion of the referencing 
methods and addressing systems, 
descriptions of the imperative macros, and 
initialization and termination procedures. 

The fourth section contains the detailed 
flowcharts of the first three sections. 
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INTRODUCTION 



This volume of DOS LIOCS Program Logic 
Manual provides detailed information on the 
logical IOCS support of DASD (Direct Access 
Storage Device) files processed by the 
Sequential Access Method, and by the Direct 
Access Method. It is intended for use by 
trained maintenance personnel experienced 
in the use of the Logical Input/Output 
Control System (LIOCS) for file processing. 

Beyond brief introductory descriptions 
of the two DASD file processing methods 
covered, this volume does not contain 
information of a general nature. If the 
reader requires basic knowledge or a review 
of the general concept and function of 
Logical IOCS, he should refer to Volume 1 
°f DOS LIOCS listed on the front cover of 
this volume. 

This volume contains information on all 
the logical IOCS items (modules, DTF 
tables, imperative macros, declarative 
macros, open and close routines, etc.) 
required for the two processing methods. 
The only exceptions are certain common and 
special purpose routines that cannot be 
related to any specific file. These 
routines, namely the open and close 
monitors, the open routines for 
self -relocating programs, and the 
Checkpoint/Restart routines are described 
in detail in Volume 1. 

The first section of this volume 
contains general information which is 
pertinent to both sequential access DASD 
files and direct access DASD files. This 
information includes: 

• LIOCS extensions for Asynchronous 
Processing. 

• DASD label processing. 

• Logical transient phases that provide 
special functions. 

The next section supplies detailed 
information on sequential access DASD 
files. The information includes: 

• Descriptions of record formats and, main 
storage areas. 



• Descriptions of the declarative macros 
DTFSD, DTFPH, and SDMODxx, and DTF 
tables. 



• Discussions of imperative LIOCS macros 
(GET, PUT, READ, etc.) used with 
sequential DASD files. 

• Open and close logical transients. 

The third section supplies detailed 
information concerning LIOCS support of 
direct access files. The information 
includes: 

• Descriptions of the declarative macros 
DTFDA, DTFPH, and DAMOD. 

• Discussion of the referencing methods 
and addressing systems used by the 
Direct Access Method. 

• Discussion of imperative LIOCS macros 
(READ, WRITE, WAITF, etc.) used with 
direct access files. 

• Description of direct access channel 
program builder routine. 

• Open and close logical transients. 

The last section contains the detailed 
flowcharts of the imperative logical IOCS 
macros supported by the data handling logic 
modules discussed in this manual. It also 
contains flowcharts of the logical 
transient routines required for Open, 
Close, and other special functions. The 
logic supporting each of the imperative 
macros has been flowcharted from macro 
language (source statement) listings. In 
some instances, these charts contain 
decision blocks to illustrate the logic 
(i.e., coding) generated for certain module 
generation macro parameter options. These 
decisions do not appear in an assembly 
listing, but they do determine the contents 
of a particular module at module generation 
time. If an assembly listing is not 
available for a specific logic module, a 
listing of the source statements used to 
generate the module can be obtained from 
microfiche cards (Appendix D) . 
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GENERAL INFORMATION 



This section includes general information 
that is applicable to both sequential 
access DASD files and direct access DASD 
files. The areas covered include the LIOCS 
extensions for the Asynchronous Processing 
function , DASD label processing , and 
several logical transients that provide 
special functions. 



ASYNCHRONOUS PROCESSING EXTENSIONS 



The RDONLY (read-only) parameter assures 
that the generated logic module is never 
modified , regardless of the processing 
requirements of any file(s) using the 
module. The reentrant feature is 
implemented through the establishment of 
unique save areas, one for each DTF using 
the module. Each save area must be 72 
bytes long and aligned on a doubleword 
boundary. A task must provide the address 
of the save area associated with the DTF in 
register 13 before issuing an imperative 
macro and entering the logic module. 



Asynchronous Processing extensions for 
Logical IOCS consist of six functions: 

© OPEN/IGN 

• Sequential Disk End-of-Extent 

• Relative Addressing 

• Trailer Label Processing 

• Reentrant Modules 

• Track Hold 

The OPEN/IGN function and Sequential Disk 
End- of -Extent function are American 
National Standard COBOL requirements, and 
are provided mainly for American National 
Standard COBOL use. These functions are 
documented within this manual, but are not 
covered in the general discussion. 

The Relative Addressing and Trailer 
Label Processing functions apply only to 
direct access files. Discussion and 
documentation of these functions are found 
in the section. Direct Access Files . 

Reentrant Modules and Track hold 
functions apply to both sequential access 
DASD files and direct access files. A 
general discussion of both functions is 
included in the following text. 



REENTRANT MODULES 



A reentrant module is a logic module that 
can be asynchronously used, or shared, by 
more than one file. A module is made 
reentrant by including the parameter 
RDONLY=YES in the operand of the module 
generation macro (SDMODxx or DAMOD macro 
instruction) , and the DTFSD/DTFDA macro. 



TRACK HOLD FUNCTION 



The track hold function provides DASD track 
protection when the parameter HOLD=YES is 
specified in the operand of the module 
generation macro (SDMODxx/DAMOD) and the 
DTFSD/DTFDA macro. If a task has 
previously accessed a DASD track and is 
currently modifying a record from that 
track, DASD track protection prevents 
another task in main storage from accessing 
that track. The task attempting to access 
the held track is put in the wait state 
until the track has been released- For 
direct access, the problem program must 
issue the FREE macro to release a track 
held on READ operation. The module 
automatically holds and releases all tracks 
for WRITE operations. For sequential DASD, 
the problem program releases the track by 
issuing the FREE macro, if work files have 
been specified with the UPDATE=YES 
parameter included, and if the record is 
not updated. If the record is updated, the 
module automatically releases the track 
when the record is written. 

For fixed- length, undefined-length and 
blocked variable-length SD (Sequential 
DASD) files, the next GET macro that 
actually causes an I/O operation releases 
the track. 

Exception : If blocked variable-length 
records are specified and a PUT macro is 
issued for the last record in a block, the 
PUT macro releases the track. The PUT 
macro also releases the track if unblocked 
variable-length records are specified. 

The track hold function is applicable to 
three situations: 

1. Sequential DASD update files (data). 
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2. Sequential DASD work files with the 
UPDATE=YES parameter specified. 

3. Direct access files. 

For more information concerning the 
track hold function, refer to DOS 
Supervisor and I/O Macros , listed in the 
Preface, 



DASD LABEL PROCESSING 



Before a DASD file can be processed by 
logical IOCS, the file must be opened to 
permit transfer of data. The function of 
the open routines is to check the DASD 
labels identifying the file. This is 
accomplished by comparing the information 
from the actual file labels in the Volume 
Table of Contents (VTOC) , with the label 
information in the SYSRES label information 
cylinder. Figure 1 illustrates the format 
of the VTOC. Job control stores label 
information, supplied by the user in job 
control cards, in the SYSRES label 
information cylinder. 

Figure 2 illustrates the format of this 
stored information as it appears in both 
the label information cylinder and main 
storage . 



Note : To simplify creation of DASD files 
and label processing, Version 3 makes it 
possible for the user to identify a 
particular file through the use of two job 
control statements, // DLBL and // EXTENT, 
(instead of the three statements, // VOL, 
// DLAB, and // XTENT required by previous 
versions). The user, however, is not 
obligated to change any job control 
statements already in use because job 
control handles both forms. Further 
references made in this manual to the new 
// DLBL and // EXTENT job control statement 
also apply to the // VOL, // DLAB, and 
// XTENT statements 



The standard DASD labels processed by DOS 
logical IOCS are discussed and illustrated 
in Appendix G. A more complete discussion 
of DASD labels is contained in Volume 1. 
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Field 



10. 



11. 



Name 



DLBL-EXTENT 



Filename 
DA/IS Switch 



File ID 



5. 


Format ID 


6. 


File Serial No. 


7. 


Volume Seq. No 


8. 


Creation Date 


9. 


Expiration Date 



Reserved 



Open Code 



Description 



SD 



Bit 0: 1 = Next extent on a new pack. 

Bit 1 : 1 = Last extent. 

Bit 2: 1 = Bypass extent. 

Bit 3: 1 '= New volume on same unit. 

Bit 4: 1 = Extent limits omitted. 

Bit 5: 1 = Extent converted to DASD 

address. 
Bit 6: 1 = No EXTENT/XTENT card. 
Bit 7: 1 = Unused. 
DA or ISFMS 

Number of extents. 



Bits 0-3: Unused. 

Bit 4: 1 = Extent limits omitted. 

Bit 5: 1 = Extent converted to DASD 

address. 
Bit 6 & 7: Unused. 

File identifier including generation 
and version numbers. If field is 
missing on DLBL card, Filename 
padded with blanks is inserted. 

Numeric 1 is inserted. 

Volume serial number from first extent. 

Always initialized to X'0001 ' . 

Initialized with 3 bytes of X'00'. 

If date is in the form YYDDD, it is 
converted to YDD. If date is in re- 
tention period form, 1 to 4 characters, 
the field is padded with binary zeros. 

The retention period, if specified is 
converted to a 2-byte number and 
inserted in this field. 

DLBL type: 

S = Sequential 

D= Direct Access 

C or E = Indexed sequential 

File Management System where: 

C = Load create function 

E = Load extend function 



Field 



Name 



12. System Code 



13. 

14. 



Volume Serial No. 
Extent Type 



15. Extent Seq. No. 



16. 
& 
17. 



Extent Lower 
and Upper 
Limits 



Logical (Symbolic) 
Unit Address 



19. 



2321 Lower Cell 
2321 Upper Cell 



Note: 



For Sequential Disk files, a complete 104-byte block is repeated for each new EXTENT. 
For Direct Access and ISFMS files, only fields 13 through 18 are repeated for each EXTENT. 



Description 

Initialized to contain DOS/360 VER 3. 
This field is not processed by DOS. 

Volume serial number for extent. 



Same 
X'00' 



X'01 1 



X'02' 
X'04' 

X'40' 
X'8n' 



codes as in Format - 1 label: 

= Next three fields do not indicate 

any extent. 
= Prime data area (ISFMS) or 

consecutive area, etc., (that is the 

extent containing the user's data 

records). 
= Overflow area of an ISFMS file. 
= Cylinder index or master index of an 

ISFMS file. 
= User label track area. 
= Shared cylinder indicator, where 

n = 1 , 2, or 4. 



Number of extent as determined by the extent 
card sequence. 

Before the OPEN, DLBL/EXTENT 

information is in the relative track form of 

HHNNT followed by three bytes of binary 

zeros. 

HH = Relative (to 0) start address in tracks. 

NN = Number of tracks. 

T = or upper track number for split 
cylinder in SD files. 
Following an OPEN on DLBL/EXTENT cards, 
or whenever DLAB/XTENT cards are used, 
the extent lower and upper limits are each 
in the CCHH format. 

This 2-byte field identifies the logical unit 

with the same code as that used in a CCB. 

The first byte identifies the unit class: 

X'00' = System Logical Unit 

X'01' = Programmer Logical Unit 

The second byte identifies the logical unit 

within its class. 

Thus X'0003' denotes SYSLST and X'01 03' 
denotes SYS003. 

2321 extent lower and upper cell 
limit. This 2-byte field contains 
zeros for 2311/2314/2319 disk. 



Figure 2. SYSRES DASD Label Information 
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COMMONLY USED LOGICAL TRANS IENTS 



The logical transients included in this 
section of the manual are those that 
pertain to both sequential access DASD 
files and direct access DASD files. 



SSBOFLPT; DASD File-Protect Charts AA-AD 



The $$BOFLPT phase begins by determining a 
number of factors: 

• The number of extents to be processed - 

• The addresses of the DLBL-EXTENT card 
image, FAVP (the pointer to the first 
available JIB) , and the JIB table, 

• The file type, 

• The device type. 



Objective ; To place the upper and lower 
extent limits into Job Information Blocks 
(JIBs) to provide file protection for DASD 
files. 



Entry : 

• From phases $$B0SDI2, $$B0SDW2, 
$$BOSD04, $$B0SD05 r or $$B0SD06 for 
sequential DASD files. 

• From phases $$BODAIN or $$B0DA04 for 
direct access files. 

• From phase $$BOIS07 for indexed 
sequential files (refer to Volume 4). 



Exits : 



When these factors are known, the phase 
determines the address of the LUB entry for 
the logical unit used by the file. The 
contents of the LUB are then loaded into a 
pair of registers, LUBADRLL (lower limit) 
and LUBADRUL (upper limit) , that are used 
to insert the extent information into 
extent type JIBs. 



The second byte of the LUB contains a 
pointer to the first JIB in the chain for 
the LUB (if the byte does not contain hex 
*FF', indicating that no JIBs are chained 
to the LUB) . This pointer calculates the 
address of the JIB. The JIB, in turn, 
contains a similar pointer that calculates 
the address of the next JIB in the chain. 
A pointer of hex ■ FF" indicates the end of 
the chain. 



• To the open monitor, $$BOPEN f if more 
files are to be opened and a specific 
phase name is not supplied. 

• To phase $$BOQO01 (not documented in 
this PLM) if the file is a QTAM file. 

• To the problem program if a specific 
phase name is not supplied and no more 
files remain to be opened. 

• To the transient phase specified by the 
calling phase. 



Method: The $$BOFLPT phase provides file 
protection for DASD files by storing extent 
limit information in the JIB table. For 
the IBM 2311 Disk Storage Drive, the IBM 
2314 Direct Access Storage Facility, and 
the IBM 2319 Disk Storage Facility, the 
lower and upper cylinder limits are stored 
in a single JIB. For the IBM 2321 Data 
Cell Drive, subcell and strip information 
is stored in two chained JIBs, the first 
containing the lower extent limit, and the 
second containing the upper extent limit. 
The extent JIBs are chained to the Logical 
Unit Block (LUB) entry to which the device 
is assigned. Further information 
pertaining to the JIBs and LUBs is found in 
DOS Supervisor and Related Transients 
listed in the front of this manual. 



If extents for the file remain to be 
processed and one of the following 
conditions is reached, phase $$BOFLPT 
obtains and builds a new JIB entry: 

• No JIBs are chained to the LUB. 

• No extent type JIBs remain in the 
chain. 

• The end of the JIB chain is reached and 
more JIBs are required. 

The address of the new JIB (or the first 
new JIB, in the case of a 2321) is 
calculated by using the pointer to the 
first unused JIB in the JIBs available 
chain, found in location FAVP in the 
supervisor. As in the case of JIBs chained 
to the LUB, this new JIB contains a pointer 
to the next available JIB that will be used 
if needed. 

After the extent information is stored 
in the JIB(s), the pointers are modified 
(as required), to complete the chain and 
the registers are restored. From 
information passed by the calling phase, 
$$BOFLPT determines the next action 
required and issues either an SVC 2 to 
fetch the proper transient phase, or an SVC 
11 to return to the problem program. 
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SSBODSPV: VTOC Display, Phase 1 Chart AE $$BODSPW: VTOC Display, Phase 2 Charts 

AF-AH 



Objective : To determine the logical unit 
(SYSLOG or SYSLST) on which the operator 
wants the VTOC displayed, and to print an 
error message if SYSLST is the unit 
selected but not assigned to a printer. 



Objective : To display, on either SYSLST or 
SYSLOG, the Volume Table of Contents for 
the volume (pack or cell) currently being 
opened. 



Entry : From the first phase of VTOC 
display, $$BODSPV. 



Entry : From phases $$BOSD07 or $$BOMSG2 
when the operator's response is DSPLYV. 



Exit : 

• To the second phase of VTOC display, 
$$BODSPW. 

• To job control via an SVC 11 if the 
operator's response to message 4V95A is 
EOB or CANCEL and the open was for job 
control. 

• To phase $$BCNCL via an SVC 6 to cancel 
the job if the operator's response to 
message 4V96A is EOB or CANCEL and the 
open was not for job control. 



Method : The first phase of VTOC display 
issues a message on SYSLOG to determine 
whether the operator wants the VTOC 
displayed on SYSLOG or on SYSLST. If the 
operator's reply is SYSLST, a check is made 
to ensure that SYSLST is a printer. If 
SYSLST is not a printer, error message 
4V96A is issued. If the VTOC is to be 
displayed on SYSLST, preparation is made to 
start the display on a new page. Phase 
$$BODSPV then fetches phase 2 of VTOC 
display, $$BODSPW. 



| Exit : To $$B0SD07 r $$B0MSG1, or $$BODSMW. 



Method: 



The volume label on the current 



volume (pack or cell) being opened is read 
to retrieve the pointer (CCHHR address) to 
the VTOC and the volume serial number. A 
header line is printed to indicate the date 
and identify the volume by the volume 
serial number. Next, the first label in 
the VTOC (Format H label) is read to 
determine the limits of the VTOC, and the 
CCW chain is initialized to read the file 
labels (Format 1) contained in the VTOC. 

The file label for each file on the 
volume (pack or cell) is displayed by 
printing the contents of the label. The 
first line printed for each Format 1 label 
contains the first 59 bytes of the label 
and includes: 

• Filename 

• Format identifier 

• File serial number 

• Volume sequence number 

• Creation date 

• Expiration date 



DSPLYV DISPLAY 

VOLUME SERIAL NO. IS 111111 



FILEA 

0100 00330000-006E0009- 



SYSTEM WORK FILE NO. 1 
0100 00970000-009D0009 



-Extents 



Serial No. Volume No. 

11/04/66 
1111111 0001 420043-420043- 



ui iw. voiun 

\ / 



- Creation & Expiration Dates 



1111111 0001 42006E-63016D 



2311 DTFPH-SEQUENTIAL OPEN 'NO' USER LABELS .1111111 0001 41014D-42012C 
0100 OOAFOOOO-OOAF0002 0101 00AF0003-00AF0003 0102 00AF0004-00AF0004 



VTOC LISTING COMPLETED 



Figure 3. VTOC Display (DSPLYV Response) 
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Succeeding lines printed for a Format 1 
label contain extent information. Each 
line contains a maximum of three extents. 
(If more than three extents are specified 
for the file, the additional extents are 
contained in a Format 3 label.) When all 
extents for a file have been printed, phase 
$$BODSPW initializes to process the next 
Format 1 label in the same manner. 



volume (pack or cell) being opened. A 
header line is then printed on SYSLST to 
indicate the date and identify the volume 
with the volume serial number. If SYSLST 
is not assigned to a printer, the VTOC Dump 
is ignored. 



When all Format 1 labels in the VTOC 
have been processed, message 4V09I is 
issued and the job is cancelled. Figure 3 
is a sample of the VTOC display printed by 
this phase. 



| $$BOVDMP: VTOC Dump Charts AJ-AK 



Objective ; To provide a list of all the 
labels in the Volume Table of Contents 
(VTOC) , for the volume (pack or cell) being 
opened. 

Entry : From phase 2 of the Disk Open 
Message Writer, $$B0MSG2, or $$BOSD07, when 
the operator's response is CANCELV, or from 
the problem program. 

Exits ; To phase $$BCNCL via an SVC 6 to 
cancel the job if $$BOVDMP is entered from 
the message writer phase $$B0MSG2, or to 
the problem program, or to $$B0WDMP to 
continue CANCELV. 

Method : Phase $$BOVDMP reads the VOL 1 
label to retrieve the volume serial number 
and the CCHHR address of the VTOC for the 



$$BOWDMP: List VTOC Charts AL-AM 



Objective : To provide a listing of all the 
labels in the VTOC. 



Entry : From phase 1 of the VTOC dump, 
$$BOVDMP. 



Exits: If no record is found, exit is to 
the disk message writer, $$B0MSG1. 
Otherwise, control returns to job control 
or to the user's program. 



Method : All the VTOC labels for unsecured 
files (except blank labels) and for the 
file being accessed (whether secured or 
unsecured) are listed. Any other secured 
files are not listed. A maximum of five 
extents are printed on a line. When all 
labels have been printed, an EOJ message is 
printed, and control returns to the user or 
to job control. 

Figure 4 is a sample of the VTOC Dump 
printed by this phase. 
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CANCELV DISPLAY 

VOLUME SERIAL NUMBER IS 111111 



00C7000001 



FORMAT 4 LABEL 



04040404 04040404 04040404 04040404 04040404 04040404 04040404 04040404 0404040^ 04040404 04040404 F4000000 
0000009E 00000000 001E9001 OOOOOOCB 000A0E29 51141401 0219100A 00000000 00000000 00000000 00000000 00000000 
00000000 00000000 00010000 C7000000 C7000400 00000000 00000000 00000000 00000000 ' 00000000 00000000 



O0C70O0002 



FORMAT 5 LABEL 



05050505 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 F5000000 
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 



00C7OO00O3 



FORMAT 1 LABEL 



FILEA 

0000000000 0000400000 

0100 00330000-006E0009 



SERIAL NO. 111111 VOL NO. 0001 420043-420043 010000 SYS. CODE IS 16 K DISK BOS 
0000000000 0000000000 0000000000 0000000000 
0000 00000000-00000000 0000 00000000-00000000 POINTER IS 0000000000 



00C7000004 



FORMAT 1 LABEL 



SYSTEM WORK FILE NO. 1 SERIAL NO. 111111 VOL NO. 0001 42006E-63016D 010000 SYS. CODE IS DOS 

0000000000 0000400000 0000000000 0000008000 0000000000 0000000000 

0100 00970000-009D0009 0000 00000000-00000000 0000 00000000-00000000 POINTER IS 0000000000 



00C7000005 



FORMAT 1 LABEL 



2311 DTFPH-SEQUENTIAL OPEN 'NO' USER LABELS. SERIAL NO. 111111 VOL NO. 0001 41014D-41012C 030000 SYS. CODE IS 

0000000000 0000400000 0000000000 0000000000 0000000000 0000000000 

0100 OOAFOOOO-O0AF0OO2 0101 OOAF0003-OOAF0003 0102 00AF0004-00AF0004 POINTER IS 

VTOC LISTING COMPLETED 



** SIMON IK 



0000000000 



Figure 4. VTOC Dump (CANCELV Response) 



$$B0MSG1 Disk Open Error Message Writer, 
I Phase 1 Charts AN-AP 



initialized. $$BO is assumed for the 
first four characters of the phase 
name. 



Objective : To initialize the message 
output area, SYSLOG CCB and CCWs, and to 
fetch phase 2 of the message writer, 
$$BOMSG2. 

Entry : 

• From the disk VTOC display phase, 
$$BODSPW. 

• From a DASD open or close phase. 

• From the DTFCP open phases, $$BOCP01 r 
$$BOCP02, $$BOCPll or $$BOCP12. 

Exit : Phase 2 of the open error message 
writer, $$BOMSG2. 

Method: The calling phase supplies the 
following information to the message 
writer: 



• Register 2 contains the address of the 
DTF table for the current file. 

• Register 3 contains the message code 
(in binary) for the message to be 
printed. This code is converted to the 
last two digits of the message number 
(XX in the example UnXXI) . 

• Transient region +1185 contains the 
numeric decimal value assigned to the 
various open/close phases for message 
numbering. (X in the example 4XnnI.) 

• Transient region +1000 contains the 
start of the CCB. 

The message writer overlays the first 888 
bytes of the transient region. Therefore, 
any information that the calling phase 
needs to save is located beyond that point. 



• Register contains the last four 
characters in the name of the phase 
requesting the message. On cancel 
messages, register need not be 



This phase first saves the last four 
characters in the name of the phase 
requesting the message. It initializes the 
SYSLOG message output area with the 
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organization type numeric code, DTF 
filename and symbolic unit and constant. 
It builds the SYSLOG CCWs for writing the 
message and reading the response and 
determines if the required message is in 
this phase of the message writer. If it is 
not in this phase, the routine determines 
in which overlay phase the message is 
located (either $$B0MSG3, $$B0MSG4, 
$$B0MSG5, $$BOMSG6, or $$B0MSG7) and 
fetches $$BOMSG2 to load the required 
overlay phase. 



$$B0MSG2 Disk Open Error Message Writer, 
I Phase 2 Charts AQ-AS 



Objectives : To issue an error message to 
the operator, read the operator's reply (if 
an IBM 1052 Printer-Keyboard is assigned to 
SYSLOG) or exit to the phase that requested 
the message (after ensuring the validity of 
the operator's response). Also, to cancel 
the job either by operator request or if 
the message type indicates, end of job. 



Entry ; From phase 1 of the disk open error 
message writer, $$B0MSG1. 

Exit : 

• To the VTOC dump phase, $$B0VDMP, 

• To phase 1 of the VTOC display routine, 
$$B0DSPV, 

• To the DASD open/close organization 
phase requesting the message (if a 
cancel was not encountered) . 

Method: $$B0MSG1 supplied the following 
information to this phase: 

• Register 1 contains the name (last four 
characters) of the message overlay 
phase to fetch if the required message 
appears in some phase other than 
$$BOMSGl. 

• Register 3 contains the address of the 
message to be written on SYSLOG. 

This phase determines the message type. 
It can be either a file overlap pack, wrong 
pack, or other. 

For a file overlap type, the last 
character of the message is initialized to 
a 'D', the CCW is initialized to write the 
44-byte file key, and the file overlap 
switch is set to NO-OP. The file overlap 
switch set to NO-OP allows a test for 
deleting an unexpired file later in the 
routine. 



For wrong-pack type, the message is 
initialized with the pack number and the 
wrong-pack switch is turned on. This 
switch is interrogated later in the routine 
to test if the operator has mounted the 
correct pack. 



Next, the routine determines if the 
message to be written on SYSLOG is in main 
storage. If the message is not in main 
storage, the message overlay phase 
containing the required message is loaded 
into main storage. The message overlay 
phases consist of $$BOMSG3, $$BOMSG4, 
$$BOMSG5, $$BOMSG6, and $$BOMSG7. These 
phases contain messages only. The message 
is then moved to the SYSLOG output area, 
and an SVC is issued to type the message 
and read the reply. 

If the message indicates the job is not 
to be canceled, the routine determines if 
the user wants a VTOC display. If he does 
want a VTOC display, the routine issues an 
SVC 2 to fetch $$BODSPV, the VTOC display 
phase. If the user does not want a VTOC 
display, the routine tests for a D-type 
message. 

If the message is a D-type,, the message 
return indicator is set, the address of the 
next phase name is retrieved, and an SVC 2 
is issued to fetch the return phase. If 
the message is not a D-type, the routine 
tests the file-overlap switch and the 
wrong-pack switch as previously mentioned. 
During this portion of the routine, a 'B' 
for bypass, or a *D* for delete is stored 
in the transient region +1186 for use by 
the calling phase. 

The message writer issues an illegal 
response message for the following 
conditions : 

1. Operator reply of IGNORE for a D-type 
message. 

2. Message for ISFMS. 

3. Equal file ID message. 

4. No EXTENT to be bypassed. 

5. Next pack not mounted. 

If the job is to be canceled, a test 
determines if the job control open switch 
(in communications region) is on. If so, 
an SVC 11 is issued to return to job 
control. If the switch is not on, the 
routine checks to determine if a request 
has been made for a VTOC dump. If yes, an 
SVC 2 is issued to call the VTOC dump 
transient, $$BOVDMP. If a VTOC dump has 
not been requested, an SVC 6 is issued and 
the job is cancelled. 
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Figure 5 shows the message code (passed 
via register 3) together with the last two 
digits and action indicator of the 
associated message number. For reference 
purposes , the text of the message is also 
included. 



$$BODSMW Data Security Message Writer 
Charts AT-AU 



Objective : To issue the data security 
message 4n99D and read the reply from the 
operator. 



Entry : From $$BODSPW, $$B0SDI2, $$B0DAI1, 
$$BODA02, $$BOIS06, $$BORTVl, and return 
from $$BODSPV. 



Exits: The exit depends on the operator's 
reply to message 4n99D.- 



• If the reply is YES, control returns to 
the problem program. 



• If the reply is EOB, NO, CANCEL, or 
CANCELV, the problem program is 
canceled. If a VTOC dump is requested, 
$$BOVDMP is fetched. If $$BODSMW was 
fetched by job control, an exit is made 
to job control. 



• If the reply is DSPLYV, $$BODSPV is 
fetched. 



Method : After gathering preliminary data 
about the calling routine, $$BODSMW issues 
message 4n99D, "DATA SECURED FILE 
ACCESSED". If the operator types YES on 
SYSLOG, the file is made available. 



r 1 

| Message 

|Code 

1- 


r 1 

Message 

Number 



44A 




Message 


OVERLAP ON UNEXPRD FILE 


|1 


55A 


WRONG PACK, MOUNT nnnnnn 


|2 


40A 


EXTENT OVERLAP ON ANOTHER 


|3 


41A 


EXTENT OVERLAPS ON VTOC 


|4 


42A 


NO 


MATCHING EXTENT 


|5 


33A 


EQUAL FILE ID IN VTOC 


|6 


66A 


1 TRACK USER LBL EXTENT 


|7 


59A 


INVALID EXTENT 


|15 


84D 


NEED FILE 


PROTECT RING 


|16 


31D 


VOLUME SEQUENCE ERROR 


|17 


38D 


USER HDR LBL IS NOT STD 


1 18 


39D 


USER TRL LBL IS NOT STD 


1 19 


08D 


NO 


UTL0 FILE MARK FOUND 


| 20 : 


47A 


EXTENTS NOT ON SAME UNIT 


| 21 


D 


Reserved for D type msg. 


I 22 


001 


NO 


RECORD 


FOUND 


| 23 


Oil 


NO 


RECORD 


FOUND 


| 24 


021 


NO 


RECORD 


FOUND 


| 25 


031 


NO 


RECORD 


FOUND 


| 26 


041 


NO 


RECORD 


FOUND 


| 27 


051 


NO 


RECORD 


FOUND 


| 28 


061 


NO 


RECORD 


FOUND 


| 29 


071 


NO 


RECORD 


FOUND 


|30 


08D 


NO 


RECORD 


FOUND 


|31 


091 


NO 


RECORD 


FOUND 


|32 


001 


NO 


LABEL SPACE IN VTOC 


| 33 


011 


NO 


FORMAT 


1 LABEL FOUND 


| 34 


021 


|NO 


FORMAT 


2 LABEL FOUND 


| 35 


031 


|NO 


FORMAT 


3 LABEL FOUND 



L JL X J 

Figure 5. Message Codes for Disk Open 

Error Message Writer (Part 1 of 3) 
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r 

(Message 
I Code 

1- 

| 36 


r 

[Message 
i Number 

h ^ 

|04I 


r 

Message 


NO FORMAT 4 LBL IN VTOC 


1 37 


| 061 


NO STANDARD VOLl LABEL 


| 38 


|41I 


EXTENT OVERLAPS ON VTOC 


| 39 


| 461 


DISCONT INDEX EXTENTS 


| 40 


511 


SYSUNITS NOT IN SEQUENCE 


| 41 


|52I 


DISCONT TYPE 1 EXTENTS 


I 42 


541 


DSKXTN ENTRY TABLE FULL 


| 43 


621 


NO PRIME DATA EXTENT 


| 44 


451 


TOO MANY EXTENTS 


| 45 


491 


DATA TRACK LIMIT INVALID 


| 46 


591 


INVALID EXTENT 


| 47 


601 


NO EXTENTS, ALL BYPASSED 


| 48 


611 


INVALID DLBL FUNCTION 


| 49 


631 


LOAD FILE NOT CLOSED 


| 50 


801 


INVALID FILE TYPE 


| 51 


811 


NO LABEL INFORMATION 


I 52 


831 


INVALID LOGICAL UNIT 


| 53 


901 


NO AVAILABLE JIB 


| 54 


871 


SYS FILE EXTENT EXCEEDED 


| 55 


351 


DELETED WORKFILE LABEL 


| 56 


341 


CURRENT FILE LBL DELETED 


| 57 


401 


EXTENT OVERLAP ON ANOTHER 


| 58 


361 


NO MORE AVAIL/MATCH XTNT 


| 59 


481 


SYSIN/SYSOUT UNSUPPORTED 


I 60 


701 


1ST XTNT CD NOT INDX VOL 


| 61 


711 


EXTENT INFO NEEDED 


| 62 


721 


MOD AND DTF INCOMPATIBLE 


| 63 


581 


NO EXTENT FOR OUTPUT FILE 


1 64 ; 


881 


EOF ON SYSTEM INPUT FILE 



L X JL J 

Figure 5- Message Codes for Disk Open 

Error Message Writer (Part 2 of 3) 



+ + ^ 



r t t" 

| Message | Message | 

| Code j Number | Message 

|. + + - 

I 68 | 981 JOVLAP UNEXPRD SECRD FILE 

I I I 

| 69 | 691 | FILE IS OPEN FOR ADD 

I I I 

| 70 | 971 JOVLAP EXPIRED SECRD FILE 



I NONE 



J99D 



| DATA SECURED FILE ACCESSED | 



L A J. J 

Figure 5- Message Codes for Disk Open 

Error Message Writer (Part 3 of 3) 
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SEQUENTIAL ACCESS DASD FILES 



Sequentially-organized DASD (SD) files are 
contained on 2311, 2314 , 2319 f or 2321 DASD 
devices , and are processed by the 
Sequential Disk Access Method. These 
files , defined by the DTFSD macro, are 
either input or output data files , or work 
files. 



A sequential DASD file contains DASD 
records that are processed with a beginning 
DASD address and that continue in order 
through the records on successive tracks , 
cylinders , and volumes to the ending 
address. 



RECORD FORMATS 



Logical records in a sequential access DASD 
file may be blocked or unblocked records 
and may be in one of four formats: 
fixed-length f (Format F) variable-length or 
spanned (Format V) , or undefined (Format 
U) . The format of the record and whether 
the file is blocked , is specified by the 
user in the DTFSD macro instruction used to 
define the file. 



A sequential DASD file is contained 
within one or more sets of limits called 
extents . These extents are specified by 
the user with job control cards (// DLBL 
and/or // EXTENT) . If the logical file 
consists of more than one extent, each 
extent is accessed in the sequence 
specified by the user. The records within 
each extent must be adjacent and contained 
within one volume (pack or cell). The 
extents need not be adjacent, and they may 
be on more than one volume. 



The data handling logic modules for 
files defined for logical IOCS by the DTFSD 
macro are provided by the associated module 
generation macro, SDMODxx, where the xx is 
determined by the record format and 
function of the file. 



Sequential DASD files are opened and 
closed by logical transient routines that 
are fetched by the open and close monitors 
(refer to Volume 1) . The open routines 
provide procedures for checking each file 
before any records are processed. The 
close routines provide procedures for 
terminating each file after all records are 
processed. 



Sequential DASD files can also be 
defined for physical IOCS if the user 
intends to use physical IOCS macros, such 
as EXCP, WAIT, etc. These files are 
defined by a DTFPH macro. 



FIXED-LENGTH RECORDS (FORMAT F) 



Fixed-length records may be blocked or 
unblocked. The number of logical records 
within a block (blocking factor) is 
normally constant for every block in the 
file unless the block is truncated (short 
block). In unblocked format, the logical 
record constitutes the block (refer to 
Figure 6). 



Logical Record 




Fixed Length 
Unblocked Records 




In addition, sequential DASD files can 
be defined by the device independent 
macros, DTFDI and DTFCP. These files are 
described under Device Independent Files in 
Volume 1. 



Figure 6. Fixed-Length Record Format 
(Format F) 
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VARIABLE- LENGTH RECORDS (FORMAT V) 



Variable- length records may be in blocked 
or unblocked format. Either format may be 
spanned or unspanned. Since the length of 
the record is not constant , each record 
describes its own length. For blocked 
records, each block describes its own block 
length. 



Figure 7 illustrates the format of 
variable-length records. The first four 
characters (bytes) of each logical record 
contain control information; 'L^ 
represents the length of the logical record 
and 'bb' represents two bytes reserved for 
system use. The user must provide these 
characters when he is creating the record. 
An optional control character, represented 
by C in Figure 7 may be specified as the 
fifth character of each logical record. 



For blocked records, 'L^' represents the 
block length and 'bb' represents the two 
bytes reserved for system use. Although 
these four bytes do not appear in the 
logical record furnished to the user, input 
and output areas must be large enough to 
accommodate them. 



For unblocked records, the logical 
record and the block control information 
constitute the block, unless the logical 
record is larger than the physical block 
and spanned processing has been specified. 
In such a case, the logical record is 
divided into segments, which are written 
into each block until all the bytes of the 
logical record have been written. The last 
block, therefore, contains only enough 
space to hold the remaining bytes of tl^e 
logical record plus the block control 
information. 









Blocked Records 

I - 












-i 




4 


bb 


Logical 
Record 


Logical 
Record 


Logical 
Record 






Logical Record "^-^ 








1-2 


bb 


C 


Data 






^ 1 




' X 

V 

X 
X 

X 




* L 2 

Urvblocked Records 




h 


bb 


Logical Record 






i 












M 








■ ■ ^ 



Figure 7. 



Variable-Length Record Format 
(Format V) 



SPANNED RECORDS : Spanned records are 
format V records, each of which specifies 
its own length. Spanned record processing 
is an extension of variable-length record 
processing. In this technique the user 
need not be concerned with the restrictions 
the system imposes on the length of 
physical records. Thus, he can maximize 
his secondary storage efficiency, while 
organizing his data files with logical 
record lengths most suited to his needs. 
The Sequential DASD access method allows a 
logical record, either blocked or 
unblocked, to span multiple physical 
records. This implies that: 

1. The user only concerns himself with 
logical records. The IOCS segments 
and blocks his logical records for 
him, while it makes a most efficient 
use of the track capacities on his 
DASD devices. 



2. The user is allowed greater 

flexibility in transferring logical 
records from one type of DASD device 
to another, when he uses the 
Sequential DASD access method. 

Figure 8 shows spanned records. The 
first four bytes of every spanned record, 
whether blocked or unblocked, constitute 
the Block Descriptor Word , which describes 
the information portion of the block that 
immediately follows it. The first two 
bytes contain the block length (LL) 
supplied by data management when the data 
set is written. The last two bytes (RR) 
are reserved and set to binary zeros. The 
user is required to reserve, for use by 
IOCS, the four bytes occupied by the block 
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descriptor word, at the beginning of his 
input and output areas. 



The length of each logical record (ID , 
including two bytes for the length field 
and two bytes for system use (rr) , must be 
supplied by the problem programmer when the 
record is written. 




Segment 
Descriptor Word 

1 Block Descriptor Word 



Figure 8. Spanned Records (Unblocked) 

Because the length of a logical record 
may exceed the size of a single physical 
record on the associated device, IOCS may 
write a spanned record in sections called 
segments . Figure 9 shows segmented spanned 
records . 



" First Segment 
LL 




11 



I .x.x i tt i fr Record Segment 



Segment 
Descriptor Word 
- 1 — Block Descriptor Word 



When the logical record is written in 
segments, each segment includes a segment 
descriptor word . The segment descriptor 
word is an additional four-byte field that 
describes the data portion of the segment 
which immediately follows it. 



The segment length, including the four 
bytes occupied by the segment descriptor 
word itself, is contained in bits 1-15 of 
the first two bytes (££). The value must 
lie in the range 4<££<32,763. 



Bit describes the segment type. If 
the bit is off, it indicates that the 
segment is a normal one. If the bit is on, 
it indicates a null segment containing the 
eight descriptor bytes only. 



The last two bytes of the segment 
descriptor word are reserved and set to 
binary zeros, with the exception of bits 6 
and 7, which contain a value (f). This 
value specifies the relative position of 
the segment with respect to other segments, 
if any; that is, whether it is a single 
segment or whether it is the first, the 
last, or an intermediate segment of a 
multisegment logical record, when a 
spanned record is read, the segment lengths 
specified in each segment descriptor word 
are added together to provide the problem 
program with the length ill) of the logical 
record. 



The first segment of a spanned record 
may begin at any point in the physical 
record on the associated device. 



LL 



Segment 



11 



■ Segment 

- II - 



1 1 1 1 1 1 J 

LL I RR | 11 I fr • Record Segment j 11 j fr I Record Segment 

I I I ! I I ! 



L 



Segment 
Descriptor Word 

Block Descriptor Word 



Segment 
Descriptor Word 



UNDEFINED RECORDS (FORMAT U) 



Undefined records are treated as unblocked 
records, and any deblocking must be 
performed by the problem program. The 
optional control character may be used in 
each logical record (refer to Figure 10). 



Figure 9. Segmented Spanned Records 
(Blocked) 
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STORAGE AREAS 



MODULE SAVE AREAS 



INPUT/OUTPUT AREAS 



The logical IOCS GET-PUT macro instructions 
allow the programmer to use one or two I/O 
areas and process records either in a work 
area or in an I/O area. 



If the RDONLY=YES parameter is included in 
the module generation macro, the module is 
reentrant and must never be modified by the 
problem program. Each DTF referencing the 
module must be associated with a 72-byte, 
doubleword aligned save area which is used 
by the module during execution. The 
address of the save area is passed to the 
module in register 13. 



When blocked records are to be processed 
in an I/O area with no work area specified, 
(or when unblocked records are to be 
processed in two I/O areas, with no work 
area specified) the DTFSD macro instruction 
defines the register IOREG. Logical IOCS 
uses this register to specify the address 
of the logical record that is currently 
available for processing by the problem 
program. 



If variable-length blocked records are 
built directly in an output area(s) with no 
work area specified, the DTFSD macro 
instruction specifies another register, 
VARBLD. This register provides the 
programmer with the remaining space in the 
output area after each PUT instruction has 
been issued. 



If the module is to be shared by DTFs in 
different tasks, the module must be made 
reentrant. This is done by associating a 
unique save area with each DTF. 



In sequential DASD, the save area 
contains user general registers, module 
general registers, switches and other 
information needed by the module. Figures 
11 through 20 illustrate the format of the 
save area for each logic module. 







Logical Record 






C 


Data 






Unblocked Records 




Logical Record 



Figure 10. Undefined Record Format 
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SDMODFI - Fixed-Length Input 



r — 
1 


Byte J 





— T — 

1 


1 


— T — 
1 


2 


— T — 
1 


3 


— T — 

1 


4 


— T 

1 5 


— T — 

1 


6 


— T — 
1 


1 

7 I 


1— 


+-- 




- X~ 




x 




— x — 




"H- 




- X - 


X 




— x_. 


4 



Displ. 

DEC HEX 





8 
16 
24 
32 
40 
48 
56 

64 



8 
10 
18 
20 
28 
30 
38 

40 



User Register 9 



User Register 11 
User Register 13 
Module Register 15 
Module Register 1 
Module Register 10 
Module Register 12 



l~ 



User Register 10 



User Register 12 



User Register 14 



Module Register 



X'FF** j 
X- 



Module Register 11 



Module Register 13 



Maximum Block Size 
(SDMODFI With Truncation) 



Not used 



I 

-X- 



* Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES, bytes 32-39 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 11. SDMODFI Save Area 
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SDMODFO - Fixed-Length Output 



T" 

Byte j 



I 

-X- 



"T" 
I 



"T" 

I 
-X- 



"T" 

I 
-X- 



Displ. 
| DEC HEX 


8 

|10 

(24 

32 

| 40 

|48 

156 



164 



8 
10 
18 
20 
28 
30 
38' 

40 



| User Register 9 








j. 


User Register 10 




| User Register 11 
| User Register 13 








T — 

— +- 

4- - 


User Register 12 
User Register 14 




| Module Register 


15 






T 
. —4. - 


Module 


Register 




J Module Register 
| Module Register 


1 
10 




** 


T 
|X« 

— +- 
4. - 


T~ 

FF' * j 

X- 

Module 


Register 11 




| Module Register 

| Count Field of 
| Previous Record 


12 






T 

— +- 

X - 


Module 
H 


Register 13 

H R 


— t ^ 

| Previous | 
|I/0 Areaj 
j Address | 

X J 


r t 

| Previous I/O | 
j Area Address j 
j (continued) j 


Current I/O 
Address 




T" 

1 
1 
1 







♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES f bytes 32-39 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 12. SDMODFO Save Area 
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SDMODFU - Fixed-Length Input with Update 



r T" 

I Byte | 



"T" 

I 



| Displ. 
I DEC HEX 
| 


1 8 


8 


|16 


10 


| 24 


18 


| 32 


20 


| 40 


28 


| 48 


30 


| 56 


38 


| 64 


40 



User Register 8 



j User Register 9 



User Register 10 


1 

- A - 


User Register 11 


User Register 12 


T 

I 

J. . 


User Register 13 


User Register 14 


T 
I 


Module Register 9 



Module Register 10 



Module Register 12 



| Module Register 11 
-+- 



j Module Register 13 



Module Register 14 



h 



Module Register 



I 
-+- 



Module Register 15 



Module Register 1 



X'FF'* JLast Record Switch 



Block Length | 

A- 



-H 



** 



♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES, bytes 60-67 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 13. SDMODFU Save Area 



SDMODVI - Variable-Length Input 



j Byte 



I 

-A- 



I 

-A- 



"T" 

I 
-A- 



| Displ. 
| DEC HEX 
| 


1 & 


8 


|16 


10 


| 24 


18 


| 32 


20 


| 40 


28 


| 48 


30 


| 64 

L 


40 






User Register 8 



User Register 10 



User Register 12 



User Register 14 
Module Register 



+-- 



X'FF'* j 
A- 



User Register 9 



User Register 11 

User Register 13 

Module Registers 12 or 15 

Module Register 1 ** 

Read Data CCW (Bytes 0-3) 



1 



H 



Read Data CCW (Bytes 4-7) 
,. 1 .j 

Not used 

♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES, bytes 36-43 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 14. SDMODVI Save Area 
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SDMODVO - Variable-Length Output 



r T - 

I Byte | 



"T" 
I 



"T" 

I 
-X- 



Displ. 

DEC HEX 



8 8 

16 10 

24 18 

32 20 



40 
48 

56 
64 



28 
30 

38 
40 



User Register 6 



User Register 8 



User Register 10 



User Register 12 



I— 



Module Registers 6 f 
7, or 10 



Module Registers 
8 or 14 



Module Register 



Module Register 1 
Not used 
Not used 



L 



j User Register 7 



User Register 9 



User Register 11 



j User Register 13 



j Module Registers 
| 7 or 8 



Module Register or 15 



j Module Register 1 
. + T 

JX'FF'* j 



** 



I 
-+- 



— ^ 



♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES r bytes 52-59 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 15. SDMODVO Save Area 



Sequential Access DASD Files 29 



SDMODVU - Variable-Length Input with Update 



| Byte 

h 

Displ. 

DEC HEX 




I o 

-+ 



"T" 
I 



8 

16 

24 

32 

40 

48 

56 

64 
L 



8 
10 
18 
20 
28 
30 
38 
40 



User Register 8 



I 
-+- 



User Register 10 



User Register 12 



Module Register 14 
j. 

Module Register 
|. T 

X'FF - * | 

h 
I* 



Read Data CCW (Bytes 4-7) 



4 | 5 | 6 

-L JL 

User Register 9 



-T- 

I 
-X- 



User Register 11 



User Register 13 



Module Register 12 



Module Registers 12 or 15 



Module Register 1 



1 



*** 



Read Data CCW (Bytes 0-3) 



IX'FF'** 



♦Indicates to OPEN that there are no more DTFs to be opened - 

♦♦Last Record Switch 

♦♦♦If ERREXT=YES, bytes 44-51 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 16. SDMODVU Save Area 
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SDMODUI - Undefined Input 



r t- 

Byte | 



I 
_X- 



I 
-X- 



-T- 

I 



I— 



Displ. 

DEC HEX 




8 
16 
24 
32 
40 
48 
56 
64 




8 
10 
18 
20 
28 
30 
38 
40 



H- 



User Register 8 



User Register 10 



l~ 



User Register 12 

User Register 13 or 14 

Module Register 15 



_+-. 



Module Register 1 
Read Data CCW 
Not used 



** 



h 



Not used 



User Register 9 



User Register 11 
User Register 13 



Module Register 

"T 



X'FF f * 



1 



♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES, bytes 40-47 contain the parameter list that includes the 
address of DTF and core address of the block size in error. 

Figure 17. SDMODUI Save Area 



SDMODUO - Undefined Output 



r — 


T — 




— T — 




— T — 




— T — 




— T — 




— T — 




— T — 




— T — 




— i 


1 


Byte | 





1 


1 


1 


2 


1 


3 


1 


4 


1 


5 


1 


6 


1 


7 


1 


1— 


+- 




x 




— X 




x 




-+- 




x 




x 




x 




-H 



Displ. 

DEC HEX 





8 
16 
24 
32 
40 
48 
56 
64 



8 
10 
18 
20 
28 
30 
38 
40 



User Register 7 



User Register 



I 
+ 

User Register 9 | User Register 10 

User Register 11 j User Register 12 
Y + 

User Register 13 | Module Register 12 

+ 



H- 



Module Register 13 
Module Register 15 
Module Register 1 
Not used 
Not used 



Module Register 14 



I 

** JX'FF'* j 
+ -L 



Module Register 



— I 



-+- 

I 



♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES, bytes 45-55 contain the parameter list that includes the 

address of DTF and core address of the block in error- 
Figure 18. SDMODUO Save Area 
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SDMODUU - Undefined Input with Update 



"T" 

I 



I 
-X- 



I Byte | 



Displ. 
DEC HEX 




8 
16 
24 
32 
40 
48 
56 
64 




8 
10 
18 
20 
28 
30 
38 
40 



User Register 8 



X f FF'* | Last Record Switch 
| x 

Read Data CCW (Bytes 4-7) 



User Register 9 



User Register 10 


+~ 

X - 


User Register 11 




User Register 12 


T 
X - 


User Register 13 




Module Register 8 


T 
X - 


Module Register 9 




Module Register 12 


T 
X - 


Module Register 13 




Module Register 14 


T 
— — X - 


Module Register 15 




Module Register 

T 


T 


Module Register 1 


** 



Read Data CCW (Bytes 0-3) 



♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES, bytes 52-59 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 19. SDMODUU Save Area 
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SDMODW - Work File 



I 



"T" 

I 



"T" 

I 
-J.- 



"T" 

I 



h 



Byte 



Displ. 
| DEC HEX 


8 8 

116 10 

124 18 



32 



20 



40 


28 


48 


30 


56 


38 


64 


40 



| User Register 2 




4. - 


User Register 3 






| User Register 4 




T 
J. - 


User Register 5 






j Module Register 


14 


T 
4- - 


Module Register 


15 




| Module Register 





T 

4- - 


Module Register 


1 




| Module Register 


1 


T 
IX 1 

X 


FF f * j 

X 




** j 


| Ochr - NOTE Macro j I 
| Record Identification j j 


j Not used 




T 
4. - 








| Not used 




T 
4. . 








| Not used 




T 
4- - 








j Not used 




T 









♦Indicates to OPEN that there are no more DTFs to be opened. 

**If ERREXT=YES, bytes 28-35 contain the parameter list that includes the 
address of DTF and core address of the block in error. 



Figure 20. SDMODW Save Area 
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DTFSD MACRO 



illustrates the DTF table generated for 
sequential DASD files. 



DATA FILES 



To process a sequentially-organized DASD 
file of data records by the Sequential 
Access Method f the file must first be 
defined by the declarative macro DTFSD 
(Define The File for Sequential DASD) . 
This describes the characteristics of the 
logical file, indicates the type of 
function being performed, defines the 
format of the record being processed, and 
specifies the main storage areas and 
routines used for the file, 

A DTF table is then generated according 
to the parameters specified in the operand 
of the DTFSD macro instruction. Figure 21 



WORK FILES 



If a TYPEFLE=WORK parameter is specified in 
the operand of a DTFSD macro instruction, 
the file being defined is a work file, and 
work file macro instructions READ, WRITE, 
CHECK, etc., are provided. This type of 
file is used in applications where records 
are to be alternately read and written from 
and to a DASD device, which is used as a 
temporary extension of main storage. 

Figure 22 illustrates the DTF table that 
is generated when the TYPEFLE=WORK 
parameter is specified. 
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r t t t 


|DTF Assembly | 






| Label j Bytes 

L 4. 


Bits 


Function 


j. — ^ 








| ^Filename | 0-15 




Command Control Block (CCB) . 


| | (0-F) 






1 | 16 





1 = Dequeue old volume extents. 


| | (10) 


1 


± = Dummy OPEN to obtain extents from 
label track. 




2 


1 = File assigned 'IGN f (COBOL). 




3 


1 = Track hold option specified. 




4 


1 = DTF relocated by OPENR. 




5 


1 = Input trailer labels to be processed 
at close time (COBOL only),. 




6 






7 


1 = COBOL end-of-extent option specified. 


| | 17-19 




Address of logic module. 


| | (11-13) 






1 1 20 




DTF type for OPEN/CLOSE (X'20 f = sequential 


| " | (14) 




access DASD files). 


1 1 21 





1 = 2321 f = 2311, 2314, 2319. 


1 1 (15) 


1 


1 = Blocked file. 




1 2 


1 = Work file. 




3 


1 = Work area specified. 




1 4 


1 = Not a Version 1 type table. 




5 


1 = Open, = Closed. 




6 


1 = Input, = Output. 




7 


1 = User labels specified. 


| | 22-28 




Filename (DTF Name). 


| | (16-1C) 






1 1 29 




Device Type Code (Version 3) 


| | (ID) 




X'OO" = 2311 
X'Ol" = 2314, 2319 
X'02' = 2321 

Note: In previous versions, last byte of 




filename contains device type code. 


| | 30-35 




Address of Format 1 label in VTOC (BCCHHR). 


| | (1E-23) 






| | 36-37 




Volume sequence number. 


| j (24-25) 






1 1 38 




Open communications byte. 


| | (26) 











Input File 




1 = No more extents. 




1 


1 = Update file. 




2 


1 = Process trailer labels. 




3 


1 = Exit to user's EOF routine. 




4 


1 = Next extent on new volume. 




5 


1 = Return to close routine. 




6 


1 = Process header labels. 




7 


1 = Extent switch. 



L JL -L J- J 



Figure 21. DTFSD Table — Data Files (Part 1 of 12) 
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r 

|DTF Assembly 

| Label 

1- 


r 

| Bytes 
h 


r 

|Bits 

h 

1 o 
l 

1 2 
1 3 
1 *» 

5 

6 

7 


T 

j Function 

f 

I Output File 




1 1 = No more extents. 

jl = Extents needed at close time. 

jl = Process trailer labels. 

|1 = Next extent on new volume. 

|1 = Extents entered via 1052. 

jl = Process trailer labels at close. 

jl = Check extent for minimum of 2 tracks. 




39 
(27) 




1 

0-7 


| (Input only) . 

jl = FEOVD has been issued (input only) 
j Sequence number of current extent opened 
j (Output only) . 




40 
(28) 




j Sequence number of last extent opened. 




41-43 
(29-2B) 




[Address of user's label routine. 




44-47 
(2C-2F) 




[Address of IOAREA1. 




48-51 
(30-33) 




|CCHH address of user's label track 

1 (x'sooooooo'). 




52-53 
(34-35) 




Lower head limit (HH) . 




54-57 
(36-39) | 




[Extent upper limit (CCHH) . 


jSFilename.S 


58-59 | 
(3A-3B) 




Seek address (BB) : 
IX'OOOO' if 2311, 2314, or 2319. 
X'OOnn' if 2321 r where nn = bin number. 




60-63 
(3C-3F) 




(Search argument (CCHH). 




64 
(40) | 




(Record number. 




65-67 | 
(41-43) 




EOF address if input file. Key length 
and data length if output file. 




68-71 
(44-47) 




I CCHH control field 

|CCHH=X'00C80009 f if 2311 type 1 

|CCHH=X f 00C80013' if type 1 2314, or 2319. 

|CCHH=X' 13090413* if 2321 type 1 

|CCHH=X , 00C700nn' if type 128 2311, 2314, 2319 

|CCHH=X f 130904nn' if 2321 type 128 where 

|nn = current upper head number. 




72 

(48) 




j Number of records per track (computed 
| at generation time). 




73 
(49) 




j Switch byte used by the logic modules for 
j various switching purposes. Functions 
j indicated are for the ON condition (1) of 
j the respective bit. 



L X X JL J 

Figure 21. DTFSD Table — Data Files (Part 2 of 12) 
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DTF Assembly 

Label 
,. 



Bytes 



Bits 



Function 



74-75 
(4A-4B) 

76-80 
(4C-50) 



81 
(51) 

81-83 
(51-53) 



2 
3 

4 

5 

6 
7 




1 
2 
3 

5 
6 

7 



Fixed Length Record Modules ; 

Not first entry after Open (INPUT and 

UPDATE) . 

Not first write after Open (OUTPUT) . 

Short record (INPUT and UPDATE without 

truncation) . 

Partial block written (OUTPUT), 

ERROPT=SKIP ( INPUT) . 

TRUNCS=YES (OUTPUT). 

End-of-f ile record written (OUTPUT) . 

End of extent (UPDATE), 

Truncation not specified (used by OPEN 

routines) . 

Write block of records (UPDATE) - 

End of file (UPDATE). 



Variable Length Record Modules ; 



Not first entry after OPEN (INPUT and 

UPDATE) . 

Write record (OUTPUT) . 

Wrong length record (INPUT) - 

TRUNCS=YES (OUTPUT). 

Second GET operation performed (UPDATE) , 

Return to close routine (OUTPUT) . 

Update specified (UPDATE) . 

Not first entry after OPEN (OUTPUT). 

New extent required by CLOSE. 

Capacity of I/O area exceeded (OUTPUT) . 

Second GET required (UPDATE) . 

Not first read (INPUT). 

Second GET issued (UPDATE) . 

Unnecessary to read (INPUT). 

Track capacity exceeded (OUTPUT) . 

Save record count (UPDATE) . 

Undefined Length Record Modules; 



Not first entry after OPEN (ALL modules) . 

Save record count (UPDATE). 

Return to close routine (OUTPUT) . 

Second GET issued (UPDATE) . 

Not used. 

PUT command issued (UPDATE) . 

End of file reached (UPDATE) . 

Multi-track operation (UPDATE) . 

Block size minus one. 



CCHHR = Extent lower limit and record 
number. Field is used as a search argument 
bucket by the logic modules. 

1 = FEOVD has been issued (output only) 



Address of user wrong-length record routine 

if input file. 

Track capacity counter if output file 



L 



Figure 21. DTFSD Table — Data Files (Part 3 of 12) 
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r 


T 




"T 


_ T 


|DTF Assembly | 










Label | 


Bytes 


|Bits| Function 


h 


+- 


84-87 
(54-57) 

88-91 
(58-5B) 

92-95 
(5C-5F) 

96-99 

(60-63) 

100 


4 


_ + 

(Instruction to load user's register IOREG. 
1 (NOTE: This field is a NOP unless blocked 
| records are processed in one I/O area, or 
jtwo I/O areas are specified and records are 
| processed in the I/O areas.) 

1 1 Address of current available input/output 
j area . 

(Address of end of input/output area. 
| Logical indicators 






(64) 


1 o 

1 1 
1 2 
1 3 

1 1 
| 5 

1 6 
1 7 


jl = ERROPT = address. 

jl = ERROPT = IGNORE. 

jl = ERROPT = SKIP. 

jl = VERIFY = YES. 

j 1 = 2 I/O areas . 

| 1 = WLRERR = address (Fixed-length and 

| variable records). 

jl = Output file (Undefined length records). 

jl = Fixed-length records. 

j = Variable or undefined length records. 

j Control parameter specified. 






101-103 




j Address of user's read error routine. 






(65-67) 










104-111 




|Seek CCW. 






(68-6F) 










112-119 




| Search ID Equal CCW. 






(70-77) 










120-127 




|TIC CCW. 






(78-7F) 










128-135 




| Read/Write Data CCW. 






(80-87) 







l i ± jl : j 

This is the end of the common portion of the DTFSD table. The following 
sections are added depending on the parameters specified in the operand 
of the DTFSD macro instruction. Refer to Figure 24 for the sequential 
access CCW chains which are generated by the DTFSD macro according to 
parameters specified in the operand of the DTFSD macro instruction. 

Figure 21. DTFSD Table — Data Files (Part 4 of 12) 
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The following section is added to the DTFSD table for fixed-length record 

input files. 

r T T T 

DTF Assembly | | | 

Label | Bytes |Bits| 

x j. x 



Function 



If RECFORM=FIXBLK and TRUNCS=YES: 



| 136-143 | 
| (88-8F) | 
I I 



JRead Count CCW. 

I 



I 
I 

| Count field input area. 

I 

-X 



| 144-151 | 
| (90-97) | 
J. x- 

| If CONTROL=YES , the following section is added: 
j. T T 

I 152-167 | [Control CCB. 
| (98-A7) | | 

I I I 
| 168-175 | | Control CCW. 
| (A8-AF) | | 
_x x x 



If UPDATE=YES: 



| 136-143 | 

| (88-8F) | 

I I 

| 144-151 | 

| (90-97) | 



| Search ID Equal CCW. 

I 

I 

| TIC CCW. 

I 
I 
| Verify CCW. 



| 152-159 | 
| (98-9F) | 
h x x 

| If CONTROL=YES , the following section is added: 

j. T T - 

| 160-175 | 
I (AO-AF) j 



I Control CCB. 



| 176-183 | 

| (B0-B7) | 

_x x_ 



| Control CCW. 
I 

-X 



Figure 21. DTFSD Table — Data Files (Part 5 of 12) 
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r t t t 

DTF Assembly | | | 

Label | Bytes |Bits| Function 



If RECFORM=FIXBLK, TRUNCS=YES, and UPDATE=YES : 



T T T 

j 136-143 | | Read Count CCW. 

| (88-8F) | | 

I I I 

I I I 

| 144-151 | (search ID Equal CCW. 

| (90-97) | | 

I I I 

j 152-159 | | TIC CCW. (Bytes 158-159 contain saved block 

| (98-9F) j j length if two files are using same logic 

j j | module.) 

I I I 

j 160-167 | (Verify CCW. 

| (A0-A7) | | 

I I I 

| 168-175 j j Count field input area. 

| (A8-AF) | | 

h ± x 

| If CONTROL=YES , the following section is added: 

Y T T 

j 176-191 j | Control CCB. 
| (BO-BF) | | 

I I I 

j 192-199 j | Control CCW. 

| (C0-C7) | | 

J. J. JL , , 

If TRUNCS or UPDATE are not specified, no additions are made to the 
DTFSD table except when CONTROL=YES is specified. Then, the following 
section is added: 



h 



_ T T T< 

| 136-151 
| (88-97) 

I 

| 152-159 
| (98-9F) 



Control CCB. 
I 

I 

j Control CCW. 

I 



L JL J. ± 

Figure 21. DTFSD Table — Data Files (Part 6 of 12) 
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The following section is added to the DTFSD table for fixed-length record 
output files. 

r t t t 1 

DTF Assembly 
Label 



h 



Bytes | Bits | 



Function 



136-143 | 
(88-8F) | 

I 
144-151 | 
(90-97) | 

I 
152-159 | 
(98-9F) | 

X- 



j Search ID Equal CCW. 



JTIC CCW. 



j Verify CCW. 



If CONTROL is not specified: 



T T 

160-163 | | End-of-extent routine address (primarily 
(A0-A3) j | used by COBOL compiler). 

X X 



If CONTROL=YES: 



160-175 

(AO-AF) 

176-183 
(B0-B7) 

184-187 
(B8-BB) 



X- 



j Control CCB. 

I 

I 

| Control CCW. 



j End-of-extent routine address (primarily 
j used by COBOL compiler). 
-X 



Figure 21. DTFSD Table — Data Files (Part 7 of 12) 
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The following section is added to the DTFSD table for variable-length 
record, undefined length record , and spanned record input files. 



r T T T . 

DTF Assembly | | | 

Label | Bytes |Bits| 



[- 



Function 



| 136-143 | 

| (88-8F) I 

.x X- 



JRead Count CCW. 



If UPDATE is not specified: 



144-151 | 
(90-97) | 



h 



| Count field input area. 



If CONTROL=YES : * 



152-167 
(98-A7) 



168-175 
(A8-AF) 

176-179 

(B0-B3) 

180-183 
(B4-B7) 

184 
CB8) 



185-187 
(B9-BB) 



Control CCB. 



Control CCW. 



Logical record length. 



RX type instruction - 



Not used. 

1 = Skip segment. 

1 = Spanned first time. 

Not used. 

Not used. 

Not used. 

Not used. 

Not used. 

Pointer in logical record. 



♦These bytes are always generated when spanned processing is specified. 
Figure 21. DTFSD Table — Data files (Part 8 of 12) 
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The following section is added to the DTFSD table for variable length 
record and undefined length record input files 



DTF Assembly | 
Label | 

JL- 



Bytes 



| Bits | 

-J. X- 



Function 



If UPDATE=YES: 



144-151 
(90-97) 

152-159 
(98-9F) 

160-167 
(A0-A7) 

168-175 

(A8-AF) 

176-183 
(B0-B7) 

184-191 
(B8-BF) 



Search ID Equal CCW. 

TIC CCW. 

Verify CCW. 

Count field input area. 

Count field save area if one I/O area. 

Count field save area if two I/O areas. 



If CONTROL=YES : * 



192-207 
CCO-CF) 

208-215 
(D0-D7) 



(Control CCB. 

I 

I 

| Control CCW. 

I 

-X 



The following section is added to the DTFSD table for variable length 
spanned record update files. 



r t- 

|DTF Assembly | 
| Label | 


Bytes 


- T T 

| Bits | Function 

-4. J- 


r 


T 


216-219 
(D8-DB) 

220-223 
(DC-DF) 


T 




T 

| Logical record length. 
|RX type instruction. 






224 

(E0) 





1 
2 
3 
4 
5 
6 
7 


|Not used. 

|1 = Skip segment. 

|1 = Spanned first time. 

|1 = Null segment. 

j 1 = Spanned PUT return. 

|Not used. 

j Not used. 

j 1 = No update 






225-227 
(E1-E3) 






| Pointer in logical record. 






228-235 
(E4-EB) 






j Count save area. 




X. 


236-239 

(EC-EF) 


-X- 




j Extent status save area. 

-X 



*These bytes are always generated when spanned processing is specified. 
Figure 21. DTFSD Table — Data Files (Part 9 of 12) 
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The following section is added to the DTFSD table for variable-length 
record output files- 



r t t t 

|DTF Assembly | | | 

| Label | Bytes |Bits| Function 


— i 


|. + + _ 

| | 136-143 j 


+ _ 

| Search ID Equal CCW. 


-H 


| | (88-8F) | 






| | 144-151 | 


|TIC CCW. 




| | (90-97) | 






| | 152-159 | 
| | (98-9F) | 


| Verify CCW. 




| | 160-163 | 
| | (A0-A3) | 


j Space remaining in output area. 




| | 164-165 | 
| | (A4-A5) | 


j Track capacity. 




| | 166-169 | 


(Instruction to load user's register VARBLD. 




| | (A6-A9) | 


j (If VARBLD is not specified, instruction 
jis NO-OP.) 




| L J. 


jl 


j 


| | If CONTROL= 
j L 


=YES:* 


— 1 
j 


| | 170-172 | 


T 

| Not used. 


— 1 


| | (AA-AC) | 






| | 173-175 | 


j End-of-extent routine address (primarily 




| | (AD-AF) j 


j used by COBOL compiler) . 




| | 176-191 | 


| Control CCB. 




| | (BO-BF) | 






| | 192-199 | 


| Control CCW. 




| | (C0-C7) | 







Figure 21. DTFSD Table 
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The following section is added to the DTFSD table for variable length 
spanned record output files. 



r T" 

|DTF Assembly | 
j Label | 

L — 4~ 


Bytes 


|] 
I 


T 

Bits | Function 


r t 


200-203 
(C8-CB) 

204-207 
(CC-CF) 


1 




T 

| Logical record length. 
|RX type instruction. 




208 
(DO) 





1 
2 
3 
i\ 
5 
6 
7 


|Not used. 

|Not used. 

jl = Leading segment. 

jl = Output block truncated. 

jl = End of track. 

| 1 = Save count . 

jl = Volumes spanned. 




209-211 
(D1-D3) 






1 1 Pointer in logical record. 




212-219 
(D4-DB) 






(Count save area. 




220-223 

(DC-DF) 






j Extent status save area. 



L J. 



-L X 



J 



♦These bytes are always generated when spanned processing is specified. 
Figure 21. DTFSD Table — Data Files (Part 11 of 12) 
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The following section is added to the DTFSD table for undefined length 
record output files. 



r t- 

|DTF Assembly | 
| Label j 

F — +- 


Bytes 

136-143 
(88-8F) 


■T T ' 

1 1 

| Bits | Function 

+ + 

| | Search ID Equal CCW. 

1 1 




144-151 
(90-97) 




I 

jTIC CCW. 

1 

i 




152-159 

(98-9F) 




1 

| Verify CCW. 

1 
i 


1 U 


160-161 
(A0-A1) 


i 


1 

| Track Capacity. 

1 


1 r 
1 L. 


If CONTROL= 


=YES: 


1 r 


162-164 
(A2-A4) 


i 


T 

| Not used. 




164-167 
(A4-A7) 




j End-of-extent routine address (primarily 
j used by COBOL compiler) . 




168-183 
(A8-B7) 




j Control CCB. 




184-191 
(B8-BF) 




| Control CCW. 



L 



Numbers in parentheses are displacements in hexadecimal notation. 
Figure 21. DTFSD Table — Data Files (Part 12 of 12) 
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r t~ 

|DTF Assembly | 
| Label | 
L _u 




Bytes 



'- 

Bits 
. 




Function 


r T 

| SFilename | 


0-15 
(0-F) 
16 

(10) 


r 

0-1 
2 
3 

i ** 
5-7 




Command Control Block (CCB) . 

Not used 

1 = File assigned 'IGN' (COBOL), 
|1 - Track hold option specified. 
1 = DTF relocated by OPENR. 
Not used. 




17-19 
(11-13) 




Address of logic module. 




20 
(14) 




DTF type for OPEN/CLOSE (X f 20 f = sequential 
access DASD files). 




21 
(15) 



1 

2 
3 
4 
5 

6 

7 


= 2311, 2314, or 2319. 

1 = CLOSE macro is not to delete Format 1 

and Format 3 file labels. 
1 = Work file. 

Type of open: 1 = Point, = Normal. 
1 = Routine entered from close routine. 
1 = File opened. 

= File closed. 
Not used. 

1 = Reentry to close routine.- 




22-28 
(16-lC) 




Filename (DTF Name). 




29 
(ID) 




Device Type Code (Version 3) : 

X'00" = 2311 

X'Ol' = 2314, 2319. 

NOTE: In previous versions, last byte of 
filename contains device type code. 




30-31 
(IE- IF) 




Track capacity counter. 




32-35 
(20-23) 




Address of Format 1 label in VTOC (CHHR) . 




36 
(24) 




Extent sequence number. 




37 
(25) 


0-2 

3 

4 

5 
6-7 


Open Communications Byte. 

Not used. 

1 = Symbolic unit in DTF. 

1 = Next extent on new volume . 

1 = Extent opened. 

Not used. 




38 
(26) 




Lower head limit. 




39 
(27) 




Upper head limit. 



L X X X J 



Figure 22. DTFSD Table — Work Files (Part 1 of 3) 
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r T" 

|DTF Assembly | 
| Label j 

L — -L 


Bytes 


- T T 

j Bits j Function 

-4- -i- 


r 


i 




T 


T 


| SFilename.L 




40-41 
(28-29) 

42-45 

(2A-2D) 

46-49 
(2E-31) 

50-53 
(32-35) 




j Record Length, 
j Initial extent lower limit. 
| Current extent lower limit. 
j Extent upper limit. 


j SFilename.S 




54-55 
(36-37) 

56-59 
(38-3B) 

60 
(3C) 




|Seek address (BB=X' 0000' ) . 
j Search address (CCHH). 
| Record number. 



L X X X J 



Figure 22. DTFSD Table — Work Files (Part 2 of 3) 
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r t- 

|DTF Assembly | 
j Label j 

1- +- 


T T '■ 

Bytes j Bits j Function 
+ + 




61 
(3D) 


! o 
l 

1 2 
3 

4 

1 5 
6 
7 


Switch byte used by logic module. 
|1 = First write entry indicator. 
\T = Write update indicator. 
|1 = POINTS macro issued. 
Not first entry after OPEN for 
|READ (RECFORM=UNDEF) . 
1 = Track upper limit reached. 
| Not used. 

1 = Check after read/write. 
Not used. 




62-63 
(3E-3F) 




| Maximum record length. 




64 
(40) 




Verify chain bit. 




65-67 
(41-43) 




Address of user's EOF routine. 




68 
(44) 



1 
2 
3 
4 
5 
6 
7 


Logical indicators. 

1 = ERROPT = address. 

1 = ERROPT = IGNORE. 

1 = Fixed-length unblocked records. 

1 = Verify specified. 

1 = ERROPT = SKIP. 

1 = Reread after read error. 

Not used. 

Not used. 




69-71 
(45-47) 




Address of user read/write error routine. 




72-143 
(48-8F) 




CCW chain for work files (see Figure 24). 




144-151 | 
(90-97) 




Input area for Verify CCW and Read Count 
CCW. 



L X JL X J 

Numbers in parentheses are displacements in hexadecimal notation. 
Figure 22. DTFSD Table — Work Files (Part 3 of 3) 



DTFPH MACRO 



When physical IOCS macro instructions are 
used to process a sequential DASD file with 
standard labels, and the user wishes to 
have the labels checked, the file must be 
defined by a DTFPH (Define The File for 



PHysical IOCS) macro. To define a 
sequentially-organized DASD file in this 
manner, the parameters specified in the 
operand of the DTFPH macro instruction must 
include DEVICE=2311/2314/2321 and 
MOUNTED=SINGLE. Figure 23 illustrates the 
DTF table generated to define the file for 
physical IOCS. 
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"T" 
I 



T~ 

Bits J 
+- 



I Bytes 



Function 



0-15 
(0-F) 

16 
(10) 



17-19 
(11-13) 

20 
(14) 

21 
(15) 



22-28 
(16-1C) 

29 
(ID) 



30 
(IE) 

30-35 
(1E-23) 

36-37 
(24-25) 

38 
(26) 




1 
2 
3 
4 
5-7 




1 
2 
3 
4 
5 
6 
7 




1 
2 
3 
4 
5 
6 
7 


1 
2 
3 
4 
5 
6 
7 



CCB. 



1 = Dequeue old volume extents. 

Not used. 

1 = File assigned 'IGN' (COBOL). 

Not used. 

1 = DTF relocated by OPENR. 

Not used. 



3X , 00' 



DTF type (X f 2r) ( 



Open/Close indicators. 

1 = 2321; = 2311, 2314, 2319. 

1 = Blocked files. 

1 = Work file. 

1 = Work area. 

1 = Not Version 1 table type. 

1 = Open; = Closed. 

1 = Input; = Output. 

1 = User labels specified. 

Filename (see byte 29). 



Version 3 device type code: 

X'00' = 2311 

X"01' = 2314, 2319 

X f 02' = 2321 

Last byte of filename in previous versions. 

C'F f = EOF indicator for DTFPH. 



(BCCHHR) Address of Fl label in VTOC (output). 
(BCCHHR) Address of next DLBL-EXTENT record (input) 

Volume sequence number. 



Open communications byte. 

Output 

1 = No more EXTENTS. 

1 = EXTENTS for LIOCS at close. 

1 = Process trailer labels. 

1 = Process header labels. 

1 = New volume on next EXTENT. 

1 = EXTENTS entered via 1052. 

1 = Process trailer labels at close. 

1 = Check EXTENT for minimum of 2 tracks. 

Input 

1 = No more EXTENTS. 

Not used. 

1 = No Fl label, process EXTENTS only. 

Not used. 

1 = New volume on next EXTENT. 

Not used. 

1 = Process header labels. 

Not used. 



L 



Figure 23. DTFPH Table for Sequential Disk (Part 1 of 2) 
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I Bytes 



T~ 

Bits | 
+- 



Function 



39 
(27) 

40 
(28) 

41-43 
(29-2B) 

44-47 
(2C-2F) 

48-51 
(30-33) 

52-53 
(34-35) 

54-57 
(36-39) 

58-59 
(3A-3B) 



60-63 
(3C-3F) 

64 
(40) 

65-67 
(41-43) 

68-71 
(44-47) 



72 
(48) 

73 

(49) 

74-75 
(4A-4B) 

76-80 
(4C-50) 

81-83 
(51-53) 



Sequence number of current EXTENT being opened. 



Sequence number of last EXTENT opened (not a 1050 
EXTENT entry). 

Address of user's label routine. 



Address of IOAREA1. 



CCHH address of user's label track. Initially 
X'80000000 f . 

Lower head limit (HH) X'0000' if type 1; X'OOnn' if 
type 128 (n = head limit) . 

EXTENT upper limit (CCHH) . 



BB seek address: 

=X'0000" if 2311, 2314, or 2319. 

=X'00nn' if 2321 where f nn' = bin number. 

EXTENT lower limit (CCHH) . 



Record number. 1 = Input, = Output. 



Not used. 



CCHH control bucket. 

CCHH = X' 13090413' if 2321 - type 1. 

CCHH = X'00C80009' if 2311, or X'00C80013' if 2314, 

2319 - type 1. 
CCHH = X'130904nn' if 2321 - type 128. 
CCHH = X'00C800nn' if 2311, 2314, 2319 - type 128 

where n = current upper head number. 

Record number. 



Not used. 



Not used. 



CCHHR bucket = extent lower limit and record number. 



Not used. 



Numbers in parentheses are displacements in hexadecimal notation. 
Figure 23. DTFPH Table for Sequential Disk (Part 2 of 2) 
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en 



O 
O 

co 



o 
o 

CO 

< 
o 

H 

c 

3 
CD 



CO 
2 

DJ 

D 

Hi 

o 

H 

CO 
D 



H« 

C 
H 
CD 

rO 



D 
h3 
*i 
CO 
O 

O 

SD 

CD 



h 
o 

H 



H 



O 

Hi 




Notes: 
1 . Shaded Areas - Assembly Time 
2. Unshaded Areas - Execute Time 



X'07 , ,&Filename.S,X , 40 , / 6 
X , 3r,&Filename.S+2,X , 40 , ,5 
X'08'^-8,0,0 
X'06',&IOAREA1,0 / Block Length 



SEEK 
SIDE 
TIC 
RD 



X , 07 , ,&Filename.S,X , 40 , ,6 

X , 31 , / &Filename.S+2,X , 40 , ,5 

X'08',*-8,0,0 

X'06', &IOAREA1,0, Block Length 



SEEK 
SIDE 
TIC 
RD 



X'OA&Filename.SjX^O'^ 

X , 3r,&Filename.S+2,X , 40 , ,5 

X'08'^-8,0,0 

X'06' / &IOAREA1,0 / Block Length 

X'31 , / &F?lename.S+2 / X , 40' / 5 

X'08'^-8,0,0 

XW^X'SO',! 



SEEK 

SIDE 

TIC 

RD 

SIDE 

TIC 

VERIFY 





—-^UPDATE 


=YES >- 








X , 07 , ,&Filename.S,XM0 , ,6 


SEEK 


, X , 3r,&Filename.S+2,X , 40',5 


SIDE 


X'08',*-8,0,0 


TIC 


XW^IOAREAl^X^O', Block Length 


RD 


X ,o 2',* + 8,0,8 


RID 


DC 2F'0' Count Area 





X , 07 , ,&Filename.S,X , 40 , ,6 

X*3r,&Filename.S+2,X'40 l ,5 

X'08'^-8 0,0 

X'06 1 , &IOAREA 1,0, Block Length 

X»3r,&F?lename.S+2,X , 40 , ,5 

x'08',*-8,o,o 

X'OtfAX'SOM 



I SEEK 

I 
I 



SIDE 

TIC 

RD 

SIDE 

TIC 

VERIFY 



X'07 , ,&Filename.S / X , 40 , / 6 

X I 3T,&FfIename.S+2 X'40',5 

X'08'^-8,0,0 

X'06', ^OAREAUXMO', Block Length 

X'92 , ,*+32,0 / 8 

X'31', &F?lename.S+2,X'40 , / 5 

X'OSV-8,0,0 

X^'AX^O',! 

DC 2F'0' Count Area 



SEEK 

SIDE 

TIC 

RD 

RID 

SIDE 

TIC 

VERIFY 



w 
a> 

c 
a> 

ft 
H- 
CD 
H 

> 
Q 
O 
(D 
to 
to 

a 
> 
w 
o 

*i 

H- 
H* 
CD 
0) 






*d 

H 
to 

45 



s 

w 

D 

O 

J* 
0) 

3 
CD 

H 
O 



ft 



o 



Output 



Typefile 



Yes >g#iOAREA2 !' 



No 





N^J Specified X^/^ 


^ r 


X'O^&Filename.S^O'^ j SEEK 


X'3r,&Filename.S+2,X , 40',5 1 SIDE 


X'08'^-8,0,0 ! TIC 


X'lD 1 , &lOAREA2,0, Block Length + 8 ] WCKD 


X , 3T / &Filename.S+2 / X'40 , / 5 | SIDE 


X'OS'^^O^ ] TIC 


X^'AX^O',! 1 VERIFY 



X'OJ'^Filename.S^^O'^ 

X , 31 , ,&Filename.S+2,X , 40 , ,5 

X'08'^-8,0,0 

X'lD'^IOAREAlA Block Length + 8 

X 1 3r,&Filename.S+2,X , 40',5 

X'OS'^^CO 

X'SO'AX'SO 1 ,! 



SEEK 

SIDE 

TIC 

WCKD 

SIDE 

TIC 

VERIFY 



Input 



Variable- Length Records 



Typefile 



Notes: 
1 . Shaded Areas- Assembly Time 
2„ Unshaded Areas- Execute Time 




X'OA&Filename.S^^O'^ 



X , 31',&Filename.S+2,X , 40 , ,5 I SIDE 



X'08',*-8,0,0 | TIC 

I 

X'Oo'j&IOAREAUX^BIock Length ' 

X'92'^+8,0,8 

DC 2F'0' Count Area 



RD 
RID 



X , 07 , / &Filename.S,X , 40 , / 6 | SEEK 

X'3T ^Filename. S+2 / X , 40' / 5 ■ SIDE 

XWAS^O ! TIC 

X'Oc^&IOAREAUXMO', Block Length J RD 
X'92\*+32,0,8 ] RID 

X'3r / &Filename.S + 2,X I 40\5 ] SIDE 

X'OSV-8,0,0 i TIC 

X , 06 , ,*,X'30' / 146 j VERIFY 

DC 2F'0' Count Area [ 

DC 2F'0' Count Save Area i 

DC 2F'0' Count Save Area for 2 I/O Areas 



Ol 


^ 


4? 


H» 




03 




C 


o 


* 


o 


CD 


CO 






ro 


F 


J? 


H 


• 


o 




o 




co 


D 




h3 


< 


*J 





CO 


H 


a 


C 




3 


o 


(D 


tr 




flJ 


U) 


D 




3 


co 


0) 


> 


I- 1 


2 






*d 


& 


h 


S3 





a 


vQ 




H 


g 


s 


2 


CO 


H) 


rf^ 





^ 


^ 


&> 




H 


D 


<+ 


> 




CO 


U) 


o 










Input 



Undefined Records 



Typefile 



Notes: 

1 . Shaded Areas - Assembly Time 

2. Unshaded Areas - Execute Time 



X , 07 , / &Filename.S,X , 40 , ,6 
X , 31 , / &Filename.S+2,X , 40 , ,5 




X'08'^-8,0,0 



I 

I TIC 

I 

X'Oo'^IOAREAUXWj&lock Length [ RD 

I 

I RID 

I 



DC 2F'0' Count Area 



X , 07 , ,&Filename.S / X , 40 , ,6 ] SEEK 

X , 3T / &F«lename.S+2,X'40 , / 5 ] SIDE 

X'08'^-8,0,0 I TIC 

X'Od^&IOAREA^XW, Block Length \ RD 

X'92'^+32,0,8 j RID 

X , 3r,&Filename.S+2,X , 40',5 ] SIDE 

X'08\*-8,0,0 | TIC 

X'06 , / *,X , 30 , J46 I VERIFY 

DC 2F'0' Count Area , 

DC 2F'0' Count Save Area I 

DC 2F'0' Count Save Area for 2 I/O Areas 
__ I 



Workfile 



Fixed -Length or 
Undefined Records 



Typefile 



X , 07 , ,&Fi!ename.S,X , 40 , ,6 I SEEK 

X'3r,&Filename.S+2,X , 40 , ,5 I SIDE 

X'OSV-SAO i TIC 

X , 03 , ,* # X , 20 , / 1 ,' WCKDorRD 

X'OS'AX^O',! ] WD or RID 

X , 3r,&Filename.S+2,X'40 , / 5 ] SIDE 

X'08'^-8,0,0 I TIC 

X , 1E I ,*+16,X , 30 , ,8 i VERIFY 

X , 12 , ,*+8 / / 8 ! RID 
DC X'0000000001 000000' Count Area ! 



MODULE GENERATION MACROS 



• 1 or 2 I/O areas. 



Logical IOCS provides a number of 
logical-file accessing routines called 
logic modules. These modules provide an 
interface between the user's processing 
function and physical IOCS. They are 
generated by module generation macros 
(SDMODxx), and are executed in response to 
imperative macro instructions issued by the 
problem program. 

The sequential access DASD logic modules 
and module generation macros differ from 
other IOCS logic modules and module 
generation macros in that the 
characteristics of the sequential access 
DASD modules are separated into ten 
categories i. Each category has a unique 
macro instruction associated with it. The 
categories vary according to record form 
( fixed , variable , or undefined length) and 
function ( input , output, input with update 
function, and work files) . 

The user must define his file by the 
DTFSD macro and issue the appropriate 
module generation macro to process that 
file. 

If the ASSGN IGN function is to be used 
for an SD LIOCS file, it is the user's 
responsibility to test for the IGNORE 
indicator posted in the DTF after an OPEN 
has been issued to the file. If this 
indicator is on, the user should not issue 
I/O to that file. 



FIXED-LENGTH RECORD MODULES 

The basic modules for accessing 
fixed-length records are: 

• SDMODFI - Fixed- length input records. 

• SDMODFO - Fixed-length output records. 

• SDMODFU - Fixed- length input records 

for update. 

Each of these modules actually consists of 
two modules (depending on whether TRUNC=YES 
is specified as an SDMODFx parameter) to 
provide a total of six different modules 
for sequential DASD fixed- length record 
formats . 

The modules are generalized routines 
that work with one or more unique DTF 
tables to perform their various functions. 
Each module can function using: 



• A work area (optional). 



• Error options (if specified at module 
generation time) . 

• ERET macro (if ERREXT=YES is specified 
at module generation time). 

• Blocked or unblocked fixed-length 
records. 

• CNTRL macro (control function, if 
specified at module generation time) . 

• Update function (input files). 

• RDONLY option (if specified at module 
generation time) . 

• Track hold function, if specified at 
module generation time (input files 
with update function) . 

The options listed must be defined by the 
DTFSD macro statement. 



SDMODFI With Truncation: GET Macro Charts 
BA-BE 



Objective : To read fixed- length blocked or 
unblocked records from a sequential DASD 
file with provisions for truncation. 

Entry : From the GET macro expansion. 

Exit : To the problem program. 

Method: This logic module reads 
fixed-length blocked or unblocked records 
and makes the logical record available to 
the user in a work area, if one is 
specified. 

If blocked records are being read, and 
TRUNCS=YES parameter has been specified, 
truncated records may be included in the 
file. The module must use the data length 
from each count field to determine the 
length of the record to be read. The first 
GET macro issued to the file results in two 
separate read operations. The first 
operation reads the count information to 
determine the address and length of the 
data area of the record. The search 
argument is initialized with the count 
identifier field. The data length from the 
count field is compared with the defined 
block size from the DTF table. If the data 
length is greater than the block size, this 
routine initializes the Read Data CCW with 
the block size and sets the incorrect 
length indicator in the CCB. Otherwise, 
the Read Data CCW is initialized with data 
length. 
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The second read operation reads the data 
area of the record and the count field of 
the next consecutive record in the file. 
The count field is used to update the 
search argument and byte count field of the 
Read Data CCW. Subsequent GET macros read 
the data area of the record and then the 
count field of the next consecutive 
record. If unblocked records are being read, 
or TRUNCS=YES parameter has not been 
specified, only one read operation is 
performed at a time, and only the data area 
of the record is read. 



SDMODFO With Truncation; PUT Macro Charts 
BK-BP 



Objective : To write records in sequence on 
a DASD file. 



Entry ; From the PUT macro expansion. 



Exit : To the problem program. 



If the extent upper limit is exceeded, 
this module issues an SVC 2 to fetch 
$$BOPEN to open the next extent for the 
file. Errors are also processed if ERROPT 
is specified as a DTF and module parameter 
and if the problem program has specified 
error routines. If ERREXT is specified, 
additional errors are returned to the 
problem program for processing. 



SDMODFI Without Truncation, GET Macro 



Charts BF-BJ 



Objective : To read fixed-length blocked or 
unblocked records from a sequential DASD 
file without provisions for truncated 
records . 



Entry : From the GET macro expansion. 



Exit : To the problem program. 



Method: This logic module reads 
fixed- length blocked or unblocked records 
and makes the logical record available to 
the problem program in a work area, if one 
is specified. 

If ERROPT is specified as a parameter, 
errors are processed as each record is 
read. If ERREXT is specified, additional 
errors are returned to the problem program 
for processing. In the case of a 
wrong-length record, this routine tests the 
residual count. If the residual count is 
zero, a genuine wrong length record error 
exists. Otherwise, the residual count is 
decreased by the logical record size until 
the result is negative or zero. If 
negative, a wrong-length record exists. If 
zero, the record is a valid short record 
and is processed as a normal record. 

If there are no errors, or after all 
errors are processed, the search argument 
is updated to the address of the next 
consecutive record in the file. 



Method: This logic module writes truncated 
blocks of records as well as fixed-length 
blocked, or unblocked records. A block can 
only be shortened by some multiple of the 
logical record size. Since various size 
records can be written, a count of the 
number of bytes remaining on the track must 
be kept. 



The first PUT macro issued to the file 
initializes the count field in the I/O area 
with the search argument, and initializes 
the track capacity counter. If the user 
has specified a work area and the TRUNC 
switch is not on, this routine moves the 
logical record to the output area. It then 
tests the truncation switch to see if the 
TRUNC macro has been issued. If it was 
issued, no more logical records are built 
in the block. Otherwise, the current block 
size and I/O area address are updated by 
the logical record size, and a test 
determines if the end of the block has been 
reached. If not, control returns to the 
problem program. 



If the block is full, or the truncation 
switch has been set, the module determines 
whether the block will fit on the track. 
If the entire block cannot be written in 
the space remaining on the track, the 
module updates the search argument and 
writes the block as the first record on the 
next track. If the extent upper limit is 
exceeded, end of file has not been reached, 
and there is no partial block to be 
written, this phase calls $$BOPEN to open 
the next extent, and to write the record as 
the first record on the new extent. 
Control then returns to the problem 
program. 



This module also processes errors if the 
problem program has specified error 
routines. If ERROPT is specified, errors 
are processed as each record is written. 
If ERREXT is specified, add? "cional errors 
are returned to the problem program for 
processing. 
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SDMODFO With Truncation: 
Chart BQ 



Close Routine 



SDMODFO Without Truncation: PUT Macro 
Charts BR-BU 



Objective : To write any remaining records 
and/or the end-of-file record , in sequence 
on a DASD file. 



Entry : From the close B-transient, 
$$B0SDC1. 



Exit : To the close transient, $$B0SDC1 via 
an SVC 9. 



Method: First , a test determines if there 
are any logical records to be written. If 
so, the routine sets a partial block switch 
and branches to the PUT routine to write 
the partial block on the file. Control 
then returns to this routine. 

The end-of-file switch is set, and 
another branch-and-link is taken to the PUT 
routine to set up the end-of-file record. 
When this routine regains control, the data 
length is set to zero in the count field 
and the end-of-file record is written. 
This phase then exits to $$B0SDC1 via an 
SVC 9. 

If the extent upper limit is exceeded 
while in the PUT routine logic, the next 
extent is opened and the partial block or 
end-of-file record is written as the first 
record of the next extent. 



SDMODFO With Truncation: TRUNC Macro 
Chart BQ 



Objective : To write records in sequence on 
a DASD file- 
Entry: From the PUT macro expansion,. 
Exit : To the problem program,. 

Method : This logic module writes only 
fixed-length blocked or unblocked records. 
However, if the close routine turns the 
partial block switch on, a truncated record 
may be written, because no padding is used 
to fill out the last block of records. 

If the user specifies a work area, this 
routine moves the logical record from the 
work area to the output area. It then 
updates the current I/O area address by the 
logical record size, and determines if the 
end of the block has been reached. If not, 
control returns to the user. 

When the block is full, the search 
argument record number is updated and the 
block address, key length, and data length 
are set in the count field. Then, the 
block is written on the file. 

After the record is written, the search 
argument is updated, and if the extent 
upper limit is exceeded, $$BOPEN is called 
to open the next extent. Control then 
returns to the problem program. 

If ERROPT is specified as a parameter, 
errors are processed as each record is 
written. If ERREXT is specified, 
additional errors are returned to the 
problem program for processing. 



Objective : 
be written - 



To cause a truncated record to 



SDMODFO Without Truncation: Close Routine 
Chart BV 



Entry : From the TRUNC macro expansion. 



Exit: 



© To the SDMODFO PUT logic. 
• To the problem program. 



Method : A test determines whether there 
are any records in the output area to be 
written. If none, control returns to the 
problem program. Otherwise, the phase sets 
a truncation switch to indicate that the 
TRUNC macro instruction has been issued, 
and control branches to the SDMODFO PUT 
logic to write the truncated record. 



Objective : To write any remaining records 
and/or the end-of-file record in sequence 
on a DASD file. 

Entry : From the close B-transient, 
$$B0SDC1. 

Exit : To the close B-transient, $$B0SDC1 
via an SVC 9. 

Method : This routine determines if there 
are any logical records to be written on 
the file. If so, it initializes the count 
field with the data length and initializes 
the Write CCW with the data length plus 
eight. It also turns the partial block 
switch on. This phase then branches to the 
PUT routine to write the partial block on 
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the file, 
routine . 



Control then returns to this 



The end-of-file switch is turned on and 
control branches to the PUT routine again 
to set up and write the end-of-file record. 
This phase then exits to $$B0SDC1 via an 
SVC 9. 



SDMODFU With Truncation; 



GET Macro Charts BW-CF 

PUT Macro Chart CG 

Objective : To read fixed-length blocked or 
unblocked records to be updated 
(optionally) by the problem program , and 
rewrite the updated records on a sequential 
DASD file. 

Entry : 

• From the GET macro expansion. 

• From the PUT macro expansion. 

Exit : To the problem program. 

Method: This logic module reads 
fixed-length blocked or unblocked records t 
that are to be updated optionally by the 
problem program, and rewrites the blocked 
or unblocked records in sequence if the 
problem program has issued a PUT macro 
instruction. Because records are not 
removed from or added to the file, a GET 
macro instruction must precede a PUT macro 
instruction. Only one PUT macro 
instruction can be issued for a record. If 
a work area is specified, the module moves 
the logical record to and from the work 
area. 

If blocked records are being processed, 
and the TRUNCS=YES parameter has been 
specified, truncated records may be 
included in the file. The module must use 
the data length from each count field to 
determine the length of record to be read 
or written. The first GET macro issued to 
the file results in two separate read 
operations. The first operation reads the 
count information to determine the address 
and length of the data area of the record. 
The search argument is initialized with the 
count identifier field (CCHHR) , and the 
byte count field of the Read/Write Data CCW 
is initialized with the data length. 

The second read operation reads the data 
area of the record, and then the count 
field of the next consecutive record in the 
file. Subsequent GET macros read the data 
area of a record and the count field of the 
next consecutive record. 



If unblocked records are being 
processed, or the TRUNCS=YES parameter has 
not been specified, only one read operation 
is performed at a time, and only the data 
area of the record is read. 



When a PUT macro is issued to the file, 
SDMODFU sets a switch in the DTF table to 
indicate that the PUT command has been 
issued. If a work area is specified, it 
moves the logical record to the output 
area. Control then returns to the problem 
program. The routines that write the 
record are incorporated within the GET 
macro logic. 



The GET routine reads each record, and 
stores the address and length of the record 
for use by the output routine. If track 
hold has been specified, every read 
operation (except the first read count) 
reads a record and holds a track. 



After the initial entry to the module, a 
test determines whether another record is 
needed. If not, the next logical record is 
made available to the problem program in a 
work area, if specified, and control 
returns to the problem program. 



If another record is needed, the module 
determines whether a record must be written 
out first. If the PUT-issued switch is on, 
the problem program has issued a PUT macro, 
and the record in the output area, is 
written before reading the next record. If 
the PUT-issued switch is not on, the module 
reads the next record without performing a 
write operation. In either case, if the 
track hold option has been specified, the 
module issues an SVC 36 to free the held 
track before reading the next record. If 
ERROPT is specified as a parameter, errors 
are processed as each record is read. If 
ERREXT is specified, additional errors are 
returned to the problem program for 
processing. 

If the extent upper limit is reached, 
the module writes any remaining records for 
the extent, if necessary, and then issues 
an SVC 2 to fetch $$B0PEN to open the next 
extent for the file. 

If ERROPT is specified and the problem 
program has specified error routines, 
errors are processed. 

When end of file is reached, the module 
writes any remaining records and frees any 
tracks that have been held because the 
track hold option was specified. The 
module then fetches $$BOPEN to exit to the 
problem program's end-of-file routine. 
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SDMODFU Without Truncation; 

GET Macro Charts CH-CR 

PUT Macro Chart CS 

Objective : To read fixed- length blocked or 
unblocked records to be updated 
(optionally) by the problem program, and 
rewrite the records on a sequential DASD 
file. 

Entry ; 

• From the GET macro expansion. 

• From the PUT macro expansion. 

Exit : To the problem program. 

Method : This logic module reads 
fixed-length blocked or unblocked records 
and rewrites the records in sequence if the 
problem program has issued a PUT macro 
instruction. Because records are not 
removed from or added to the file, a GET 
macro instruction must precede a PUT macro 
instruction. Only one PUT macro 
instruction can be issued for a record. If 
a work area is specified, the module moves 
the logical record to and from the work 
area. 

If ERROPT is specified as a parameter, 
the module tests for errors as each record 
is read. If ERREXT is specified, 
additional errors are returned to the 
problem program for processing. If a 
wrong- length record error occurs, the 
residual count is tested. If the residual 
count is zero, a genuine wrong length 
record error exists. Otherwise, the 
residual count is decreased by the logical 
record size until the result is zero or 
negative. If negative, a genuine 
wrong-length record error exists. If zero, 
the record is a valid short record, and is 
processed as a normal record. 

When a PUT macro is issued to the file, 
the module sets a switch in the DTF table 
to indicate that a PUT command has been 
issued. If the problem program has 
specified a work area, the module moves the 
logical record to the output area. Control 
then returns to the problem program. 

Because the routine that writes the 
record is incorporated within the GET macro 
logic, a GET macro or a CLOSE macro must be 
issued to actually write the record. After 
the initial entry to the module, a test 
determines whether another record is 
needed. If not, the module moves the 
logical record to a work area, if specified 
by the problem program, and control returns 
to the problem program. If the track hold 



operation has been specified, every read 
operation reads a record and holds the 
track. 

If another record is needed, the module 
determines whether a record must be written 
out first. If the PUT-issued switch is on, 
the problem program has issued a PUT macro 
and the record in the output area is 
written before reading the next record. If 
the PUT-issued switch is off, the module 
ignores that record in the output area and 
reads the next record. In either case, if 
the track hold option has been specified, 
the module issues an SVC 36 to free the 
held track before reading the next record. 

If the extent upper limit is reached, 
the module writes the remaining records for 
the extent, if necessary, and then issues 
an SVC 2 to fetch $$B0PEN to open the next 
extent for the file. 

When end of file is reached, the module 
writes any remaining records and frees any 
tracks that have been held (if the track 
hold option is specified) . The module then 
fetches $$B0PEN to exit to the problem 
program's end-of-file routine. 



SDMODFU: Close Routine: 



With Truncation Charts BW-CF 

Without Truncation Charts CH-CR 

Objective : To write any remaining records 
in sequence on a DASD file. 

Entry : From the close B-transient, 
$$B0SDC1. 

Exit : To the close B-transient, $$B0SDC1. 

Method : The close routine uses the GET 
macro logic of its respective module, and 
has the same entry point to the module as 
the GET macro. 

The routine determines whether there are 
any remaining records to be written. If 
so, the remaining records are written and 
control returns to the close B-transient, 
$$B0SDC1, via an SVC 9. 



CNTRL Macro, Fixed-Length Records Chart CT 

Objective : To perform a nondata operation. 
Entry : From the CNTRL macro expansion. 
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Exit : To the problem program • 

Method : The CNTRL macro instruction causes 
a seek operation on a 2311, 2314, 2319 and 
2321 or a restore operation on a 2321. The 
routine waits for the completion of any 
previous I/O operation. It then 
initializes the control CCB with the 
symbolic unit address for the file, moves 
the control command code into the control 
CCW, and loads the address of the CCB into 
register 1. The routine issues an SVC to 
perform the control operation and returns 
control to the problem program. 



RELSE Macro , Fixed-Length Records Chart CT 



Objective : To cause a physical read 
operation to be performed when the next GET 
macro is issued by the problem program. 

Entry : From the RELSE macro expansion. 

Exit : To the problem program. 

Method: This routine, used only in 
conjunction with blocked input records, 
causes the remaining records in an input 
block to be bypassed. It sets the current 
pointer to the end of the input area, so 
that the next GET macro instruction causes 
a new physical record to be read into the 
input area. The first logical record of 
that block is made available to the problem 
program. 



VARIABLE-LENGTH RECORD MODULES 



The basic modules for accessing variable 
length records are: 

• SDMODVI - Variable-length input 

records. 

• SDMODVO - Variable-length output 

records. 

• SDMODVU - Variable-length input records 

for update. 

Each module provides logical 
data-handling routines that work with one 
or more unique DTF tables to perform its 
specified functions. Each module can 
function using: 

• A work area (required for spanned 
processing) . 

• 1 or 2 I/O areas. 



• Error options (if specified at module 
generation time) . 

• ERET macro (if ERREXT is specified at 
module generation time) . 

• Blocked or unblocked (spanned or 
unspanned) variable- length records. 

• CNTRL macro — control function (if 
specified at module generation time). 

• Update function (input files). 

• RDONLY option (if specified at module 
generation time) . 

• Track hold function, if specified at 
module generation time (only for input 
files with update function) . 

The options listed must be defined by the 
DTFSD macro statement. 



SDMODVI: GET Macro Charts DA-DE 



Objective : To read variable- length blocked 
or unblocked (spanned or unspanned) records 
from a sequential DASD file. 

Entry : From a GET macro expansion. 

Exit : To the problem program. 

Method : For unspanned records, the first 
GET macro issued to the file results in two 
separate input operations. The module 
performs a read count operation to obtain 
the length of the first block of data. It , 
initializes the Read Data CCW with the 
block length, and performs a second input 
operation to read the data area of the 
first record and the count field of the 
next sequential record in the file. 
Subsequent GET macros issued to the file 
read the data area and then the count field 
of the next sequential record. 

After each physical record is read, the 
module determines if the problem program 
has specified two I/O areas, or a work area 
with unblocked records being processed. If 
either of these conditions exists, the 
module performs another input operation to 
read the data area of the next sequential 
record before returning control to the 
problem program. 

As each GET macro is issued (other than 
the first) , the module updates the input 
area address by the logical record size. 
If the end of the block has not been 
reached, the logical record data is moved 
to a work area if one is specified. If the 
end of the block is reached, the module 
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performs another read operation, unless two 
I/O areas or a work area with unblocked 
records have been specified. In this case, 
the next record for processing has already 
been read. 

Spanned processing is similar to 
unspanned processing except that spanned 
record segments are assembled into logical 
records in the user's work area. The user 
need not fill in the length field because 
either the module passes the length of the 
logical record through the register 
specified under RECSIZE in the DTF table, 
or (if no specification has been given) the 
module issues a current MNOTE and register 
2 is assumed. Null segments are recognized 
but not assembled into logical records. 

If end of file is reached, the module 
fetches $$BOPEN to exit to the problem 
program's end-of-file routine. This module 
also processes errors as each record -is 
read, if the problem program has specified 
ERROPT as a parameter. If ERREXT is 
specified, additional errors are returned 
to the problem program. 

If spanned processing is specified and 
ERROPT=SKIP, the entire spanned record or 
block of spanned records is skipped. 
Conversely, if ERROPT=IGNORE, the entire 
spanned record in which the error occurred 
is not skipped. 



SDMODVI: RELSE Macro Chart DE 



Objective : To cause a physical read 
operation to be performed when the next GET 
macro is issued by the problem program. 

Entry : From the RELSE macro expansion. 

Exit : To the problem program. 

Method: This routine, used only in 
conjunction with blocked input records, 
causes the remaining records in an input 
block to be bypassed. It sets the current 
pointer to the end of the input area, so 
the next GET macro instruction causes a new 
physical record to be read into the input 
area, and makes the first logical record of 
that block available to the problem 
program. If spanned records are being 
processed, the entire block of logical 
spanned records is bypassed. 



SDMODVO: PUT Macro Charts DG-DP 



Objective : To write variable- length 
blocked or unblocked records in sequence on 
a DASD file. 



Entry : From the PUT macro expansion. 

Exit : To the problem program. 

Method : Because variable- length records 
are written, this module must keep track of 
the number of bytes remaining on the track 
for each record processed (if all records 
are unspanned) , and must calculate the 
number of bytes remaining in the output 
area for the problem program. 

For each record to be written, this 
routine increases the output area address 
and accumulated data length by the current 
record size. A test then determines if the 
record fits on the track- If the record 
fits, a test determines whether the output 
area is full. If not full, the record is 
moved to the output area (if a work area is 
specified) , addresses are updated and the 
amount of space remaining in the output 
area is calculated. Control returns to the 
problem program. 

If the output area is full, but not 
exceeded, the module moves the record to 
the output area (if a work area is 
specified) and calculates the remaining 
track capacity. It then writes the record 
on the file. 

If the record does not fit on the track, 
or the output block has been exceeded, a 
test determines if any records have been 
previously processed and moved into the 
output area. If so, the record (s) already 
in the output area is written as a 
truncated record and as the last record on 
the track. The record that did not fit is 
moved to the first part of the output area. 

If records have not been previously 
placed in the output area, and the current 
record does not fit on the track, the 
module updates the DASD address to the next 
track, and writes the record as the first 
record on that track. If the extent upper 
limit is reached , it fetches $$BOPEN to 
open the next extent. 

If spanned processing is specified, a 
logical record in the user's work area of 
the length specified in the RECSIZE 
register is divided by LIOCS into segments 
to make full use of the space available in 
each physical record and device track. 
Processing proceeds for each segment in a 
manner similar to unspanned records. In 
addition to the bytes of data, each segment 
contains a segment descriptor word 
indicating its sequence as the only, first, 
middle, or last segment in the construction 
of the logical record. 

A spanned record does not span volumes 
on output. If there is not enough space on 
the current volume to complete a spanned 
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record , the module rereads the last block 
of the previous spanned record and 
truncates it, if necessary, to the last 
segment- The remainder of the track is 
then erased. An 8-byte record consisting 
of a four-byte block descriptor word and a 
four-byte null segment is written on each 
remaining track to the end of the extent (s) 
on the current volume. Finally, an attempt 
is made to put the entire spanned record on 
the next volume. 



In rereading the last block of the 
previously spanned record, a reopening of 
one or more previous extents may be 
necessary. If so, the module interfaces 
with the OPEN transients by setting 
indicators in the DTF to show that a 
preceding extent on the current or previous 
volume is to be reopened. 

The module also processes errors if 
ERROPT is specified as an SDMODVO parameter 
and the problem program has specified error 
routines. If ERREXT is specified, 
additional errors are returned to the 
problem program for processing. If spanned 
processing is specified and 
ERR0PT= [SKIP, IGNORE] , the physical record 
on which the error occurred is ignored. 
The remaining spanned record segments, if 
any, are written. 



SDMODVO: TRUNC Macro Chart DU 



SDMODVO : 



Close Routine Chart DT 



Objective ; To write any remaining records 
and/or the end-of-file record in sequence 
on a DASD file. 



Entry : From the close transient, $$B0SDC1. 



Exit : To the close transient, $$B0SDC1. 



Method: If the problem program (with or 
without a work area) has specified two I/O 
areas, the close routine waits for the 
completion of the last write operation. It 
determines whether a record is to be 
written. If not, it sets the data length 
to zero and writes the end-of-file record. 
If there is a record to be written and 
blocking has been specified, this routine 
branches to the PUT macro logic to write 
the truncated record. Control returns to 
this routine which then writes the 
end-of-file record. The close routine 
exits to the close transient, $$B0SDC1. 



Objective : 
be written. 



To cause a truncated record to 



Entry : From the TRUNC macro expansion. 

Exit : To the SDMODVO PUT logic. 

Method : This routine sets the truncation 
switch to indicate that a TRUNC macro 
instruction has been issued. It stores the 
problem program registers, and branches to 
the SDMODVO PUT logic to write the 
truncated record. I 



SDMODVU : GET Macro Charts DV-EF 



Objective : To read variable-length blocked 
or unblocked records (spanned or unspanned) 
from a sequential DASD file that are to be 
updated optionally by the problem program. 

Entry : From the GET macro expansion. 

Exit : To the problem program. 

Method: This logic module reads 
variable-length blocked or unblocked 
records (spanned or unspanned), and makes 
the logical record available to the problem 
program in a work area, if specified. 

The first GET macro issued to the file 
results in two separate read operations. 
The first operation reads the count field 
to determine the length of the block to be 
read. The module initializes the Read Data 
CCW with the length, and initializes the 
search argument with the address of the 
block. The second operation then reads the 
data area of the first record and the count 
field of the next sequential record on the 
file. Subsequent GET macros then read the 
data portion of a record and the count 
field of the next sequential record. 

If specified, the module stores the 
count field of each physical record in the 
DTF table to be used by a subsequent PUT 
macro if the record has been updated by the 
problem program. 

As each GET macro is issued, the input 
area address is updated by the logical 
record size. If the end of the block has 
not been reached, the logical record is 
moved to a work area, if one is specified. 
A test determines whether there are two I/O 
areas. If so, the module tests to 
determine whether it is necessary to read 



62 DOS LIOCS Volume 3 SAM and DAM for DASD 



another record. If it is necessary, the 
module performs another read operation. 
Control then returns to the problem 
program. If track hold is specified, each 
read data operation reads a record and 
holds the track via an SVC 35. 

If ERROPT is specified as a parameter, 
errors are processed as each record is 
read. If ERREXT is specified, additional 
errors are returned to the problem program 
for processing. 

When the end of the block is reached, 
the routine determines if the track hold 
option has been specified, and if it is 
necessary to free a track. If so, an SVC 
36 is issued to free the held track. The 
routine then tests for two I/O areas. If 
there is only one I/O area, no overlap is 
possible, and the routine reads another 
record. If there are two I/O areas, the 
routine determines whether the next record 
has already been read. If not, it reads 
the record and performs a wait operation. 
Processing then continues on this record. 

Spanned processing is similar to 
unspanned processing except that spanned 
record segments are assembled into logical 
records in the user's work area. Null 
segments are recognized, but not assembled. 
On each GET macro instruction, the pointer 
to the physical record in which the logical 
record begins is stored in the DTF table to 
be used for repositioning the device by a 
subsequent PUT instruction if the record is 
updated. The extent sequence number is 
also stored in the DTF table in case the 
logical record spans extents. 

If the extent upper limit is reached, 
the routine processes all records or 
segments pertaining to that extent before 
fetching $$BOPEN to open the next extent. 
When end of .file is reached, any records 
that have already been read are processed, 
and $$BOPEN is fetched to exit to the 
problem program's end-of-file routine. 



SDMODVU: PUT Macro Charts EG- EM 

Objective ; To write variable- length 
blocked or unblocked records (spanned or 
unspanned) that were updated optionally by 
the problem program on a sequential DASD 
file. The records are returned to the same 
location from which they were read. 

Entry ; From the PUT macro expansion. 

Exit ; 

• To the problem program. 



o To the close B-transient, $$B0SDC1« 



Method ; For unspanned record, this routine 
first moves the logical record from a work 
area to the output area, if a work area has 
been specified by the problem program. 



The I/O area address is then updated by 
the logical record length, and the routine 
determines whether the end of the block has 
been reached. If it has not been reached, 
an update switch is set, and control 
returns to the problem program. 



If the end of the block has been 
reached, the routine determines whether a 
second read operation has been performed. 
If so, tests are made to ensure that the 
I/O operation has been completed. 



This routine then initializes the search 
argument with the address of the record to 
be written, and the Read/Write CCW with the 
length of the record. It modifies the 
Read/Write CCW to write data, and issues an 
SVC to write the record. When I/O is 
completed, the routine determines whether 
the track hold option has been specified. 
If so, the track of the record just written 
is freed via an SVC 36. 

Spanned record processing proceeds for 
each segment in a fashion similar to 
unspanned records. The device is initially 
repositioned to the first block of the 
logical record by using the pointer stored 
in the DTF table. If the logical record 
spans several extents, the DTF is reset by 
decrementing the extent sequence number by 
1 and by using an AND (X*44') to the open 
communications byte. The extent where the 
logical record begins can now be reopened 
by fetching $$BOPEN. The physical record 
blocks are then updated from the logical 
record in the user's work area. Null 
segments are recognized, but not assembled. 

The routine next tests to see if entry 
to the module was from the close routine. 
If so, control returns to the close 
B-transient, $$B0SDC1. If end of file has 
not been reached, control returns to the 
GET macro logic (if specified), or to the 
problem program. If end of file has been 
reached, control returns to the problem 
program, after setting the end-of-file bit 
on in the CCB. 

If ERROPT has been specified as a 
SDMODVU parameter, and if the problem 
program has specified error routines,, the 
module also processes errors. If ERREXT is 
specified, additional errors are returned 
to the problem program for processing. 
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SDMODVU: 



Close Routine Chart EN 



Objective ; To write any remaining records 
in sequence on a DASD file. 

Entry : From the close B- transient, 
$$B0SDC1. 

Exit ; To the close B-transient, $$B0SDC1. 

Method : This routine sets the current 
pointer to the end of the I/O area, and 
then determines whether there are any 
records in the output area to be written. 
If not, control returns to the close 
B-transient, $$B0SDC1 via an SVC 9. 

If any records are to be written, 
control branches to the PUT macro logic to 
write the remaining records and return to 
the close routine. 



SDMODVU ; 



RELSE Macro Chart EN 



Objective : To cause a physical read 
operation to be performed when the next GET 
macro is issued by the problem program. 

Entry : From the RELSE macro expansion. 

Exit : To the problem program. 

Method: This routine, used only in 
conjunction with blocked input records, 
causes the remaining records in an input 
block to be bypassed. It sets the current 
pointer to the end of the input area, so 
the next GET macro instruction causes a new 
physical record to be read into the input 
area, and makes the first logical record of 
that block available to the problem 
program. If spanned records are being 
processed, the entire block of logical 
spanned records is bypassed. 



CNTRL Macro, Variable Length Records 
Chart EP 



Objective : To perform a nondata operation. 

Entry : From the CNTRL macro expansion. 

Exit : To the problem program. 

Method : The CNTRL macro instruction causes 
a seek operation on a 2311, 2314, 2319, and 
2321, or a restore operation on a 2321. 
The routine waits for the completion of any 



previous I/O operation. It initializes the 
control CCB with the symbolic unit address 
for the file, moves the control command 
code into the control CCW, and loads the 
address of the CCB into register 1. The 
routine issues an SVC to perform the 
control operation and exits to the problem 
program. 



UNDEFINED LENGTH RECORD MODULES 



The basic modules for accessing undefined 
records are: 

• SDMODUI - Undefined length input 

records. 

• SDMODUO - Undefined length output 

records. 

• SDMODUU - Undefined length input 

records for update. 

Each module provides logical data-handling 
routines that work with one or more unique 
DTF tables to perform its specified 
functions. Each module can function using: 

• A work area (optional) . 

• 1 or 2 I/O areas. 

• Error options (if specified at module 
generation time). 

• ERET macro (if specified at module 
generation time) . 

• Unblocked records only. 

• CNTRL macro — control function (if 
specified at module generation time) . 

• Update function (input files) . 

• RDONLY option (if specified at module 
generation time) . 

• Track hold function, if specified at 
module generation time, (only for input 
files with update function) . 

The options listed must be defined by the 
DTFSD macro statement. 



SDMODUI: GET Macro Charts EQ-EU 



Objective : To read undefined length 
records from a sequential DASD file. 

Entry : From the GET macro expansion. 
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Exit.: To the problem program. 

Method: This logic module reads undefined 
length, unblocked records and makes the 
logical record available to the user in a 
work area, if one is specified. 

The first time the module is entered, a 
first-time switch is turned on and the DTF 
is initialized. On each subsequent entry, 
the module determines if two I/O areas or a 
work area is specified. If either is 
specified, the module issues an SVC 7 
(WAIT) to ensure that the previous GET 
operation is complete. If neither, it 
performs a read operation. 

The read operation determines the 
address and length of the data area of the 
record. It compares the data length of the 
record to the defined block size in the DTF 
table. If the data length is less than the 
block size and the first record is being 
processed, a Read Count CCW is executed, 
and a test determines if the record length 
is correct. If the length is incorrect, 
the module initializes the Read Data CCW 
with the block size and sets the incorrect 
length indicator in the CCB. The second 
and subsequent GET macros read the data 
area of the record and then the count field 
of the next consecutive record. 

If the extent upper limit is exceeded, 
this module issues an SVC 2 to fetch 
$$BOPEN, which opens the next extent for 
the file. If end of file is found, $$BOPEN 
is fetched to give control to the user's 
end-of-file routine. Errors are processed 
if ERROPT is specified as a parameter and 
the user specifies an address of an error 
routine. If ERREXT is specified, 
additional errors are returned to the 
problem program for processing. 

Finally, the module determines if two 
I/O areas, or a work area is specified. If 
either is specified, the module executes 
the Read Data CCW and returns control to 
the problem program. If neither is 
specified, control returns to the problem 
program. 



SDM0DU0 : 



PUT Macro Charts EV-EZ 



Objective : To write records on a DASD file 
in sequential order. 

Entry : From the PUT macro expansion. 

Exit : To the problem program. 

Method : The routine determines if this is 
the first entry. If it is , the first-time 
switch is turned on. If it is not, a test 



determines if two I/O areas or a work area 
are specified in the DTF statement. If 
either is specified, the module issues an 
SVC 7 (wait for completion of I/O) . If 
neither is specified, the wait loop is 
bypassed. i 

Next, a test determines if the record 
fits on the track. If the record fits, the 
module calculates the space remaining on 
the track after the record is written and 
posts that information in the DTF table. 
Then, it modifies the I/O area address in 
the Write CCW and issues an SVC to write 
the record. 

If ERROPT is specified as a parameter, 
errors are processed as each record is 
written. If ERREXT is specified, 
additional errors are returned to the 
problem program for processing. 

If the record does not fit, a test 
determines if the extent upper limit has 
been reached. If so, the routine fetches 
$$BOPEN to open a new extent. If not, the 
routine updates the address to the next 
available track, initializes the record 
capacity bucket, and sets the record number 
to 0. In either case, after the write 
operation, the routine returns control to 
the problem program after an I/O wait (if 
two I/O areas are specified or if a work 
area is not specified) . 



SDMODUO: CLOSE Routine Chart FA 



Objective : To write an EOF record. 



Entry : From the close transient, $$B0SBC1. 



Exit : To the close transient,, $$B0SDC1 or 
SDMODUO PUT logic. 



Method : The routine waits for I/O 
completion if two I/O areas or a work area 
is specified. A test determines if there 
is enough room left on the track to write 
an EOF record. If not, the SDMODUO PUT 
undefined record routine is entered, and 
the search address is updated to the next 
available track in the current extent. If 
another track is not available, $$BOPEN is 
called in to open a new extent. 

When control returns to this routine, 
the proper I/O area is selected, the record 
data length is set to 0, and the EOF record 
is written. After a wait for I/O 
completion, control returns to the close 
transient, $$B0SDC1 via an SVC 9. 
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SDMODUU : 



GET Macro Charts FB-FC 



PUT Macro Chart FD 



Objectives ; To read a physical record from 
a DASD file, and to rewrite the record in 
the same location if the record requires 
updating. 



Entry ; 

• From the GET macro expansion. 

• From the PUT macro expansion. 
Exit : To the problem program. 



CNTRL Macro , Undefined-Length Records 
Chart GA 



Objective : To perform a nondata operation. 

Entry : From a CNTRL macro expansion. 

Exit : To the problem program. 

Method : This routine is used for nondata 
operations on the file. For a 2311, 2314, 
2319 r and 2321, the control operation seeks 
to the address specified in the DTF table. 
For the 2321 data cell, the operation also 
returns a strip to the subcell. 

The routine puts the symbolic device 
address in the control CCB, moves the seek 
address to the CCW, performs the control 
operation, and branches back to the problem 
program. 



Method - GET Logic : This module reads 
undefined length unblocked records and 
makes them available to the user in a work 
area, if one is specified. If track hold 
is specified, each read operation reads a 
record and holds a track. 

The first time through the module, a 
switch is turned on, the count field and 
data area of the first record are read, and 
the count field of the next record is read. 
On each subsequent entry, the data area is 
read and the count field of the next 
sequential record is read. A test 
determines if the track hold option is 
specified. If so, the track is freed so 
that the data can be read. A test also 
determines if two I/O areas or a work area 
is specified, so that another GET operation 
can be initiated. 

In either case, control returns to the 
problem program so that the record can be 
updated . 

If ERROPT is specified as a parameter, 
errors are processed as each record is 
read. If ERREXT is specified, additional 
errors are returned to the problem program 
for processing. 



Method - PUT Logic : This module writes the 
records (updated optionally) on the DASD 
file and returns control to the problem 
program. When end of file is reached, the 
module processes the last record before 
returning control to the problem program. 

If ERROPT is specified as a parameter, 
errors are processed as each record is 
written. If ERREXT is specified, 
additional errors are returned to the 
problem program for processing. 



WORK FILE MODULE 



Logical IOCS macros READ, WRITE, CHECK, 
NOTE, POINTS, POINTR, and POINTW access the 
work file module. A work file can be used 
for input, output, or both. 

The CHECK macro must be issued after a 
READ or WRITE macro to ensure completion of 
the operation before issuing another 
instruction. The NOTE macro is used with 
the POINTR or POINTW macros to position the 
file at a predetermined record. The POINTS 
macro positions the file to the beginning 
of the file,. 

GET and PUT macros are not used with the 
work file module. The work file module 
does not support blocking and deblocking, 
or automatic I/O area switching. 

The work file module provides routines 
that work with one or more unique DTF 
tables to perform the specified functions. 
The module can function using: 

• CNTRL macro — control function (if 
specified at module generation time). 

• Error options (if specified at module 
generation time) . 

• ERET macro (if specified at module 
generation time) . 

• Fixed-length unblocked records or 
undefined length records. 

• Update function. 

• Verify option. 
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• RDONLY option (if specified at module 
generation time) - 

• Track hold function (if specified at 
module generation time) . 

The options listed must be defined by 
the DTFSD macro statement. 



This routine updates track and cylinder 
addresses, when all records of a track or 
cylinder have been read. If the extent 
upper limit is reached, $$BOPEN is fetched 
to open the next extent. 



SDMQDW: WRITE Macro Chart GC 



SDMQDW: READ Macro Chart GB 



Objective : 
work file. 



To write a record on a DASD 



Objective ; To read all or part of a 
physical record from a sequential DASD work 
file. 

Entry : From a READ macro expansion. 

Exit ; To the WRITE macro. 

Method ; The READ macro provides the user 
with the ability to access data on a work 
file. This macro requires the user to 
specify the area that the record is to be 
read into, and also allows the user to read 
only a portion of the record. Record 
deblocking is not handled by the READ 
macro, but is the responsibility of the 
problem program. 

For undefined records, the first READ 
macro issued to the file results in two 
separate input operations. The module 
performs a READ COUNT to obtain the length 
of the first block of data. It initializes 
the READ DATA CCW with the block length and 
performs a second input operation to read 
the data of the first record and the count 
field of the next sequential record. 
Subsequent READ macros issued to the file 
will first read the data area and then read 
the count field of the next sequential 
record. 

For FIXUNB records this routine 
initializes the Read CCW chain to perform a 
read data operation followed by a read 
count operation, in order to obtain the 
count field ID of the next sequential 
record on the file. If a POINTS macro has 
been issued before the READ macro, this 
routine reinitializes to read the first 
record on the file. If the problem program 
has specified both t;he track hold option 
and update option, the routine issues an 
SVC 35 to read the record and hold the 
track. Otherwise, this routine issues an 
SVC to read the record. 

If the letter 'S f is specified in the 
operand of the READ macro, the entire 
record is read. Otherwise, the actual 
length, as stated in the operand, is read. 
This parameter is only present in the case 
of records of undefined format. 



Entry : From the WRITE macro expansion. 

Exit : To the problem program. 

Method ; Two types of write operations may 
be specified by the problem program (SQ and 
Update) . If SQ is specified in the operand 
of the WRITE macro, a sequential format 
write (write count, key, and data) is 
performed. If UPDATE is specified in the 
operand, a nonformat write (write data) is 
executed. A WRITE UPDATE should always be 
preceded by a READ macro instruction. 

This macro causes a record to be written 
from the area defined by the WRITE macro to 
the file. The length of the record to be 
written is specified in the operand of the 
WRITE macro instruction only if records of 
undefined format are being written. If 
fixed- length unblocked records are being 
written, the record length is defined in 
the DTF table. Record blocking is not 
handled by the WRITE macro because it is a 
responsibility of the problem program. 

This routine initializes the CCW chain 
to write count, key and data, and write 
data. It also initializes a verify CCW if 
the update option has been specified. If a 
WRITE UPDATE macro is issued, this routine 
reinitializes the CCW chain to write data, 
and sets the verify CCW to read data. This 
read data operation is followed by a read 
count operation in order to obtain the 
count field ID of the next sequential 
record. It then issues an SVC to write 
the record. 

If a WRITE SQ macro has been issued, the 
routine determines whether the current 
record fits on the track, or if the track 
limit has been reached on a previous read 
operation. If either condition exists, 
control branches to a routine to update the 
search address. The routine determines 
whether the end of the extent has been 
reached. If so, it fetches $$B0PEN to open 
a new extent. An SVC is then issued to 
write the record. The track capacity is 
decreased by the effective length of the 
record just written. If the routine has 
been entered from the close routine, 
control passes to the check routine to 
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determine if the input/output operation has 
been completed. Otherwise, control passes 
to the problem program. 



SDMODW: 



Close Routine Chart GE 



been specified , the count field of the next 
record is read. If the ignore option has 
not been specified, the routine returns to 
the READ macro routine to read the next 
record. If the ignore option has been 
specified, control returns to the problem 
program. 



Objective : To write any remaining records 
on a DASD work file. 

Entry : From the close B-transient, 
$$B0SDC1. 

Exit : To the close B-transient, $$B0SDC1, 
via an SVC 9. 

Method: This routine performs a 
branch-and-link operation to the WRITE 
macro routine to write any records 
remaining in the output area, and check the 
write operation. Upon return from the 
CHECK macro routine, this routine issues an 
SVC 9 to return to the close B-transient, 
$$BOSDCl. 



SDMODW: 



NOTE Macro Chart GL 



Objective : To pass identification of the 
last physical record that was read or 
written to the problem program. 



Entry : From the NOTE macro expansion. 
Exit : To the problem program. 



Method : 



The NOTE macro instruction obtains 



SDMODW: CHECK Macro Charts GF-GK 

Objective : To ensure that a previously 
issued READ or WRITE macro has been 
satisfactorily completed. 

Entry : From the CHECK macro expansion. 

Exit : 

• To the problem program. 

• To the problem program's end-of-file 
routine . 

Method : This routine waits for the 
completion of the input/output operation 
started by a READ or WRITE macro 
instruction. If the problem program has 
specified ERROPT as a parameter, this 
routine checks for read or write errors. 
If no error has occurred, this routine 
checks for a write update operation. If 
so, and the track hold option has been 
specified, the routine issues an SVC 36 to 
free the held track. Control then returns 
to the problem program. 

If a read or a write error has occurred, 
and the problem program has specified an 
error routine, control branches to the 
user's error routine to process the error. 
Upon return, if a read error routine has 



the identification of the last physical 
record that was read or written in the 
specified file. The problem program must 
issue a CHECK macro before the NOTE macro 
to ensure that the last operation was 
completed satisfactorily. 

The NOTE macro routine saves the current 
search address, which is loaded into 
register 1 just before returning to the 
problem program. If the NOTE macro was 
issued after a WRITE macro or the initial 
OPEN macro, this routine returns the 
remaining track capacity in register to 
the problem program. After loading 
register 1, control returns to the problem 
program. 

The identification in register 1 is 
returned in the form Ochr, where = eight 
binary zeros, c = cylinder number, h = 
track number, and r = record number within 
the track; c,h, and r are binary numbers. 
The remaining track capacity returned in 
register is in the binary form, OOnn. 



SDMODW: POINTR Macro Chart GL 

Objective : To reposition a file in order 
to read a record previously identified by a 
NOTE macro instruction. 

Entry : From the POINTR macro expansion. 

Exit : To the problem program. 
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Method: This routine expands the record 
identification, previously supplied by the 
NOTE macro, to a search address. If the 
record identification does not fall within 
the current extent limits, the routine 
fetches $$BOPEN to open a new extent. It 
initializes the count field ID with the 
search address, and returns control to the 
problem program. 



SDM0DW: POINTW Macro Chart GL 



Objective : To reposition a file in order 
to write a record following one previously 
identified by a NOTE macro instruction. 



SDMODW: FREE Macro Chart GM 



Objective : To free a track if the track 
hold option has been specified. 



Entry : From the FREE macro expansion- 



Exit: To the problem program. 

Method: This routine determines whether 
the track hold option has been specified. 
If so, it obtains the address and length of 
the record on the held track and 
initializes the CCW chain with that 
information. The routine then issues an 
SVC 36 to free the track. Control returns 
to the problem program. 



Entry : From the POINTW macro expansion. 



Exit : To the problem program. 



Method: This routine uses the record 
identification supplied by a previous NOTE 
macro to position the file in order to 
write a record immediately following the 
one identified by the NOTE macro. 

The routine expands the Ochr 
identification to a DASD search address. 
If the identification does not fall within 
the current extent limits, $$BOPEN is 
fetched to open the next extent. The 
routine updates the count field ID and 
initializes the remaining track capacity 
field in the DTF table with the value 
supplied by the NOTE macro. (This value is 
available only if the NOTE macro followed a 
WRITE macro.) Control then returns to the 
problem program. 

The POINTW macro may be followed by a 
WRITE macro only if the space remaining on 
the track is available. 



SDMODW: CNTRL Macro Chart GM 



Objective : To perform a nondata operation. 

Entry : From the CNTRL macro expansion. 

Exit : To the problem program. 

Method : The CNTRL macro instruction causes 
a seek operation on a 2311, 2314, and 2319. 
This routine isolates the Seek CCW in the 
CCW chain by setting off the command 
chaining bit, and issues an SVC to 
perform a control seek. When the I/O 
operation is completed, the routine turns 
the command chaining bit on and control 
returns to the problem program. 



SDMODW: POINTS Macro Chart GM 



SDMOD: FEOVD Macro Chart GN 



Objective : To reposition a file to the 
beginning of the file for the next read or 
write operation. 

Entry : From the POINTS macro expansion. 

Exit : To the problem program. 

Method : This routine reinitializes the 
search address and the count field ID to 
the lower limit of the first extent 
supplied for the file. Control then 
returns to the problem program. 



Objective : To force end of volume in 
sequential disk processing. 

Entry : From $$BOSDEV. / 

Exit : To $$BOSDEV to close the current 
volume and open a new one. 

Method: The FEOVD macro instruction causes 
and end of volume condition to occur before 
physical end of volume has been reached. 
If forced end of volume is specified, 
$$BOSDEV is fetched to close the current 
volume and open a new volume. 
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INITIALIZATION AND TERMINATION PROCEDURES 



When sequential access DASD files (DTFSD) 
are opened, and the file is on more than 
one volume, only one extent is processed at 
a time, so only one volume need be on-line 
at a time. 

Job control accepts label information 
supplied by VOL, DLAB, and XTENT 
statements, as well as information on the 
simplified DLBL and EXTENT statements 
provided by Version 3. Job control stores 
this DASD label information on the SYSRES 
DASD label information cylinder- The open 
monitor logical transient, $$BOPEN prepares 
to read the label information from the 
SYSRES label information cylinder into the 
logical transient area, and then fetches 
$$BOSD00. 

The sequential DASD open logical 
transients read the DASD label information 
from SYSRES into main storage. Figure 2 
illustrates the format of the SYSRES DASD 
label information. If the file is an input 
file, the open transients compare the file 
label information with the SYSRES DASD 
label information to determine if the 



logical file is correct, if the serial 
numbers are equal, and if the label extent 
limits are equal to or greater than the 
limits of the incoming extent. The extent 
limits are posted in the DTF. 



If the logical file is an output file, 
the open logical transients create file 
labels and write them in their appropriate 
location and sequence. Extent limits are 
checked to ensure that no extent overlaps 
the Volume Table of Contents (VTOC) limits, 
or overlaps an already existing file that 
is still active. 

Disk work files are supported as 
single-volume, single-pack files and are 
always opened as output file. 

When a file is closed, the close logical 
transient determines whether a block of 
data remains to be processed,. If so, the 
logic module is reentered to complete the 
processing. Upon return, file labels are 
deleted if so specified. Otherwise, the 
file labels are updated and rewritten if 
the file is an output file or a work file. 
Control returns to the close monitor or the 
problem program. 
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Chart 01. Sequential Access DASD Open, General Flow 



( Entry From j 

$$BOPEN J 
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file and name of 
B -transient which 
opens file. 




1 . Read DLBL information . 
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addresses and write the 
modified record in place 
of the original. 

3. After all extents are con - 
verted, reread first extent 
record and save address. 



Input 



Output Workfile 



02 
$$BOSDIl 



03 
$$BOSDO! 



$$BOSDWl 
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Chart 02. Sequential Access DASD Open, Input Files 
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Chart 03. Sequential Access DASD Open, Output Files (Section 1 of 2) 
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Chart 04. Sequential Access DASD Open, Output Files (Section 2 of 2) 
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Chart 05. Sequential Access DASD Open, Work Files 
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existing files 



$$BOSDW2 KG-KH 



Write 
workf i le 
labels 




YES 



$$BOFLPT AA-AD 



$$BOSDW3 KJ-KK 



Put extent 
information 
into DTF table 




YES 



NO 



$$BOSDCl LA-LC 



CLOSE 
workfile 



(SVC 1 1 return to^ 
problem program ) 




YES 



(SVC 2 fetch ""N 
$$BCLOSE J 
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Chart 06. Sequential Access DASD Close, All Files 



(Entry from j 

$$BCLOSE J 



CP or SYSLNK 




Input 



1 .Update lower limit address 
and store in COM REG . 

2. Read, update and rewrite 
labels. 



Output on 
Workfile 



Input 



To LIOCS module 
and return if 
necessary to write 
last record 



Delete file 
labels from 
VTOC 




To LIOCS module 
and return if 
necessary to 
update last record 




Output 



Read, update 
and rewrite 
labels 



Workfile 



Output 



$$BOSD01 



JA-JD 



1 .Open new extent. Call 
SD phases as required. 

2. Exit via $$BOSD05 or 
$$BOSD06. 



$$BOSDW3 KJ-KK 



Initialize DTF 
with new extent 



Read, update 
and rewrite 
labels 




Delete file label 
from VTOC if 
requested by user 



YES 



Turn off open 
indicators 



$$BOSD06 



JQ-JR 



1 .Process trailer labels. 

2. Exit to $$BODQUE to 
dequeue file protected 
extents if required. 



$$BOSDC2 LP 



Free tracks held 
by file being 
closed 



YES 



/SVC 11 return I cT\ 
V problem program J 
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SEQUENTIAL DASD OPEN/CLOSE LOGIC 



Open/Close Sequential DASD Files Chart 01 



The pertinent data is posted in the DTF 
table f user labels are checked, (if 
specified) and control branches to the 
user. 



When a DASD file is processed sequentially 
(DTFSR or DTFSD specified), OPEN initially: 

• checks the standard label (s) on the 
volume, (or on the first volume of a 
multivolume file) , 

• makes any additional labels on the 
first volume available for checking, 
and 

• locates the first extent on the first 
volume and makes it available for 
processing. 

Logical IOCS processes one extent at a 
time in the sequence specified by the 
user's job control // EXTENT cards. When 
logical IOCS detects the end of the current 
extent, it branches to the end-of -extent 
routine. OPEN then locates the next extent 
specified by the control cards and makes it 
available for processing. If the next 
extent is the first extent of a different 
volume used by the file, OPEN checks the 
standard labels on that volume and makes 
any additional user labels available to the 
user for checking. 



OPEN (Input Sequential DASD) Chart 02 



OPEN (Work File Sequential DASD) Chart 05 



When WORKFILE is specified, the volume and 
EXTENT labels are checked against the DLBL 
information, the VTOC limits are saved, and 
the extents are checked for overlap on the 
VTOC. File labels that overlap are deleted 
if the expiration date is passed. Format 1 
and 3 labels are created as required. 
Phase 1 is called in to process more 
extents, if available. If not, control 
returns to user. 



CLOSE Sequential DASD Chart 06 . 



The close routine for sequential DASD work 
files and output files is logically the 
same. Any additional records are 
processed, the file labels are updated or 
deleted as required, and the file is 
indicated as being closed. A compiler file 
is closed in the same manner as a work file 
or an output file, except that processing 
of additional records is bypassed. If the 
file is an input file,, it is simply 
indicated as being closed. 



If the file to be opened is normal input, 
the extents are read and checked as needed. 
User labels are read and checked if LABADDR 
is specified. The file labels are checked 
against the DLBL information. The open 
indicator for the file is turned on and 
control returns to the user. 



OPEN (Output Sequential DASD) Charts 03-0 4 



If the file has not been previously opened, 
the extents and labels are checked against 
the DLBL cards. The labels for the next 
extent to be opened are read and checked 
for overlap. Labels are created and 
written as directed by the DLBL 
information, pertinent information is 
posted in the DTF table, user labels are 
processed at the option of the user, and 
control returns to the user. 

When the file has been previously 
opened, the labels and extents are checked, 
the file labels are created, and the 
current extents are inserted in the VTOC. 



$$BOSDQ0; SD Open, Initialization Chart HA 



Objectives : 

• To determine which B-transient phase to 
fetch following $$BOSD01. 

® To bypass $$BOSD01 (if possible), by 
fetching the determined phase. 

• To perform other initialization 
functions. 

Entry : From $$BOPEN. 

Exit : TO $$BOSD01, $$B0SDI1, $$BOSD01, 
$$BOSDWl, $$BOSDW3. 

Method : If the specified file is a work 
file and is already open., this routine goes 
directly to $$BOSDW3. For system units 
other than SYSLNK, it goes to $$B0SDI1, 
$$BOSD01, or $$BOSDWl for input, output, or 
work file, respectively. For all other 
files, it goes to $$BOSD01 after first 
determining the maximum allowable seek 
address. 
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$$BOSD01; SD Open, DLBL Extents Chart HB 



Objective ; To convert DLBL extents to DASD 
addresses and to indicate those extents 
which already exist as label information. 

Entry ; From £$BOSD00, and reentry from 
$$B0MSG1. 

Exits ; 

• To $$B0SDI1, $$B0SD01, or $$B0SDW1 as 
predetermined by phase $$BOSD00. 

• To $$B0MSG1 for operator communication. 

Method: This routine gets the address of 
the DLBL information as supplied by the 
open monitor , $$BOPEN. It converts each 
extent to DASD addresses and writes the 
converted record in place of the original. 
When the last extent has been converted, 
this routine rereads the first extent 
record, saves its address, and exits to the 
next phase. 



$$B0SDI1: SD Open Input, DLBL Extents 
Charts HC-HE 



$$B0SDI1 tests for availability of DLBL 
extents. If no more are available, an exit 
is made to the user's end-of-file address 
if no trailer labels are to be processed. 
If the file has been previously opened, the 
next consecutive DLBL extent to be opened 
is read, and a test determines if this 
extent is for another volume. 

Upon encountering a new volume, trailer 
labels are processed for the previous 
volume (if LABADDR was specified with a 
DTFSD) , by exiting to phase 3 of open 
input. The volume label is read and 
checked to ensure that the proper pack is 
mounted. If the volume label is all right, 
the Format 4 label is read and checked. 
The VT0C limits from this label are saved „ 
and initialization is performed to fetch 
the next phase. The routine exits to 
$$B0SDI2. 



$$B0SDI2: SD Open Input, Extent to DTF 
Charts HF-HH 



Objective : To obtain extent information 
for the DTF table as required by an attempt 
to access a record beyond the limits of the 
current extent. 



Objective : 

• To control the sequence of operations 
required for opening each file extent. 

• To provide an entry to the user's 
trailer label routine (if specified), 
at each end-of- volume. 

• To provide an entry to the user's 
end-of-file routine (if specified) upon 
reaching the end of the last extent. 

Entry : From $$BOSD00, $$BOSD01 and reentry 
from $$B0SDI2, $$BOSDI3, and $$B0MSG1. 

Exits: 

• To $$BOSDI2 to continue OPEN 
processing. 

• To $$BODQUE to dequeue old extents. 
•To $$BOSDI3 to process trailer labels. 

• To $$BOPEN if the last DLBL extent has 
been processed and another file is to 
be opened. 

• To $$B0MSG1 for operator communication. 

Method : If a system unit other than SYSLNK 
is being opened, this routine gets extent 
information for the DTF from the data 
information block (DIB). Otherwise,, it 
continues at BYPASSX. 



Entry : From $$B0SDI1, and reentry from 
$$B0MSG1 and $$BODSMW. 

Exits: 

• To $$B0SDI1 to bypass current extent 
and process the next one. 

• To $$B0SDI4 to continue initialization 
of the DTF table. 

• To $$BODSMW to print message if data 
secured file is uncountered. 

• To $$B0PEN if the last DLBL extent is 
processed and another file remains to 
be opened. 

• To $$B0MSG1 for operator communication 
to display error message. 

Method : The routine reads the Format 1 
label for the file and ensures that no 
discrepancies exist between the DLBL and 
Format 1 label. The extents within the 
label are scanned for one that either 
matches or falls around the limits of the 
incoming extent. The scanning process 
continues until a proper match is found, or 
until all the extents have been exhausted 
by reading the labels in the chain (if any 
are present) . The extent limits are then 
posted in the DTF table. The file is 
indicated as being open, and additional 
initialization is performed depending on 
the type of DTF being opened. 
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The format 1 label is checked for the 
data security indicator. If it is ON and 
the file has not been opened , $$BODSMW is 
fetched to put out a data security message. 
Otherwise , any user header labels are 
processed, and control branches to $$B0SDI4 
to continue initialization of the DTF 
table. 



$$B0SDI3: SD Open Input, User Labels 
Charts HJ-HK 



Objective : To read user labels and give 
control to the user for processing them. 
To rewrite any labels updated by the user. 

Entry : From $$B0SDI1 or $$B0SDI2 f and 
reentry from $$B0MSG1, $$BOFLPT, or the 
user's label routine via an SVC 9. 

Exits : 

• To $$B0SDI1 to continue OPEN 
processing. 

• To the user's label routine. 

• To $$BOFLPT if file protect has been 
specified. 

• To $$BCLOSE if the phase was entered 
from the close routine and track hold 
has not been specified. 

• To $$B0SDC2 if the phase was entered 
from the close routine and track hold 
has been specified. 

• To $$B0MSG1 for operator communication. 

• To the problem program following an 
end-of-file condition. 



$$BOSPm: SD Open Input, Initialization of 
DTF Table Charts HL-HM 



Objective : To complete initialization of 
the DTF table. 



Entry : From $$B0SDI2. 
Exits: 

• To $$B0SDI3 to process user header 
labels. 

• To $$BOPEN to open the next parameter 
or to return to the user. 

• To $$BOFLPT to queue the extent for 
file protection. 

• To $$BOQO01 to open a QTAM file. 

Method : Upper and lower extent limits are 
posted in the DTF, and the DTF open switch 
is set on. Switches are also set to 
indicate whether the last extent has been 
processed, if the next extent is on a new 
volume, or if it is on a new pack and the 
extents need dequeueing. 

If user header labels are to be 
processed, exit is made to $$B0SDI3. If 
file protect is specified for a system file 
open, $$BOFLPT is fetched. For a QTAM 
open, $$BOQO01 is fetched. If any 
parameters remain to be processed, $$BOPEN 
is fetched; otherwise control returns to 
the user. 



$$B0SD01: SD Open Output, Control 
Charts JA-JD 



Method : This phase reads the user's labels 
and passes them to the problem program for 
processing. This process continues until 
the maximum number of labels have been read 
(and rewritten, if any labels have been 
updated by the user) or the user signals 
that he does not want to process any more 
labels. 

If this phase is entered from the close 
routine, and if track hold is specified, 
control passes to $$B0SDC2. If track hold 
is not specified, control passes to 
$$BCLOSE. If the routine is entered from 
$$B0SDI1 or $$B0SDI2, control passes to 
$$B0SDI1. 

When the maximum number of labels have 
been processed, end-of-file is reached, or 
the user signals that he does not want to 
process any more labels, control returns to 
the problem program. 



Objective : To control the sequence of 
operations for opening each file extent, 
providing for an entry of extents from the 
console, and for an entry of user trailer 
labels. 

Entry : From $$BOSD00, $$BOSD01, and 
reentry from $$B0SD02, $$B0MSG1, $$BOSIGN 
or $$B0SDC1. The phase is entered at least 
once for each DLBL extent. 



Exits: 



To $$B0SD02 to read and verify the 
volume label (VOL 1) and VTOC label 
(Format 4) and prevent any extent from 
overlapping the VTOC. 

To $$B0SD06 to provide for user trailer 
labels if specified and if the last 
extent for the file has been processed. 
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• To $$B0SD07 to allow the operator to 
enter extents from the console 
following the last DLBL extent for the 
file. 

• To $$BOPEN if the open processing for 
the file is complete and another file 
remains to be opened. 

• To $$B0DQUE to dequeue extents. 

• To $$B0MSG1 for operator communication. 

• To $$B0SIGN to check for device 
assignment. 

Method ; This phase reads each extent 
record from the SYSRES label cylinder , 
tests for various conditions in their 
appropriate order, and fetches the phase 
required for further processing. If the 
normal sequence is interrupted by the entry 
of an extent from the console, the phase 
finds the next DLBL record by using the 
sequence number of the last extent 
processed before the extent was entered 
from the console. 

The processing required for each extent 
record depends on whether: 

1. The file being opened is a system 
file. 

2. The file is already open. 

3. The extent is on another volume. 

4. The extent is entered from the 
console. 

5. The extent is the last one for the 
file. 

6. The extent is to be bypassed, either 
for file protection or because it is a 
duplicate. 

7. User labels are specified. 

8. File protect is specified. 



$$B0SIGN: SD Open Ignore Chart JE 

Objective ; To check for the COBOL Open/ 
Ignore function. 

Entry ; From $$B0SD01. 

Exits ; To $$B0SD0l. 

Method : This routine determines whether 
the COBOL Open/Ignore function has been 
specified. If so, and the device is 
unassigned or assigned IGN, the open is 



bypassed. If the device is assigned, the 
open is continued. 

If the Open/Ignore option has not been 
specified, and the device is unassigned or 
assigned IGN, the job is aborted. 
Otherwise, the open continues. 

The routine also determines whether the 
assigned device is the correct device. If 
not, the job is aborted. Otherwise, 
control returns to $$B0SD01 to continue 
processing. 



$$B0SD02: SD Open Output, Volume Label 
Chart JF 



Objective : To read and verify the standard 
volume label (VOL 1) and VT0C label (Format 
4) , preventing any extent from overlapping 
the VTOC. 

Entry : From $$B0SD01, $$B0SD06, $$B0SD07, 
and reentry from $$B0MSG1. 

Exits: To $$B0SD01 if an extent overlaps 
the VTOC. 

• To $$B0SD03 to continue processing a 
sequential file. 

• To $$B0SD04 to complete the opening of 
a compiler file. 

• To $$B0SD08 to prevent the user from 
creating identical labels in the VTOC. 

• To $$B0MSG1 for operator communication. 

Method : The volume and Format 4 labels are 
read and verified, VTOC limits are saved, 
and the extent limits are checked against 
the VTOC limits for overlap. For each new 
volume that is opened for the file, an exit 
is made to $$B0SD08 to prevent the user 
from creating identical labels in the VTOC. 

For an opened SYSLNK file, this routine 
exits to $$B0SD04 after getting the VTOC 
limits to complete the opening of the file. 
Otherwise, $$B0SD03 of open output is 
fetched to further process a sequential 
file. 



$$B0SD03: SD Open Output, Extent Overlap 
Charts JG-JK 



Objective : To prevent opening any extent 
that overlaps an already existing file that 
is still active. 



80 DOS LIOCS Volume 3 SAM and DAM for DASD 



Entry ; From $$B0SD02 or $$B0SDW1, and 
reentry from $$B0SD08 or $$B0MSG1. 

Exits: 

• To $$B0SD04 to build a file label. 

• To $$B0SD05 to insert the extent in a 
file label. 



determines whether the extent is to be 
file-protected. If yes, this routine 
fetches $$BOFLPT. If no, it exits to 
$$BOPEN to open the next file, or returns 
to the problem program if no more files are 
to be opened. 



• To $$BOMSGl for operator communication. 

• To $$B0SDW2 if this phase is used for 
opening a work file. 

• To $$BOIS03 if this phase is being used 
by the Indexed Sequential File 
Management System (refer to Volume 4). 

Method ; This routine checks the incoming 
extent against all of the existing files in 
the VTOC for any overlap. If overlap 
occurs, the file label in the VTOC is 
deleted if the expiration date has been 
reached. If the expiration date has not 
been reached , a message is issued and 
action is taken depending on the operator ' s 
response. 

This phase is also used by the open work 
file routines and the indexed sequential 
file management system to check extents for 
overlap and data security. 



$$B0SDQ4: SD Open Output , File Label 
Charts JL-JM 



Objective : To build a Format 1 label, 
insert the first extent into the label, 
write it out, and update the DTF table. 

Entry : From $$BOSD02 (SYSLNK open) or 
$$BOSD03. 

Exits: 

• To $$BOSD06 if user labels are 
specified. 

• To $$BOFLPT if file-protect is 
specified. 

• To $$BOPEN if the open processing for 
the file is complete and another file 
remains to be processed. 

• To $$BOMSGl for operator communication. 

Method : This routine builds a Format 1 
label for the file, inserts the first 
extent into the label, writes it out, and 
posts the pertinent information into the 
DTF table. Then, it tests to determine if 
user header labels are to be processed. If 
yes, it fetches $$B0SD06. If no, a test 



$$B0SD05: SD Open Output, Format 3 Label 
Charts JN-JP 



Objective : To insert each extent into its 
file label, building a Format 3 label if 
required, and to update the DTF table. 

Entry : From $$B0SD03. 

Exits : 

• To $$BOFLPT if file-protect is 
specified. 

• To $$BOPEN if the open processing for 
the file is complete and another file 
remains to be opened. 

• To $$B0SDC1 if the open processing was 
entered from $$B0SDC1. 

• To $$BOMSGl for operator communication. 

Method: This routine inserts each 
successive extent into its appropriate 
Format 1 label. If more than three extents 
are specified, it is necessary to build one 
or more Format 3 labels. This routine 
posts appropriate extent information in the 
file DTF table. 



$$B0SD06: SD Open Output, User Labels 
Charts JQ-JR 



Objective : To create user header and 
trailer labels. 

Entry : From $$B0SD01 or $$B0SDC1 to allow 
user trailer labels, from $$B0SD04 to allow 
user header labels, reentry from $$B0MSG1, 
reentry from user label routine via SVC 9. 

Exits: 

• To user's label routine via SVC 8. 

• To $$B0SD02 to continue processing 
extents. 

• To $$BOFLPT if file-protect is 
specified,. 

• To $$BODQUE if old extents are to be 
dequeued. 
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• To $$BOPEN if another file is to be 
opened . 

• To $$BCLOSE if entry was from $$B0SDC1. 

• To $$BOMSGl for operator communication. 

Method ; This routine determines whether 
header labels or trailer labels are 
required. If trailer labels, it sets an 
asterisk in the DTF table for testing by 
the user. This routine finds the file mark 
that precedes the user label location. It 
then issues an SVC 8 to exit to the 
user-supplied address. It writes the 
user-supplied label when control returns 
from the user. $$B0SD06 allows up to eight 
user labels unless the user indicates 
otherwise. It writes a file mark following 
the last label. 



$$BOSD07: SD Open Output, Extents from 
Console Chart JS 



Objective ; To enter operator-provided 
extent information from the console. 

Entry : From $$B0SD01, or $$BODSPW. 

Exits: 

• To $$BOSD02 to process the new extent. 

• To $$BODSPV to display the VTOC. 

• To $$BOVDMP for a more extensive VTOC 
dump. 

Method: This routine initiates a no more 
available extents message and reads the 
operator's reply (if a 1052 has been 
assigned to SYSLOG) . If the operator did 
not cancel the job, it is assumed that an 
extent was entered, which is then checked 
for validity. If the extent is valid, this 
routine exits to $$B0SD02 to process it. 



• To $$B0MSG1 for operator communication. 

Method : This routine uses the 44-byte 
filename from the DLBL record as a key to 
search the VTOC for any identical filename. 
It deletes any identical label found if the 
expiration date is passed. Otherwise, the 
operator has the option of canceling the 
job or deleting the identical label. 



$$BOSDWl: SD Open Work File, Volume Label 
Charts KD-KF 



Objective : To read and verify the standard 
volume label (VOL 1) and VTOC label (Format 
4), preventing any extent from overlapping 
the VTOC (Volume Table of Contents). 

Entry : From $$BOSD00, $$BOSD01, $$B0SDW2, 
and return from $$BOMSGl. 

Exits : 

• To $$B0SD03 to continue processing a 
work file extent. 

• To $$BOSD08 to prevent duplicate file 
labels. 

• To $$BOPEN if the last extent has been 
processed and another file remains to 
be opened. 

• To $$B0MSG1 for operator communication. 

Method: This routine determines whether 
the symbolic unit specified in the DLBL 
statement is assigned and whether it can be 
used as a work file. It reads the volume 
label and, if the device is a 2311, 2314 or 
2319, determines if a correct disk pack is 
mounted. It reads the VTOC label and 
ensures that no extent overlaps the VTOC. 
If the VTOC has not been checked for a 
duplicate filename, $$B0SD08 is fetched to 
eliminate possible duplication. Subsequent 
exits are to $$BOSD03. (See $$BOSD03 SD 
Open Output , Extent Overlap .) 



$$BOSDQ8: SD Open Output , Delete Label 
Chart KA 



$$B0SDW2: SD Open Work File, File Label 
Charts KG-KH 



Objective : To prevent creation of 
identical file labels. 

Entry : From $$BOSD02, $$B0SDW1, $$BODA01, 
or $$BOIS03, and reentry from $$B0MSG1. 

Exits : 

• To $$BODAOl for Direct Access Method. 

• To $$B0SD03 for all other uses. 



Objective : To create a file label (Format 
1 and Format 3 labels as required). 

Entry : From $$BOSD03, and return from 
$$B0MSG1. 

Exits : 

• To $$BOFLPT if file-protect is 
specified,. 
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• To $$B0SDW1 as the normal exit. 

• To $$B0MSG1 for operator communication- 



Method ; This routine builds a Format 1 
label , inserting the first extent. This 
routine puts the extent information into 
the DTF and writes the label. 

For each succeeding extent, this phase 
inserts the new extent (three maximum) and 
rewrites the label. For additional 
extents, it creates and writes a Format 3 
label . 



$$B0SDW3: SD Open Work File, Extent to DTF 
Charts KJ-KK 



Objective : To get extent information for 
the DTF table as requested by a POINT macro 
instruction or as required by a need to 
write a record beyond the limits of the 
current extent. 

Entry : From $$BOSD00 or $$B0SDC1, with 
reentry from $$B0MSG1. 

Exits: 

• To $$BOSDCl if entered from that phase. 

• To the problem program. 

Method : This phase reads the file label 
(Format 1) and determines whether the label 
has been deleted. If this open was not 
initiated by a P0INTR or a POINTS macro, 
this routine uses the extent sequence 
number to find the next extent. If the 
open was initiated by a POINTR or a POINTS 
macro, a new extent low limit was put in 
the DTF. This phase uses the new low limit 
to find the next extent. It then enters 
the extent information in the DTF. 



$$B0SDC1: 



SD Close Charts LA-LC 



Objective : To allow writing the last block 
of data, provide a linkage to a user's 
trailer label routine, and indicate in the 
DTF table that the file is closed. 

Entry : From $$BCLOSE and reentry from 
$$B0SDW3, $$B0SD05, or $$B0SD06. 



Exits : 

• To the problem program upon completion 
of the close. 

• To $$BCL0SE if another file remains to 
be closed. 

• To $$B0SD01 if an additional file 
extent is required for writing the last 
block of data in an output file. 

• To $$B0SDW3 if an additional file 
extent is required for writing the last 
block of data in a work file. 

• To $$B0SD06 for processing user labels. 

• To the LIOCS logic module if a last 
data block must be written or updated. 

• To $$B0MSG1 for operator communication. 

Method : On the basis of file type and 
usage, this routine determines whether a 
last block of data must be processed. If 
so, it enters the SD logic module. Upon 
return, it determines whether another 
extent must be opened to provide for the 
actual write operation- For this, it goes 
to $$B0SDW3 for a work file or to $$B0SD01 
for an output file. 

After the last data block is written on 
an output file, it deletes the labels, if 
so specified. Otherwise, it updates and 
rewrites work file or output file labels. 

It also indicates in the DTF table that 
the file is closed and restores the unit 
exception indicator. If the track hold 
option has been specified, it issues an SVC 
2 to fetch $$B0SDC2 to free any tracks held 
by the file being closed. 



$$B0SDC2: SD Close: Free Track Function 
Chart LD 



Objective : To free any tracks held by the 
file being closed. 

Entry : From $$B0SDC1. 

Exits: 

• To the close monitor, $$BCLOSE. 

• To $$BCIS0A for ISAM files. 

• To the problem program. 

Method: This routine searches the track 
hold table to determine whether a track is 
being held by the file being closed. If 
so, an SVC 36 is issued to free the track. 
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If another SD file remains to be closed, 
control returns to the close monitor, 
$$BCL0SE. If ISAM files are being 
processed, control returns to $$BCIS0A. 
Otherwise, control returns to the problem 
program . 



$$BODQUE: Dequeue Extent JIBs Chart LE 



Objective : To find the Job Information 
Block (JIB) chain for a particular logical 
unit; and to clear any extent type JIBs 
associated with the logical unit, and 
release them to the available JIB chain. 

Entry : From the sequential DASD open phase 
$$BOSD01, $$B0SD06, or $$B0SDI1 to the 
label DEQUERTN. 

Exit : To the problem program if no files 
remain to be opened, or to the open 
monitor, $$B0PEN, unless the name of the 
phase to be returned to is supplied by the 
calling phase. 

Method : After storing the contents of 
registers 3 through 8 and the name of the 
phase that is to be returned to, if 
specified, phase $$BODQUE issues an SVC 22 
to seize the system; that is, to suspend 
multiprogramming operation. The phase then 
locates the proper 2-byte entry in the LUB 
table for the logical unit specified and 
examines the second byte of the LUB entry 
to determine if any JIBs are chained to the 
LUB. 



address of the next JIB in the chain is 
calculated using the pointer obtained from 
the fourth byte of the current JIB. The 
procedure is repeated for the next JIB. 

When all the chained JIBs have been 
checked, or if no JIBs are chained to the 
LUB, phase $$B0DQUE issues a second SVC 22 
to release the system for multiprogramming 
operation. Phase $$B0DQUE then fetches the 
calling phase or the first phase of the 
open monitor, $$B0PEN, if the name of the 
calling phase was not supplied and there is 
another file to be opened. If the name of 
the calling phase was not supplied and 
there are no other files to be opened, 
phase $$BODQUE returns control to the 
problem program via an SVC 11. 



$$BOSDEV: SD Close Charts LF-LG 

Objective : When FEOVD has been specified, 
$$B0SDEV closes the current volume and 
opens a new volume. 

Entry : 

• From the FEOVD macro 

• From $$B0SD05 (phase 5 of open 
sequential output) 

• From LIOCS via SVC 9 
Exits: 



If JIBs are chained to the LUB; that is, 
if the second byte of the LUB is not hex 
• FF', the address of the first JIB in the 
chain is calculated by adding the pointer 
(byte 2 of the LUB) multiplied by 4 (the 
length of a JIB entry) to the starting 
address of the JIB table. 

Byte 2 of the JIB entry is then examined 
to determine if the JIB contains an extent. 
If the JIB contains an extent, the extent 
is cleared. Once the extent is cleared, 
the pointer to the next JIB in the chain is 
obtained from the fourth byte of the 
current JIB. The current JIB is then 
placed in the available JIB chain and the 
pointer to the first available JIB (FAVP) 
is modified accordingly. When the JIB has 
been placed in the available chain, or if 
the JIB does not contain an extent, the 



• To the open monitor $$BOPEN 

• To the close phase $$B0SDC2 

• To the problem program 

Method : For an output file, an end of 
volume marker is written and the DTF is set 
up so that the next record is written on a 
new volume. The end of volume marker is a 
normal end of file record. 

For an input file, a check is made to 
determine if update has been specified. If 
it is necessary to rewrite any updated 
records, an exit is made to the module 
close routine. End of volume is posted in 
the DTF, any remaining extents on the 
volume are bypassed, and the first extent 
on the next volume is opened. 
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DIRECT ACCESS FILES 



Direct Access (DA) files refer to files 
contained on IBM 2311, 2314, 2319, or 2321 
DASD devices and processed by the Direct 
Access Method. Note that the term Direct 
Access applies to a method of processing 
DASD records and not to a type of file 
organization . 



DIRECT ACCESS METHOD 



The Direct Access Method provides a 
flexible set of macro instructions for 
creating and maintaining a data file on a 
DASD device. This technique applies 
specifically to records organized in a 
random order, but it can also be used to 
process records sequentially. The macro 
language offered by this data management 
method permits the user to load, read, 
write, update, add, or replace records on a 
DASD file. 

The Direct Access Method is an IOCS 
processing method specifically designed to 
utilize the capabilities of direct access 
storage devices. This method provides the 
following facilities: 

• Processing of records organized in a 
random order. 



• Providing a means of supplying the user 
with the Record Identifier (ID) of 
either the current record or the next 
record after a READ or a WRITE 
operation has been executed. 

The Direct Access Method is subject to the 
following restrictions: 

• Only unblocked records are processed. 

• No work area and only one I/O area can 
be specified for the file. 

• The user must supply either a track 
reference or a record identifier for 
every record read or written by logical 
IOCS. 

DASD files processed by the Direct Access 
Method must be defined for logical IOCS by 
a DTFDA macro. If a DASD file is processed 
by physical IOCS in a manner similar to the 
Direct Access Method, the file must be 
defined by a DTFPH macro. 



DTFDA MACRO 



• Processing, in physical sequence, of a 
file of records stored by record key. 

• Utilizing of track capacities, 
o Two referencing methods: 

1. Record ID (physical track and 
record address) , 

2. Record KEY (control field of the 
logical record) . 

• Multiple track searching beyond the 
specified track for resolving the key 
argument . 



Whenever a file of DASD records is 
processed by the Direct Access Method, the 
logical file must be defined by a DTFDA 
macro. This macro generates a partial DTF 
table to describe the characteristics of 
the file for logical IOCS as shown in 
Figure 25. The DTF table is completed by 
the channel program builder subroutine in 
the DA logic module. This subroutine 
builds, and inserts into the DTF table, the 
channel program CCWs needed to process the 
file. The number and specific nature of 
the CCWs varies with the imperative macros 
used with the file. Figure 36 summarizes 
the CCW chains needed to accomplish the 
function of a particular imperative macro. 
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h 



DTF Assembly 
Label 



SFilename 



Module 
DSECT Label 



IJICCB 

IJIMOD 



IJISWI 



IJIFNM 
IJIDVTP 

IJIUNT 

IJIULB 
IJIUXT 

IJIRELPT 

IJIERC 
IJITST 



IJIBPT 



IJICB2 



Bytes 



0-15 

(0-F) 

16 

(10) 



17-19 
(11-13) 
20 
(14) 

21 
(15) 



22-28 
(16-1C) 
29 
(ID) 

30-31 
(1E-1F) 



32-35 
(20-23) 
36-39 
(24-27) 

40 
(28) 



41-43 
(29-2B) 

44-45 
(2C-2D) 



46-47 
(2E-2F) 

48-63 
(30-3F) 



Bits 



Function 



-H 



Command Control Block (CCB) . 

1 = Trailer labels 

Used by FREE macro 

1 = COBOL Open/Ignore option 

1 = Track hold option specified 

1 = DTF relocated by OPENR 

Not used 

1 = SPNUNB 

Used by CNTRL macro 

Address of logic module. 

DTF type for OPEN/CLOSE (X f 22' = direct access 
files). 

1 = Output; = Input. 

1 = Verify option specified. 

1 = Search multiple track (SRCHM) specified. 

1 = WRITE AFTER or WRITE RZERO macro used. 

1 = IDLOC specified. 

1 = Undefined; = FIXUNB, VARUNB, or SPNUNB 

1 = RELTYPE = DEC 

1 = End of file. 

Filename (DTF Name) . 

Device Type. 

X'00' = 2311, X'Ol' = 2314, 2319, X , 02' = 2321. 

Starting logical unit address of the first volume 
containing the data file. This value is supplied 
by the OPEN from EXTENT cards (can be initially 
zero) . 

Address of user's label routine. 

Address of user's routine for processing EXTENT 
information. 

Pointer to relative address area: 
SFilename. P - SFilename 
2 

Address of a 2-byte field in which IOCS can store 
the error condition or status codes. 

Macro code switch for internal use: 

X'0000' = READ ID 

X f 0001 - = READ KEY 

X'0002 f = WRITE ID 

X f 0003' = WRITE KEY 

X f 0004 f = WRITE RZERO 

X'0005 f = WRITE AFTER 

Pointer to channel program build area 
(SFilename. B) minus 32. 

Control seek CCB 



j 



Figure 25. DTFDA Table (Part 1 of 6) 
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DTF Assembly! Module | 
Label JDSECT Label | 

j j 


Bytes 


Bits 


Function 




T 1 

^Filename . Z | I JICCW 
| IJIXMD 




64-71 
(40-47) 
72-75 
(48-4B) 







1 

Control Seek CCW for overlap seek routine. 

Channel program builder instruction: 
XI 36(2), CO" 


| IJIMSZ | 


76-77 
(4C-4D) 




Maximum data length for FIXUNB or UNDEF records; 
BLKSIZE for VARUNB or SPNUNB records. 


| IJISPT 


78 
(4E) 




Pointer to READ ID string (Filename. 0) ; X f 00" if 
no READ ID issued. 




79 
(4F) 




Pointer to READ KEY string (Filename. 1) ; X^O* if 
no READ KEY issued. 




80, 
(50) 




Pointer to WRITE ID string (Filename. 2) ; X'OO* if 
no WRITE ID issued. 




81 
(51) 




Pointer to WRITE KEY string (Filename. 3) ; X'OO' 
if no WRITE KEY issued. 




82 
(52) 




Pointer to WRITE RZERO string 
if no WRITE RZERO issued. 


(Filename. 4); X'00* 




83 
(53) 




[Pointer to WRITE AFTER string 
|if no WRITE AFTER issued. 


(Filename. 5); X'OO* 


| I JITRK 


84-85 
(54-55) 




Track constant: 

J2311: X f 0000 f if key length 

| X f 0020 - if key length 

2314: X^OOO 1 if key length 

X , 0045 l if key length 

2321: X^OOO' if key length 

X f 0016' if key length 


= 0; 

* 0. 
= 0; 

* 0. 
= 0; 

* 0. 


IIJIRIC 


86-87 
(56-57) 




2311: X^Oei* 
2314: X f 0101 f 
2321: X - 0084 - 




| IJILAT 


88 
(58) 



1 

! 2 
3 

5-6 

! 7 


Not used 

i 1 = Wrong-length record 
1 = Non data transfer error. 
Not used. 
1 = No room found 
Not used 
1 = Record out of extent area. 


- 




89 
(59) 


o 
1 

i 2 

i 3 
i ** 
! 5 
1 6 
1 7 


1 = Data check in count area,. 
|1 = Track overrun. 

1 = End of cylinder. 

|1 = Data check when reading key or data. 
|1 = No record found. 

1 = End of file. 

1 = End of volume. 

Not used. 


|IJILBTK 


90-95 
| (5A-5F) 




Label track address, XBCCHH, where X is the 
| volume sequence number of the device on which the 
label track is located. 



L X 1 X J. J 

This is the end of the common DTFDA table. 
Figure 25. DTFDA Table (Part 2 of 6) 
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The following section is included if UNDEF, AFTER , or RZERO is specified. 



r T T T T 

|DTF Assembly | Module | | | 

| Label | DSECT Label | Bytes |Bits| Function 

|. + + + + 

| S Filename ,L | IJILST | 96-143 | (Basic CCWs to build channel program 
| 1 1 (60-8F) | | (see Figure 33) 






144-183| 
(90-B7) | 


j Basic CCWs for undefined length or formatting 
j macros (see Figure 33). 




| IJIVIT 


184-185| 
(B8-B9) | 


| Instruction to give record length to user if 
| record length is undefined. (NOPR if no 
(RECSIZE specified.) 




| IJIFRU 


186-187| 
(BA-BB) | 


j Instruction to get record length from user if 
j record length is undefined. (NOPR if no 
JRECSIZE specified.) 


| SFilename.F 


IJIFLD 


188-192| 
(BC-CO) | 


|Work area (used for R0 address - CCHHO). 


| SFilename.K 


IJICNT 


193-200| 
(C1-C8) | 


jwork area (used for R0 data field). 


| £ Filename. C 


IJICTS 


201-208| 
(C9-D0) | 


|Work area (included only for spanned or variable 
(records for record count field). 



L X J. X X 



J 



The channel program builder strings are generated following the DTFDA table , and 
preceding the channel program building area. (See Figure 32 for the channel program 
builder string to be used for each macro.) 



r T _ 

| SFilename.O 

j SFilename.l 

j SFilename.2 

| SFilename.3 

| 6 Filename. 4 

SFilename.5 



"T T~ 

(Variable! 
j Variable | 
(Variable! 
| Variable j 
| Variable j 
(Variable 



L X X X 



Figure 25. DTFDA Table (Part 3 of 6) 



Channel program builder string for READ ID macro. 
If READ ID is not specified., the string is not 
generated. 

Channel program builder string for READ KEY 
macro. If READ KEY is not specif ied, the string 
is not generated. 

Channel program builder string for WRITE ID 
macro. If WRITE ID is not specified, the string 
is not generated. 

Channel program builder string for WRITE KEY 
macro. If WRITE KEY is not specified, the string 
is not generated. 

Channel program builder string for WRITE RZERO 
macro. If WRITE RZERO or WRITE AFTER is not 
specified, the string is not generated. 

Channel program builder strings for WRITE AFTER 
macro. If WRITE RZERO or WRITE AFTER is not 
specified, the string is not generated. 

j 
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The following section contains the channel program build areas and varies in size. 



DTF Assembly 
Label 



SFilename.B 



Module 
DSECT Label 



Bytes 



0-7 



Variable 



Variable 



Bits 



Function 



Seek CCW that is generated at program assembly 
time and used by all channel programs. 



Area to build seven CCWs; or a maximum of nine 
CCWs if spanned or variable records and 
AFTER=YES is specified. 



Area to build verify CCWs; five CCWs for fixed 
and undefined records, eight CCWs if spanned or 
variable records and AFTER=YES is specified,. 
(This area is generated only if VERIFY=YES.) 



j 



The following section is added for spanned records only. 



DTF Assembly 
Label 



Module 
DSECT Label 



Bytes 



8 bytes 
8 bytes 
1 byte 



1 byte 

2 bytes 
12 bytes 

8 bytes 



Bits 




1 
2 
3 

5-7 



Function 



Count save area. 

SEEKADR save area. 

1 = Relative addressing. 

1 = IJIGET switch on. 

1 = Ignore hold switch on. 

Reserved for use by DAMODV. 

1 = New volume SEEKADR. 

Not used. 

Reserved. 

Record size. 

Work area. 

Control word save area. 



Figure 25. DTFDA Table (Part 4 of 6) 
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The following section is added to the DTFDA table if DSKXTNT (relative addressing) is 
specified. 



r t 

|DTF Assembly | Module 
| Label J DSECT 
,. _ + 


T T T 

Label | Bytes |Bits| Function 

+ + + 


|£Filename.P | 


| 3 bytes | 


|3X'00" for padding. 


jSFilename.I | 


j 5 bytes | 


jlDLOC record area (bucket used by module). 


|SFilename.S | 


| 8 bytes j 


j SEEKADR in form: 
|M,B1,B2,C1,C2,H1,H2,R 




j 4 bytes j 


|DC A(fiSEEKADR) 




j 4 bytes | 


|DC AUIDLOC) 




j 8 bytes | 


j Work area for RELTYPE=DEC. 


| SFilename.X | 


j 4 bytes j 


jsave area for CCHH portion of actual DASD 
j address. 




j 4 bytes | 


(Alteration factor for CI in SEEKADR (see bytes 
|112-119) : 

|2311: X'OOOOOOOl' 
|2314, 2319: X , 00000001 f 
|2321: X , 000003E8 f 




j 4 bytes j 


| Alteration factor for C2 in SEEKADR (see bytes 
j 112-119) : 

|2311: X'OOOOOOOA' 
|2314, 2319: X , 00000014' 
J2321: X f 00000064 l 



L X X X X J 



Figure 25. DTFDA Table (Part 5 of 6) 
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r ~t 

DTF Assembly 
Label 



h 



Module 
DSECT Label 



Bytes 



Bits 



Function 



4 bytes 



Variable 
to end 
of DTF 
table 



Alteration factor for HI in SEEKADR (see bytes 
112-119): 

2311: X'OOOOOOOl" 

2314, 2319: X"00000001 - 

2321: X'OOOOOOIU - 



DSKXTNT table composed of a variable number of 
8-byte entries containing extent information 
in the following format: 

Bytes 0-2 TTT2 -cumulative number of tracks in 
the DSKXTNT table entries up to 
and including the current 
entry. 

3 M -volume sequence number,. 

4 B -bin number (0 for 2311, 2314 r 

or 2319) 

Bytes 5-7 TTTl -relative track number of lower 
limit of this entry - 

A 2-byte end-of-table indicator containing 
X f FFFF f follows the last entry in the DSKXTNT 
table. 



Numbers in parentheses are displacements in hexadecimal notation. 
Figure 25. DTFDA Table (Part 6 of 6) 



Direct Access Files 91 



T T 

Bytes | Bits | Function 
+ + 



0-15 
(0-F) 

16 
(10) 

17-19 
(11-13) 

20 
(14) 

21 
(15) 



22-28 
(16-1C) 

29 
(ID) 



30-31 
(1E-1F) 

32-35 
(20-23) 

36-39 
(24-27) 




1 
2 
3 
4 
5 
6 
7 



CCB. 

X'Oa 1 indicates DTF relocated by OPENR. 

3X , 00 I 

DTF type (X'23'). 

Option codes. 



1 = Output , = Input. 

Not used. 

Not used. 

Not used. 

Not used. 

Not used. 

1 = 2321, = 2311, 2314, or 2319. 

Not used. 

Filename. 



Version 3 device type code: 



X'OO' = 2311 

X'Ol" = 2314, 2319 

X f 02 t = 2321 

Last byte of filename in previous versions. 

Logical unit address of first volume containing 
the file. 

Address of user label routine. 



Address of user routine to process EXTENT 
information. 






Numbers in parentheses are displacements in hexadecimal notation. 
Figure 26. DTFPH Table For Direct Access 



DTFPH MACRO 



REFERENCE METHODS AND ADDRESSING SYSTEMS 



Figure 26 illustrates the DTF table 
generated by the DTFPH macro when the 
parameters DEVICE=2311/2314/2321 and 
MOUNTED=ALL are specified in the macro 
operand. The table contains the 
information to define a DASD file for 
processing by physical IOCS, in a manner 
similar to the Direct Access Method. 



Each record read or written must be 
identified by providing the logical IOCS 
routines of the Direct Access Method with 
two references: 

1. Track reference - location of the 
track within the pack or cell. 

2. Record number (ID) f or Record Key 
(control information) - position of 
the record on the track. 
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The user can specify the track reference or 
record ID as either an actual physical DASD 
address or as an address relative to the 
start of the file. If relative addressing 
is used, the address provided by the user 
has been converted to either a 4-byte 
hexadecimal or a 10-byte decimal address. 
Actual physical addresses are supplied as 
8-byte DASD addresses. Further details of 
the addressing systems are presented in the 
following discussion of reference methods. 



TRACK REFERENCE 



Before issuing a read or write instruction , 
the user must supply the proper track 
identification in the track reference field 
in main storage. (This field is identified 
by the SEEKADR= parameter specified in the 
DTFDA macro. ) The track identification can 
be expressed in one of three formats 
depending on the addressing system used. 

1- Actual physical addressing - the track 
identification is contained in the 
first seven bytes of the 8-byte track 
reference field (MBBCCHHR) . 

2. Relative addressing (RELTYPE=HEX) - 
the track identification is contained 
in the first three bytes of the 4-byte 
track reference field (TTTR) . 



Relative addressing (RELTYPE=HEX) - 
the record ID is the last byte 
(R-byte) in the 4-byte track reference 
field (TTTR). 



3. Relative addressing (RELTYPE=DEC) - 
the record ID is the last two zoned 
decimal bytes (RR) in the 10-byte 
track reference field (TTTTTTTTRR) . 

When a READ or WRITE macro that searches 
for record ID is executed, logical IOCS 
refers to the track reference field to 
determine which record is reguested by the 
program. The number in this field is 
compared with the corresponding field in 
the count areas of the DASD records. 

When a READ ID macro is executed, IOCS 
searches the specified track for the 
particular record. If the record is found, 
the key area (if present and defined by the 
KEYLEN= parameter in the DTFDA macro) and 
the data area of the record are transferred 
into the main storage I/O area. If the 
corresponding record ID (R portion of the 
count area on the track) is not found, a no 
record found indicator is placed in the 
user's error status indicator. The WRITE 
ID operation is the same as the READ ID 
except a record is written instead of read. 



3. Relative addressing (RELTYPE=DEC) - 
the track identification is contained 
in the first eight zoned decimal bytes 
of the 10-byte track reference field 
(TTTTTTTTRR) . 

The track reference selects the channel and 
unit on which the referenced track is 
found . 



RECORD ID 



Reference to a particular record can be 
made by supplying a specific number in the 
track reference field. This number (ID) 
refers to the consecutive position of the 
record on the given track; that is, the 
first data record on a track is number 1, 
the second is number 2, etc. 

The form in which the record ID is 
supplied in the track reference field also 
depends on the addressing system used. 

1. Actual physical addressing - the 

record ID is the last byte (R-byte) in 
the 8-byte track reference field 

(MBBCCHHR) . 



RECORD KEY 



If the DASD records include key areas, the 
records can be identified by the control 
information contained in the key. Whenever 
this method of referencing is used, the 
problem program must supply the key of the 
desired record to logical IOCS before a 
READ or WRITE macro is issued. When a READ 
or WRITE macro is executed, IOCS searches 
the track identified by the track reference 
field for the desired key. The search is 
confined to one track unless multiple track 
search is specified by the user. (See 
Multiple Track Search .) 

If the desired key is not found on the 
track, IOCS posts a no record found 
indication in the user's error status 
indicator. When the desired key is found, 
IOCS reads the data area of the DASD record 
into main storage if a READ KEY macro was 
issued. 

When a WRITE KEY macro is executed and 
the desired key is found, IOCS transfers 
the data in main storage to the data area 
of the DASD record. This replaces the 
information previously recorded in the data 
area. 
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CONVERSION OF RELATIVE ADDRESSES 



When the record address supplied by the 
user in the track reference field (SEEKADR) 
is in relative address form, it must be 
converted to an actual DASD address (CCHHR) 
before it can be handled by the routines of 
the DA logic modules. The Seek Overlap 
subroutine in the logic module performs the 
conversion. 

If the user wants to express the 
relative address as a 10-byte zoned decimal 
number (RELTYPE=DEC) , the address is packed 
and converted to binary so that it takes 
the hexadecimal TTTR form before conversion 
to an actual address. 

Conversion to an actual DASD address 
starts by comparing the TTT value given in 
the user-supplied relative address with the 
TTT2 value of each entry in the DSKXTNT 
table. (Refer to Figure 35 and to Relative 
Addressing under Initialization and 
Termination in this section of the manual.) 
The proper DSKXTNT entry is reached when 
the TTT2 value of the entry exceeds the TTT 
value in the address. The M and B2 values 
from the table entry are inserted into the 
seek address, MBBCCHHR (Bl is always 0). 
The reconversion factor is calculated by 
subtracting the TTTl value of the current 
extent entry from the TTT 2 value of the 
previous entry. The reconversion factor is 
saved for reconversion of an actual address 
to a relative address if IDLOC is 
specified. 

The user's TTT value is then divided, in 
turn, by the three device-dependent 
alteration factors; CI, C2, and HI (refer 
to Figure 38) . The quotient after each 
divide operation is placed in the 
respective position in the seek address. 
For example; the quotient (after the TTT 
value is divided by the CI alteration 
factor) , is inserted in the first C-byte of 
the seek address, MBBCCHHR. The remainder 
after each divide operation becomes the 
dividend for the next divide operation. 
The remainder after the final divide 
operation is the H2 value in the seek 
address, MBBCCHHR. The R-byte of the 
actual seek address is identical to the 
R-byte (or equivalent to the RR bytes if 
decimal relative addressing is used) in the 
TTTR relative address. 

If a record ID is returned to the user 
in relative address form after a READ or 
WRITE macro instruction is executed (IDLOC 
specified) , reconversion is accomplished by 
reversing the conversion process. Thus, 
the corresponding CCHH portions of the 
actual address are multiplied by the 
respective alteration factors and the 
reconversion factor is added to the result. 



Again, the R-byte remains unmodified 
throughout the reconversion process. If 
the decimal form of relative addressing is 
specified, the TTTR hexadecimal form is 
further converted to the 10-byte zoned 
decimal form TTTTTTTTRR. 



MULTIPLE TRACK SEARCH 



The Direct Access READ KEY and WRITE KEY 
macro routines for processing DASD files 
normally search one track for the desired 
logical record. The user can specify a 
search of multiple tracks by including the 
DTFDA entry SRCHM (SeaRCH Multiple tracks) 
in the DTF. When SRCHM is specified, IOCS 
begins the search for a specified record 
key on the track specified in the track 
reference field. The search continues 
until one of two conditions occur: 

1. An equal compare occurs between the 
key argument (record key) in main 
storage and the key of the required 
record. 

2. The end of the specified cylinder is 
reached. 

The search for multiple tracks continues 
through the cylinder, even though part of 
the cylinder may be assigned to a different 
logical file. This occurs with or without 
relative addressing. IOCS provides the 
user with an end of cylinder indicator when 
the search reaches the end of a cylinder. 
This indicator is placed into the 
error/status byte by IOCS. 



IDLOC 



The parameter IDLOC= is provided (in both 
the DTFDA and DAMOD or DAMODV macros) if 
the user wants to identify records after 
each READ or WRITE operation is complete. 
If specified, IDLOC identifies a main 
storage location where IOCS supplies the 
address (either actual or relative) of a 
DASD record. If spanned records are being 
processed, the ID returned will be that of 
the first segment of the record. The 
address returned in location IDLOC after a 
particular macro depends on a variety of 
conditions. These conditions and the 
addresses returned are summarized in Figure 
27. 

When the problem program references a 
record by ID or KEY and does not specify 
the search multiple tracks (SRCHM) option, 
IOCS returns the ID of the next record 
under normal conditions. If the user is 
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Read/Write 
Function 



I 



SRCHM = YES 



| Normal 

| I/O 

I complete | 



No 

record 

found 



SRCHM * YES 



♦End 
| of 
| cylinder 



T T 

Normal | No 
I/O | record 
complete! found 



I 



♦End 

of 

cylinder) 



EOF 

record | 
read 



Seek 
address 
not in 
extent 
area 






| READ Filename, KEY 



I Same 
I record 



I Blank 



| Next 
record 



| Next 
record 



| Dummy 
recordl 



Next 
record 



| Dummy 
I record I 



Dummy 
record 






| WRITE Filename, KEY 



| Same | Blank | Next | Next | Dummy | Next | Dummy | Dummy 
| record j j record j record j record j record | record | record 






| READ Filename, ID 



| Next | Dummy | Next | Next | Dummy | Next | Dummy | Dummy 
I record | record | record j record | j record j record | record I record 






j WRITE Filename, ID 



| Next | Dummy | Next | Next | Dummy | Next | Dummy | Dummy 
| record j record j record j record j record j record | record j record 



j. + + + + + + + + 1 



| WRITE Filename, AFTER | None 



| Dummy 
record I 



Dummy 
record 



I None 



| Dummy 
recordl 



Dummy 
record 



| Dummy 
I record I 



Dummy 
record 






| WRITE Filename, RZERO | None 



| Dummy 
I recordl 



Dummy 
record 



I None 



| Dummy 
record I 



Dummy 
record 



| Dummy 
record I 



Dummy 
record 



-J. X X X X X X J 



♦If an end-of-cylinder condition coincides with either a physical or a logical end of 
volume, the ID supplied is that of the first record on the next volume. If this 
condition occurs on the last volume, the ID supplied in IDL0C is equal to the maximum 
number of tracks for the file. A dummy record is supplied when a physical end of volume 
is reached if actual DASD addressing is used. 

Dummy record: 

Actual addressing 5 bytes (CCHHR) containing X'FFs 

Relative addressing (HEX) — 4 bytes (TTTR) containing X'FFs 
Relative addressing (DEC) — 10 bytes containing decimal 9s 

Figure 27. Record ID Returned to IDLOC 



processing records sequentially on the 
basis of the next ID, he can check the ID 
supplied by IOCS against his file limits to 
determine when he has reached the end of 
his logical file. 

If the next record ID is returned to 
IDLOC, LIOCS searches for the ID of the 
next record on the specified cylinder. If 
an end of cylinder occurs before the next 
record is found, logical IOCS: 



1. Posts the end-of -cylinder bit in the 
error/status indicator, and 

2. Updates the address to head 0, record 
1 of the next cylinder,, and posts this 
updated address in IDLOC. 

It is possible that there will be no record 
at this new address. In this case, logical 
IOCS posts a no-record-found in the 



error/status indicator, 
this possibility: 



Two ways to avoid 



2. 



Initialize the volume by writing a 
dummy record at the beginning of each 
cylinder. 

Add 1 to the record address and read 
or write again, and continue this 
process until logical IOCS finds the 
desired record. 
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CONTROL FIELD - SPANNED RECORDS 



Figure 28 illustrates the format of the 
8-byte control field associated with each 
spanned record- The first four bytes are 
called the block descriptor word and 
contain information supplied by LIOCS wher 
the record is written. The second four 
bytes are called the segment descriptor 
word and contain segment type information, 
the user supplied record length, and the 
segment control flag . 

Normal Segment : The term normal segment 
refers to any segment of the kind described 
by the segment control flag. 

Null Segment ; The term null segment refers 
to a special 8-byte segment (control field 
only) that may be written by a WRITE AFTER 
macro when the file is being created. A 
null segment is written as the last record 
on a volume and indicates that the next 
logical record is written on a new volume. 
Spanned records do not span volumes; that 
is, the first portion of a logical record 
cannot exist on one volume and the 
remainder on another. 



ERROR/STATUS INDICATOR 



When processing records in a DASD 
environment, certain exceptional conditions 
must be handled within the program. 
Because the method used for handling these 
exceptional conditions depends on the 
application and operating environment, the 
logical IOCS routines of the Direct Access 
Method provide the user with exception 
indicators. 

The user must specify a symbolic name 
for the address of a 2-byte field where 
IOCS places the exceptional condition 
codes. The symbolic name is written by the 
user in the DTFDA entry ERRBYTE. When 
needed, IOCS sets one or more of the bits 
in this error/status indicator for the 
conditions illustrated in Figure 29. 



Block Descriptor Word Segment - Descriptor Word 

, A _ A k 



R . R 



Segment Type — 
(Bit 0) 

Block Descriptor Word 



t 



Data 



Segment Control 
Flag (bits 6 and 7) 



LL = Record length including the 8-byte control 
field (U+4). 

RR = Used by the system. 

Segment Descriptor Word 

tt = Record length including the 4- byte segment 
descriptor (data length + 4). 

Segment Type: 

= Normal segment 

1 = Null segment 

f = Contains binary zeros except bits 6 and 7. 
-Segment Control Flag: 

00 = This segment is not followed or preceded by 

another segment; that is, a single contiguous 
segment contains the entire logical record. 

01 = This segment is the first segment of a mulfi- 

segmenf logical record. 

10 = This segment is the last segment of a multi- 

segment logical record. 

1 1 = This segment" is neither the first nor the last 

segment of a multisegment logical record. 

r = Contains binary zeros. 



Figure 28. Spanned Record Control Field 
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r t t T" 

| Byte I Bit | Error/Status Indicator | 
|. + + + . 



Explanation 




1 



Wrong- length record 



Not used. 

FIXUNB records : This bit is set on whenever the 



data length or key length of a record differs 
from the original record. If an updated record 
is shorter than the original record, the updated 
record is padded with binary zeros to the length 
of the original record. If the updated record is 
longer than the original record , the original 
record positions are filled and the rest of the 
updated record is truncated and lost. 

UNDEF records ; This bit is set on under the 



following conditions: 

• When a READ is issued and the record is 
greater than the maximum data size (BLKSIZE 
minus KEYLEN; or BLKSIZE minus the value of 
KEYLEN plus eight, if AFTER is used), a 
wrong-length error condition is given and 
the value returned in the RECSIZE register 
is that of the actual record length. 

• When a WRITE ID or KEY is issued and the 
record to be written is greater than the 
maximum data size, a wrong-length error 
condition is given and the record written is 
equal to that of the maximum data length. 

If the DASD record is larger than the 
maximum data size, the remainder of the 
record is padded with binary zeros. The 
value in the RECSIZE register is set equal 
to that of the maximum data length. 

• When a WRITE AFTER is issued and the record 
to be written is greater than the maximum 
data size, a wrong-length error condition is 
given and the record written is truncated to 
the maximum data length. The value in the 
RECSIZE register is set equal to that of the 
maximum data length. 

VARUNB records; This bit is set on under the 



following conditions: 

• When a READ is issued and the LL (data 
length +8) count of the record read is 
greater than the maximum value specified by 
the BLKSIZE= parameter in the DTFDA macro. 

• When a WRITE ID or KEY macro is issued and 
the LL count is greater than the value 
specified by the BLKSIZE parameter in the 
DTFDA macro. The record is written with the 
low-order bytes truncated. 



Figure 29. Error/Status Indicator (Part 1 of 4) 
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r T T T - 

| Byte I Bit | Error/Status Indicator | 
,. + + + . 



— i 
I 



Explanation 



Nondata Transfer Error 



• When a WRITE AFTER macro is issued and the 
LL count is greater than the value specified 
by the BLKSIZE parameter in the DTFDA macro. 
The record is written with the low-order 
bytes truncated. 

SPNUNB records: This bit is set on under the 



following conditions: 

• When a READ macro is issued, the 
wrong-length record error indicator is set 
if the LL (data length + 8) count is larger 
than the value specified by the BLKSIZE 
parameter in the DTFDA macro. The number of 
data bytes read into the I/O area is equal 
to the value of BLKSIZE minus 8 bytes for 
the control words. 

• When a WRITE ID or KEY macro is issued „ the 
wrong-length record indicator is set if: 

1. The LL count for the record to be written 
exceeds the value specified by the 
BLKSIZE parameter in the DTFDA macro. 

2. The data length of the record to be 
written exceeds the data length of the 
original record. 

In either of the above cases the record is 
written with the low-order bytes truncated. 

The wrong-length record indicator is also 
set when the first segment encountered for 
the original^ record is not type 00 or 01. 
In this case the no-record-found (bit 4 in 
byte 1) indicator is also set on and no 
portion of the new record is written. 

The wrong-length record indicator is set 
for multisegment records if any segment of 
the original record encountered after the 
first segment is not type 11 or 10. In this 
case the remainder of the new record is not 
written. 

• When a formatting WRITE AFTER macro is 
issued and the LL count for the record being 
written exceeds the value specified by the 
BLKSIZE parameter in the DTFDA macro. The 
record is written with the low-order bytes 
truncated. 

The record in error was neither read nor written - 
If ERREXT is specified and this bit is off (0), 
transfer took place and the problem programmer 
should check for other errors in the ERRBYTE 
field. 



Figure 29. Error/Status Indicator (Part 2 of 4) 
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r t T T~ 

| Byte I Bit | Error/Status Indicator | 
h + + + . 



Explanation 



3 

4 



5 
6 

7 


1 



No-room-found 



Record out of extent area 

Data check in count area 
Track overrun 

End-of-cylinder 



Data check when reading 
key or data 

No- record- found 



Not used. 

The no-room-found indication is applicable only 
when the formatting WRITE AFTER macro is used for 
a file. If the bit is set on, IOCS has 
determined that there is not enough room left to 
write the record; consequently , the record is not 
written. 

Not used. 

Not used. 

The relative address given is outside the extent 
area of the file- No I/O activity has been 
started and no other error indicators are set. 

This is an unrecoverable error. 

The number of bytes on the track exceeds the 
theoretical capacity,. (Will not occur when 
DOS/360 macro instructions are used.) 

The end-of-cylinder indicator bit is set on when 
SRCHM is specified for a READ or WRITE KEY and 
the end-of-cylinder is reached before the record 
is found (bit 4 of byte 1 is also turned on). If 
IDL0C is also specified, certain conditions also 
turn this bit on f possibly in conjunction with 
the no-record-found indicator (bit 4 in byte 1) - 
for further information see IDL0C. 

This is an unrecoverable error. 



The no-record-found indication is given when a 
SEARCH ID or KEY is issued and the record is not 
found . 

If SRCHM=YES is specified, the end-of-cylinder 
indicator (bit 2 in byte 1) is also set on. 

For SPNUNB records: the no-record- found 
indicator is also set on if, when the identified 
record is found, the control flag in the first 
segment encountered is not 00 or 01. In this 
case, the no- record- found indicator is set on in 
conjunction with the wrong-length-record 
indicator (bit 1 of byte 0) . 



Figure 29. Error /Status Indicator (Part 3 of 4) 



Direct Access Files 99 



r t t T" 

I Byte I Bit | Error/Status Indicator | 

j. + + + . 



Explanation 



End-of-file 



End-of -volume 



The end-of-file indication is applicable only 
when the record to be read has a data length of 
zero. The ID returned in IDLOC, if specified, is 
hexadecimal FFFFF. The bit is set only after all 
the data records have been processed. For 
example, in a file having n data records (record 
n+1 is the end-of-file record) , the end-of-file 
indicator is set on when the user reads the n+1 
record. This bit is also posted when an end of 
volume marker is detected. It is the user's 
responsibility to determine if this bit means 
true EOF or end of volume on a SAW file. 

The end-of-volume indication is given in 
conjunction with the end-of-cylinder indicator 
(bit 2 of byte 1) . This bit is set on if the 
next record ID (CCHHR where CC = n+1, HH = 0, and 
R = 1) that is returned on an end-of-cylinder is 
higher than the volume address limit. The volume 
address limit is: cylinder 199, head 9, for a 
2311; cylinder 199, head 19, for a 2314, or 2319; 
and subcell 19, strip 5, cylinder 4, head 19, for 
a 2321. These limits allow for the reserved 
alternate track area. 

If both end-of-cylinder and end-of-volume 
indicators are set on, the ID returned in IDLOC 
is FFFFF. 

Not used. 



Figure 29. Error/Status Indicator (Part 4 of 4) 



CAPACITY RECORD (RZERO OR R0) 



WRITE RZERO MACRO 



The Direct Access Method utilizes the first 
record on each track, R0, to monitor the 
amount of available space on the track. 
This record is unique in that it does not 
contain a key area even though keys may be 
specified for the data records of the file. 



The Direct Access Method reads the data 
portion of the R0 record into the 
Filename. K location in the DTF table. The 
data portion has the following format: 



The WRITE Filename, RZERO macro is used to 
erase a specified track. To do this, the 
programmer must supply the track address in 
the track-reference field identified by the 
SEEKADR= parameter of the DTFDA macro. The 
system locates the track, restores the 
number-of-bytes-remaining information in 
the data field of the R0 record to the 
maximum capacity of the track, and erases 
the remainder of the track after the R0 
record. 



• 5-bytes - The identifier (CCHHR) of 
the last record written on the track, 

• 2-bytes - The number of unused bytes 
remaining on the track. 

• 1-byte - Flag for the Direct Access 
Method for Operating System/360. 



FORMATTING MACRO 



The formatting WRITE Filename, AFTER macro 
is used to write a record after the last 
current record on a specified track. To 
perform this function, the problem 
programmer must supply, in the location 



100 DOS LIOCS Volume 3 SAM and DAM for DASD 



specified by the SEEKADR= parameter of the 
DTFDA macro, the address of the track on 
which the new record is to be written. 
This form of the WRITE macro cannot return 
the ID of the new record in the IDLOC 
field. 

When the formatting WRITE AFTER macro is 
used to write FIXUNB or UNDEF records on a 
file, the first eight bytes of the user's 
I/O area must be reserved for LIOCS. 
Therefore, the blocksize (BLKSIZE) must be 
equal to: 

8 + (KEYLEN, if specified) + D L 

The ID of the new record can be found in 
the first five bytes of the I/O area after 
the write operation is complete because 
LIOCS uses the eight bytes that are 
reserved for the record count field with 
the following format: 

• 5-byte track ID (CCHHR) 

• 1-byte key length (K L ) 

• 2-byte data length (D L ) 

When the formatting WRITE AFTER macro is 
used to write VARUNB or SPNUNB records on a 
file, the first eight bytes of the user's 
I/O area contain the record control 
information. (Refer to Figure 28 for the 
format of the 8-byte control field.) 
Therefore r the blocksize (BLKSIZE) must be 
equal to: 

Maximum D L + 8 

The ID of the new record can be found in 
the DTF table at location Filename. C after 
the write operation is complete. This area 
of the DTF table is generated specifically 
for VARUNB and SPNUNB records and is used 
for the count field of the new record. It 
has the following format: 

• 5-byte track ID (CCHHR) 

• 1-byte key length (K L ) 

• 2-byte data length (D L ) * 

* For VARUNB and SPNUNB records, D L 
includes the 8-byte control field. 



• DAMOD - for fixed- length unblocked and 
undefined records. 

• DAMODV - for variable-length unblocked 
and spanned unblocked records. 

The modules generated by these macros 
include routines for the basic imperative 
macros READ and WRITE, which allow the user 
to read, write, update, add, or replace 
records in the file. 



DIRECT ACCESS MODULES 



Under the Direct Access Method an 
individual module, either DAMCD or DAMODV 
(depending on the record format specified) , 
provides the logic to support all the 
imperative macros used to process the file. 
In each case, the CNTRL, FREE, and WAITF 
macros have individual entries into the 
required module? that is, the logic for 
executing these macro functions is tailored 
to the specific macro. On the other hand, 
the input/output macros (READ and WRITE, 
with their variations) have a common entry 
to the respective module and a common logic 
in the module for performing their 
functions. 

When the user issues a READ or WRITE 
macro instruction for a file, program 
control transfers to a logical IOCS 
routine, which builds the proper channel 
program to accomplish the command. The 
IOCS routine issues an execute channel 
program that causes the I/O request to 
start. IOCS then returns control to the 
problem program. A WAITF macro instruction 
must be issued by the user before the next 
READ or WRITE for the file. The WAITF 
macro routines test the status of the 
channel to ensure that the operation is 
complete. If the channel is busy, the 
routine waits for I/O completion. The 
WAITF macro routines supply indications of 
exceptional conditions to the problem 
program in the error/status indicator. At 
the completion of the I/O operation, 
control returns to the problem program. 



DAMOD: Input/Output Macros Charts NA-NC 



DA LOGIC MODULE MACROS 



IBM supplies two macros to generate 
independent logic modules needed to process 
records under the Direct Access Method. 
These macros are: 



Objective : To read or write a fixed-length 
unblocked or undefined record on a direct 
access file. 

Entry : From any Input/Output macro used 
with the Direct Access Method. 

Exit : To the problem program via linkage 
register 14. 
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Method ; Each of the six Input/Output 
macros has a unique expansion that results 
in a branch to a different entry point in 
the module. The entry point is at one of a 
series of exclusive OR instructions. The 
exclusive OR instructions cause a unique 
bit structure to be set up in a one-byte 
macro switch in the DTFDA table. From this 
macro switch, the module determines which 
macro has been issued. 



issued to free the held track r and control 
returns to the problem program. 

If the macro issued is a WRITE RZERO, 
CCWs are modified, and a new RO record is 
written. If track hold has been specified, 
the module issues an SVC 36 to free the 
track. Control then returns to the problem 
program. 



After the macro switch has been set, a 
test is made for undefined records or an 
end-of-file condition. If neither, the 
data length is set to the maximum length. 
If end of file, the data length is set to 
zero. If undefined and a read operation, 
the data length is set to the maximum. For 
a WRITE AFTER, WRITE KEY, or WRITE ID 
instruction, this routine gets the data 
length from the user, and determines 
whether it is greater than the maximum 
length. If so, it is set to maximum and 
the wrong-length record bit is set on in 
the DTF table. The CCW data areas are then 
updated, and a branch and link is made to 
the seek overlap routine to position the 
device for subsequent processing. If track 
hold has been specified, and entry to the 
seek overlap routine was not from the CNTRL 
or FREE macros, an SVC 35 is performed to 
hold the track. 

Next, this routine branches to the 
channel program builder to build the CCW 
chain for the macro that is being processed 
(refer to Figure 36). A test is then made 
for a WRITE AFTER or WRITE RZERO macro 
being processed. If neither of these, this 
routine issues the SVC to perform a read 
or write operation. Control then returns 
to the problem program. 

If the macro is a formatting macro 
(WRITE AF*FER or WRITE RZERO) , additional 
processing is necessary. If the macro is 
WRITE AFTER, RO is read and the capacity of 
the track is checked. If the space 
remaining on the track is not large enough 
for the record, the no- room- found bit is 
set on in the DTF and control returns to 
the problem program. 

If the track capacity is large enough, 
the routine calculates the space remaining 
on the track after the record is written 
and stores it in the RO write area. The 
channel program builder then builds a CCW 
chain to WRITE AFTER, updates the previous 
record ID by 1 in the RO write area, and 
tests for end of file. If end of file, the 
key and data length fields in the count 
field are set to zero. If not end of file, 
the key and data lengths of the record are 
inserted in the count field. An SVC is 
then issued to write out the record. If 
track hold has been specified, an SVC 36 is 



DAMOD: WAITF Macro Charts ND-NG 



Objective : To ensure that the transfer of 
a record has been completed, to supply the 
ID of a record to the user, if IDLOC is 
specified, and to post error conditions in 
the error/status indicator, if necessary. 

Entry : From the WAITF macro. 

Exit : To the problem program. 

Method : After saving the user's registers, 
this routine first issues an SVC 7 WAIT 
macro to ensure that the previous I/O 
operation is complete. The second error 
byte from the CCB is placed in the 
error/status indicator in the DTF table. 

If IDLOC is specified, IOCS supplies the 
user with the ID of a record after each 
READ or WRITE is completed (see Figure 25). 
If IDLOC is specified, a test is made for 
the type of macro issued. If a READ KEY or 
WRITE KEY macro, the routine determines if 
the search multiple track option (SRCHM) 
has been specified. If so, the ID returned 
to the user is the ID of current record 
transferred. 

If a READ or WRITE KEY macro has been 
issued without a search multiple track 
option, or a READ or WRITE ID macro has 
been issued, the ID returned to the user is 
the ID of the next record location, unless 
an end-of-cylinder condition is 
encountered. In this case, the ID returned 
is that of the first record of the next 
cylinder. If an end-of-volume condition is 
detected while updating the cylinder 
address, the end-of-volume bit is set in 
the error status indicator in the DTF 
table, and a dummy record is returned in 
IDLOC. 

After the module determines the contents 
of IDLOC, the error/status bytes are set in 
accordance with the conditions posted to 
the CCB by physical IOCS, and returned to 
the user. Then, if record length is 
undefined and a READ macro has been issued, 
the record length is calculated and 
returned to the user. This routine then 
restores the user's registers, resets the 
macro switch in the DTF table, and returns 
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control to the problem program via linkage 
register 14. 



DAMOD; CNTRL Macro Chart NH 

Objective : To perform nondata operations 
on a file. For a 2311, 2314, or 2319, a 
seek operation is executed. For a 2321, 
either a seek operation or a restore 
operation is executed. 

Entry : From the CNTRL macro. 

Exit : To the problem program. 

Method : This routine saves the user's 
registers, and then branches and links to 
the seek-over lap routine, which performs 
the nondata operation (seek for a 2311, 
2314, or 2319; seek or restore for a 2321). 
When the operation has been completed, the 
user's registers are restored, and control 
returns to the problem program via linkage 
register 14. 



DAMOD: 



FREE Macro Chart NH 



Objective : To release a protected (held) 
track on a direct access storage device. 

Entry : From a FREE macro expansion in the 
problem program. 

Exit : To the problem program. 

Method : After storing the user's 
registers, the FREE routine branches to the 
seek-over lap subroutine. The subroutine 
determines the seek address of the held 
track from the seek CCW in the channel 
program build area. The module (M) number 
from the seek address calculates the 
symbolic unit address which is then 
inserted into the control-seek CCB. An SVC 
36 is issued to free the held track. After 
completing the subroutine, the FREE routine 
restores the user's registers and returns 
control to the problem program. 



DAMODV: Input/Output Macros Charts NM-NX 



Objective : To read or write a 
variable- length unblocked or a spanned 
unblocked record on a Direct Access file. 

Entry : From any Input/Output macro used 
with the Direct Access Method. 



Exit : To the problem program via linkage 
register 14. 

Method : Each of the six Input/Output 
macros has a unique expansion that results 
in a branch to a different entry point in 
the module. The entry point is to one of a 
series of exclusive OR instructions, which 
cause a unique bit pattern to be set up in 
a 1-byte macro switch in the DTFDA table. 
The module determines which macro has been 
issued by testing this switch. 

READ Macro - VARUNB Records : The procedure 
followed for both the READ ID and the READ 
KEY macros is exactly the same. The only 
difference between the two macros is in the 
CCW chain built by the channel program 
builder subroutine, IJISBLD. Refer to 
Figure 36, Chart I for READ ID; Chart J for 
READ KEY. 

The byte count in the basic read data 
CCW (Figure 33) is set equal to the length 
specified by the user in the BLKSIZE= 
parameter for the DTFDA macro. The IJISOVP 
subroutine is then entered to execute a 
controlled seek to the proper track. Next, 
the channel program builder subroutine is 
used to build the required channel program. 
The channel program is executed to read the 
record into the I/O area and control is 
returned to the problem program. 

READ Macro - SPNUNB Records : The procedure 
followed for both the READ ID and the READ 
KEY macros is exactly the same. The only 
difference between the two macros is in the 
CCW chain built by the channel program 
builder subroutine, IJISBLD. Refer to 
Figure 36, Chart I for READ ID; Chart J for 
READ KEY. 

The byte count in the basic read data 
CCW (Figure 33) is set equal to the length 
specified by the user in the BLKSIZE= 
parameter for the DTFDA macro. The IJISOVP 
is then entered to execute a controlled 
seek to the proper track. Next, the 
channel program builder subroutine is used 
to build the required channel program, 
which is then executed to start the read 
operation. If the segment descriptor for 
the record read indicates that it is a null 
segment or that the segment contains the 
entire logical record (segment type 00), 
control is returned to the problem program. 

If the record read is segment type 01 
(the first segment of a multisegment record 
- at this point, segment types 10 or 11 
would be in error) which indicates that the 
rest of the logical record continues on 
another track, the CCW chain is modified 
and the seek address is updated to the next 
track. One of the modifications made to 
the READ ID CCW chain is the substituting 
of a TIC++8 CCW for the RDKD CCW when 
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KEYLEN is specified. This is done because 
the record key is associated only with the 
first segment of a multisegment record. 

The last eight bytes of the last portion 
of the record read into the I/O area are 
temporarily stored in the DTF table to 
allow the control words (block descriptor 
and segment descriptor) of the next segment 
to be read in along with the data (see 
Figure 30) ; these bytes are later restored 
after the control word information for the 
next segment is processed. The modified 
channel program is reexecuted to read the 
next segment into the I/O area and its 
length is added to the combined length of 
the previous segments. The combined total 
length is then compared to the BLKSIZE 
specified by the user. Should the combined 
length exceed the BLKSIZE, a 
wrong-length-record (WLR) indicator is set. 
If the segment just read is type 11 neither 
the first nor the last segment of a 
multisegment record) the procedure 
described in this paragraph is repeated. 

When the last segment (type 10) is read, 
the combined length of all the record 
segments is posted to the segment 



descriptor word in the I/O area and control 
is returned to the problem program. 

WRITE Macro - VARUNB Records : The 
procedure followed for both the WRITE ID 
and the WRITE KEY macros is exactly the 
same. The only difference between the two 
macros is in the CCW chain built by the 
channel program builder subroutine, 
IJISBLD. Refer to Figure 36, Chart K for 
WRITE ID and VERIFY, Chart L for WRITE ID 
and No VERIFY; Chart M for WRITE KEY and 
VERIFY, and Chart N for WRITE KEY and No 
VERIFY. 

The logical record length ( It ) is 
obtained from the user's segment descriptor 
word in the I/O area. The length specified 
for the record plus four bytes for the 
block descriptor word is then tested to see 
if it is greater than the maximum block 
length specified in the BLKSIZE= parameter 
of the DTFDA macro. If it is not greater 
than the BLKSIZE value, the byte count in 
the basic read data CCW (RDD CCW - Figure 
31) is set equal to the specified It + 4 
(that is, LL) value. If, on the other 
hand, the LL value is greater than the 
BLKSIZE value, the record capacity 



BLKSIZE (LL) 



RECORD LENGTH - 



-First Segment 



DATA LENGTH (D L ) — 
-*T* Next Segment 




Last 8 data bytes of segment are temporarily 
stored to make room in the I/O area for the 
control words of the next segment. 



Figure 30. Multisegment Spanned Record 
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register ( I JICPR) and the RDD CCW byte count 
are set equal to the BLKSIZE value and the 
wrong-length-record (WLR) indicator is set. 
This causes truncation of the record when 
it is written. 

The I JISOVP subroutine is entered to 
execute a controlled seek to the proper 
track. Next, the channel program builder 
subroutine is used to build the required 
channel program, which is then executed to 
write (and verify, if so specified) the 
record. Control is then returned to the 
problem program. If the track hold option 
has been specified, the track on which the 
record written resides is freed before 
control is returned. 

WRITE Macro - SPNUNB Records ; The 
procedure followed for both the WRITE ID 
and the WRITE KEY macros is exactly the 
same. The only difference between the two 
macros is in the CCW chain built by the 
channel program builder subroutine, 
IJISBLD. Refer to Figure 36, Chart K for 
WRITE ID and VERIFY, Chart L for WRITE ID 
and No VERIFY; Chart M for WRITE KEY and 
VERIFY, and to Chart N for WRITE KEY and No 
VERIFY. 

The IJISOVP subroutine is entered to 
execute a controlled seek to the proper 
track. Next, the channel program builder 
subroutine is used to build the first 
portion of the WRITE macro channel program. 
It is at this point that spanned record 
handling differs markedly from the handling 
of records of other formats. 

The first portion of the WRITE macro 
channel program (refer to Figure 36, Charts 
K or L for WRITE ID; Charts M or N for 
WRITE KEY) is actually a CCW chain to read 
the eight bytes of control information 
contained in the existing DASD record. 
This read operation is necessary because, 
before a spanned record can be written, the 
arrangement of the record being replaced 
must be determined. That is, it must be 
known if the existing record is contained 
in a single DASD segment (type 00) or in 
multiple DASD segments and, if in multiple 
segments, the lengths of the individual 
segments. Thus, for each segment of a 
multisegment spanned record, it is 
necessary to execute a read and a write 
operation. 

If the segment control flag in the 
segment descriptor of the existing record 
is type 00, the record to be written is 
handled in a manner similar to a normal 
variable-length record. That is, the 
channel program builder subroutine is 
entered to build the write CCW chain, the 
channel program is executed to write the 
new record, and control is returned to the 
problem program. 



If the segment control flag in the DASD 
segment read is type 01 (the first segment 
of a multisegment record) , the channel 
program builder subroutine is entered to 
build the write CCW chain. The CCW chain 
is then modified according to the various 
options specified for the type of macro 
being used. Next, the length of the 
current DASD segment is determined from the 
control words obtained by the read 
operation and compared to the 
user-specified length of the record to be 
written (LL) . If the record length is less 
than the length of the current segment, the 
byte count in the write data (WRD) CCW is 
changed to the length of the record (if 
VERIFY is specified, the byte count in the 
verify read data CCW is likewise changed) . 
Otherwise, the CCW byte count remains equal 
to the length of the segment that can be 
accommodated on the track; that is, the 
length of the current segment. The channel 
program is then executed to write the 
segment. 

After the first segment of the record is 
written, the seek address is updated to the 
next track and a similar procedure is 
followed for the next segment (s) of the 
record. During the procedure for writing 
segments after the first segment, the last 
eight data bytes of the preceding segment 
in the I/O are temporarily stored in the 
DTF table to allow the control words of the 
subsequent segment to be read into the I/O 
area (see Figure 30). The segment length 
obtained from the control words is used to 
set the byte count in the WRD CCW for all 
type 11 segments. Each time a segment is 
written, its length is added to the 
combined lengths of the previously written 
segments, and the total is subtracted from 
the user-specified record length. The 
result of this calculation is the number of 
bytes in the record that remain to be 
written. When the last segment (type 10) 
is written, this remainder is used to 
determine if the new record is larger or 
smaller than the original record. If it is 
larger, a WLR indicator is set and the 
truncated remainder of the record is 
written; if smaller, the byte count in the 
WRD CCW is reduced to the value necessary 
to write the remainder of the record. 

Because each segment of a multisegment 
spanned record is handled as an individual 
physical DASD, record, if the VERIFY option 
is specified, each segment is verified 
after it is written and before the next 
segment is read. Therefore, if VERIFY is 
used, three I/O operations are required for 
each segment: read, write, and read. 

WRITE AFTER Macro - VARUNB Records ; The 
byte count of the basic read data CCW 
(Figure 33) is set equal to the block 
length (LL) of the record to be written, 
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and the IJISOVP subroutine is entered to 
execute a controlled seek to the track 
specified by the user. The channel program 
builder subroutine , IJISBLD, is then used 
to build the first portion (read RZERO) of 
the channel program for the WRITE AFTER 
macro (refer to Figure 36, Chart 0) . 

Next, the ID (CCHHR) of the RO record on 
the specified track is set up in the DTF 
table, at location Filename. F, and the 
channel program is executed to read the 
8-byte data field of RO into the DTF table 
at location Filename. K. The data field of 
the RO record contains the following 
information: 

Bytes 0-1: The CCHHR of the last record 
currently written on the 
track. 

Bytes 5-6: The number of unused bytes 
currently remaining on the 
track. 

Byte 7: Not used by DOS. 

Using the information contained in bytes 
5 and 6 of the RO data field, a test is 
made to determine if sufficient room exists 
on the track to write the new record. If 
enough room is not available, the 
no-room-found indicator is set in the DTF 
table and control is returned to the 
problem program. 

If there is enough room on the track for 
the new record, the DASD space that remains 
after the new record is written is 
calculated to update the RO record. Next, 
the channel program builder subroutine is 
used to build the rest of the WRITE AFTER 
channel program, which includes the CCWs 
needed to write the updated RO record and 
the new record (and verify both, if so 
specified) . 

The channel program is then executed and 
control is returned to the problem program. 
If the track hold option has been 
specified, the track is freed before 
control is returned. 

WRITE AFTER Macro - SPNUNB Records : The 
procedure followed for the WRITE AFTER 
macro for spanned records is the same as 
that followed for variable-length records 
up to the point of testing to determine if 
there is sufficient room on the specified 
track for the new record. For spanned 
records, the test is first made to 
determine if a minimum length (KEYLEN +9) 
segment can be written in the space 
remaining on the track. If not, the 
no-room-found indicator is set in the DTF 
table and control is returned to the 
problem program. If the minimum length 
segment can fit, a second test determines 



if the entire record can be written on the 
track. If it can, the record is written in 
the manner described for variable-length 
records. 

If the entire record will not fit in the 
space remaining on the specified track, the 
length of the portion that can fit is 
calculated and subtracted from the 
user-specified length of the record. The 
seek address is then updated to the next 
track. 

The RO record for the next track is read 
and checked for full availability; that is, 
if the track is not empty, a no-room-found 
indicator is set and control is returned to 
the problem program. The data field of the 
RO record is tested to determine if all the 
remaining bytes of the record (plus eight 
bytes for control words) can be contained 
on the new track. If not, the full track 
capacity is subtracted from, the number of 
record bytes remaining to be written, and 
the seek address is once again updated. 
This process is repeated until the point is 
reached where the entire logical record can 
be accommodated. If the track hold option 
has been specified, a hold is placed on all 
the tracks checked. 

The channel program builder subroutine 
is then used to build the second portion of 
the WRITE AFTER channel program, and the 
first segment of the record is written on 
the specified track. If KEYLEN is 
specified, the key is written with the 
first segment. The rest of the record is 
then written in as many segments as 
necessary, along with the RO records for 
each of the tracks involved. If the track 
hold option has been specified, the tracks 
are individually freed after the respective 
segment is written. 

If, during the checking of the series of 
tracks needed to write the record, the 
updated seek address indicates a change to 
a new volume, the RO records of all the 
tracks between the user-specified track and 
the first track on the new volume are 
rewritten with their respective data fields 
indicating no space available. Checking is 
reinitiated on the new volume and, when it 
is established that sufficient room is 
available on the new volume, the first 
segment (and, if specified, the record key) 
is written on the first track. The rest of 
the record is written on subsequent tracks 
in the normal manner. 

WRITE RZERO Macro - VARUNB or SPNUNB 
Records : The IJISOVP and IJISBLD 
subroutines are entered in sequence to 
execute a controlled seek to the specified 
track and build the channel program. The 
ID for the RO record (CCHHO) on the 
specified track is set up in locations 
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Filename. F and Filename. K in the DTF table. 
The number of bytes remaining on the track 
is set equal to the full track capacity and 
inserted into bytes 5 and 6 of the RO data 
field (Filename. K) . The channel program is 
then executed to erase the track and write 
the updated RO record, after which control 
is returned to the problem program. 



DAMODV; CNTRL Macro Chart NY 

Objective : To perform nondata operations 
on a file. For a 2311, 2314, or 2319, a 
seek operation is executed. For a 2321, 
either a seek operation or a restore 
operation is executed. 

Entry : From the CNTRL macro. 

Exit ; To the problem program. 

Method : This routine saves the user's 
registers, and then branches and links to 
the seek-overlap routine, which performs 
the nondata operation (seek for a 2311, 
2314, or 2319; seek or restore for a 2321). 
When the operation has been completed, the 
user's registers are restored, and control 
returns to the problem program via linkage 
register 14. 



DAMODV: 



FREE Macro Chart NY 



Objective : To release a protected (held) 
track on a direct access storage device. 

Entry : From a FREE macro expansion in the 
problem program. 

Exit : To the problem program. 

Method: After storing the user's 
registers, the FREE routine branches to the 
seek-overlap subroutine. The subroutine 
determines the seek address of the held 
track from the seek CCW in the channel 
program build area. The module (M) number 
from the seek address calculates the 
symbolic unit address which is then 
inserted into the control- seek CCB. An SVC 
36 is issued to free the held track. After 
completing the subroutine, the FREE routine 
restores the user's registers and returns 
control to the problem program. 



DAMODV: WAITF Macro Charts NZ-PB 



Objective : To ensure that the transfer of 
a record has been completed, to supply the 



ID of a record to the user, if IDLOC is 
specified, and to post error conditions in 
the error/status indicator, if necessary. 

Entry : From the WAITF macro. 

Exit : To the problem program. 

Method: After saving the user's registers, 
this routine first issues an SVC 7 WAIT 
macro to ensure that the previous I/O 
operation is complete. The second error 
byte from the CCB is placed in the 
error/status indicator in the DTF table. 

If IDLOC is specified, IOCS supplies the 
user with the ID of a record after each 
READ or WRITE is completed (see Figure 25). 
If IDLOC is specified, a test is made for 
the type of macro issued. If a READ KEY or 
WRITE KEY macro, the routine determines if 
the search multiple track option (SRCHM) 
has been specified. If so, the ID returned 
to the user is the ID of the current record 
transferred. 

If a READ or WRITE KEY macro has been 
issued without a search multiple track 
option, or a READ or WRITE ID macro has 
been issued, the ID returned to the user is 
the ID of the next record location, unless 
an end-of-cylinder condition is 
encountered. In this case, the ID returned 
is that of the first record of the next 
cylinder. If an end-of-volume condition is 
detected while updating the cylinder 
address, the end-of-volume bit is set in 
the error status indicator in the DTF 
table, and a dummy record is returned in 
IDLOC. 

After the module determines the contents 
of IDLOC, the error/status bytes are set in 
accordance with the conditions posted to 
the CCB by physical IOCS, and returned to 
the user. Then, if record length is 
undefined and a READ macro has been issued, 
the record length is calculated and 
returned to the user. This routine then 
restores the user's registers, resets the 
macro switch in the DTF table, and returns 
control to the problem program via linkage 
register 14. 



Channel Program Builder 
Subroutine Chart NL 



Objective : To construct a channel program 
in accordance with the processing macro 
issued in the problem program. 

Note : Figure 36 provides a summary of the 
channel programs built to process DASD 
records by the Direct Access Method. 
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Entry : From a direct access logic module 
(either DAMOD or DAMODV) via a branch and 
link instruction- 
Exit: To the calling routine. 

Method: To perform direct access 
processing, many different channel 
programs, varying in length from 5 to 17 
CCWs, are needed in DOS (refer to Figure 
34). The many CCWs required can be built 
from 11 basic CCWs by modifying command 
codes and/or flag bytes. Of these 11 CCWs, 
5 are required for initial file loading. 
The other 6 are needed for normal file 
maintenance processing. TIC CCWs are built 
directly from storage addresses. 

For each channel program that is built, 
a string of descriptor bytes are generated 
in the DTF table at program assembly time. 
The content of the string depends on the 
imperative macro issued by the problem 
program to access the file. There is one 
descriptor byte for each CCW in the channel 
program. This descriptor byte is divided 
into three subfields, which perform the 
functions illustrated by Figure 31. 



Bit |0|1234|567 | 

|._ + + 1 

Field | AJ B | C j 

L X J. J 



Because the first CCW in any Disk 
Operating System channel program must be a 
seek command, the seek CCW is generated at 
program assembly time as the first CCW in 
the CCW build area, and is never modified. 
As each channel program is requested, the 
channel program builder subroutine is 
called to build the remainder of the CCW 
chain. 



Before entering this subroutine, the 
logic module uses the macro switch to 
determine the address of the string of 
descriptor bytes for the macro issued 
(refer to Figure 32). After pointers are 
set to the current descriptor byte and the 
CCW build area, the subroutine isolates the 
relative pointer to the basic CCW needed 
(see Figure 33) and tests to determine if 
the CCW is to be a Transfer In Channel 
(TIC) . Figure 33 shows the Basic CCWs used 
to build channel programs. 



If fields A and C of the descriptor byte 
are zero, the CCW is to be a TIC. Field B 
determines the address of the CCW to which 
control is to be transferred. This address 
and the TIC command code are stored in the 
TIC CCW (see Figure 34). If the end of the 
descriptor string has not been reached, the 
subroutine returns to build the next CCW; 
otherwise, control returns to the calling 
routine. 



Field A: References the command code. 

Field B: A relative pointer to select 
one of the 11 basic CCWs (see 
Figure 33) . 

Field C: Further defines the command 
code, and modifies the flag 
byte as required. 

Figure 31. Direct Access Descriptor Byte 



If the CCW is not a TIC, Field B 
determines which of the basic CCWs is moved 
to the build area. Fields A and C of the 
descriptor byte are tested to see which 
fields in the CCW, if any, are to be 
modified (see Figure 34). A test is then 
made for the end of the descriptor string. 
If the end has not been reached, the 
routine returns to build the next CCW in 
the chain; otherwise, control returns to 
the calling routine. 
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Macro 


Option 


FIXUNB 


UNDEF 


VARUNB 


SPNUNB 


READ ID 


No options 
KEYLEN 
IDLOC 
KEYLEN, IDLOC 


DC X'871 81 4' 
DC X'871 82C 
DC X'871 8979E' 
DC X'871 8AF9E' 


DCX'C718BF14' 
DCX'C718BF2C 
DCX'C719BF129C 
DC X'C718BF2A9C 


DCX'871816' 
DCX'87182A16 i 
DC X'8718129E' 
DC X'87182A129E' 


DC X'871816' 
DC X'87182A16' 
DC X'8718129E' 
DC X'87182A129E' 


READ KEY 


No options 
SRCHM 
ipLOC 
SRCHM, IDLOC 


DC X'8F1814' 

DC X'A718881814' 

DC X'8F18979E' 

DC X'A7189A881014' 


DC X'BF8F1014' 
DC X'A718B8881014' 
DCX'BF8F10129C 
DC X'A718B8881014' 


DC X'A7188F1816' 
DC X'A718881816' 
DC X'A7188F18l29E' 
DC X'A7189A881016' 


DCX'A7180A1816' 
DCX'A7188A1816' 
DCX'A7180A18129E' 
DC X'A7189A8A1016' 


WRITE ID 
(No VERIFY)* 

WRITE ID 
(VERIFY) 


No options 
KEYLEN 
IDLOC 
KEYLEN, IDLOC 

No options 
KEYLEN 
IDLOC 
KEYLEN, IDLOC 


DC X'871895' 
DC X'8718AD' 
DC X'8718919E' 
DC X'8718A99E' 

DC X'871 891871815' 
DC X'871 8A987182D' 
DC X'871 89187181 19E' 
DC X'871 8A98718299E' 


DC X'871895' 
DC X'8718AD' 
DC X'8718939C 
DC X'8718AB9C 

DC X'871893871815' 
DC X'8718AB87182D' 
DC X'8718938718139C 
DC X'8718AB87182B9C 


DC X'871895' 
DC X'8718AB95' 
DC X'8718919E' 
DC X'8718AB919E' 

DCX'871891871815' 

DC X'8718AB9187182B15' 

DC X , 8718918718119E' 

DC X'8718AB9187182B119E' 


DC X'8718148 71895' 
DC X'8718148718AB95' 
DCX'8718148718919E' 
DC X'8718148718AB919E' 

DC X'871814871 891871815' 
DC X'8718148718AB9187182B15' 
DC X'871814871 89187181 19E' 
DC X'87181 4871 8AB91 871 82B1 1 9E' 


WRITE KEY 
(No VERIFY) 

WRITE KEY 
(VERIFY) 


No options 
SRCHM 
IDLOC 
SRCHM, IDLOC 

No options 
SRCHM 
IDLOC 
SRCHM, IDLOC 


DCX'8F1895' 
DCX'A718881895' 
DC X'8F18919E' 
DCX'A7189A881095' 

DCX'8F18918F1815' 
DCX'A7188818918F1815' 
DC X'8F18918F18119E' 
DCX'A7189A8810918F1815' 


DC X'8F1895' 
DC X'A718881895' 
DC X'8F18939C 
_DCX'A718B8881095' 

DCX'8F18938F1815' 
DCX'A7188818938F1815' 
DCX'8F18938F18139C 
DC X'A718B88810938F1815' 


DCX'A7188F1895' 
DCX'A718881895' 
DCX'A7188F18919E' 
DCX'A7189A881095' 

DC X'A7188F18910A1815' 
DCX'A7188818910A1815' 
DCX'A7188F18910A18119E' 
DCX'A7189A8810910A1815' 


DC X'A7180A18140A1895' 
DC X'A7189A8A10148A1895' 
DC X'A7180A18140A18919E' 
DC X'A7189A8A1014BA1895' 

DC X'A7180A18140A18910A1815' 
DC X'A7189A8A10148A18910A1815' 
DC'X'A7180A18140A18910A18119E' 
DC X'A7189A8A10148A18910A1815' 


Macros WRITE AFTER and WRITE RZERO use the same strings. If AFTER Is not specified in the DEFDA macro, the strings arc not generated. 

If AFTER is specified, these strings are generated for all record formats: 

DC X'C718D752C718B5' WRITE RZERO 
DC X'C71834' READ RZERO 


And one of the following strings: 
No VERIFY 

VERIFY 


DC X'C718B18718CD' 

DC X'C718B18718C9C7183187184D' 


No options DC X'C718B18718CB95' 
KEYLEN DC X'C718B18718CBAB95' 

No options DC X'C71 8B1 8718CB91C71831 871 84B1 5' 
KEYLEN DC X , C718B18718CBAB91C7183187184B2B15' 



One string for each macro to be used is generated, dependent upon the options specified in the DTFDA macro. 
* Indicates the operation used in the example given of the Channel Program Builder. 

Figure 32. Direct Access Channel Program Builder Strings 
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Field B 


Basic CCW 


Function 


0000 


X^l'^SEEKADR+S^^O'^ 
-X , 3r / &Filename.S+3 / X'40 , / 5 


Search identifier equal using the address specified in the user's 
track -reference field. 

If relative addressing is used. 


0001 


X , 29 , ,KEYARG / X , 40 , / Key length 


Search key equal for key specified by user in KEYARG field. 


0010 


X , 06 , / &IOAREA+16 / X , 40' / Data length 
X'06',&lOAREA,X'40',BLKSIZE 


Read data into I/O area (FIXUNB and UNDEF records). 
Read data into I/O area (VARUNB and SPNUNB records). 


0011 


X'^'^IDLOC^O'^ 
X , 12 , / &Filename.I / X , 40' / 5 


Read count (CCHHR) into IDLOC. 

Read count (CCHHR) into work area in DTF table if relative 
addressing is used . 


0100 


X , 39 , / &SEEKADR-<-3,X'40 , / 4 
X'39 , / «&Filename.S / X , 40 , ,4 


Search home address equal using the address specified in the 
user's track - reference field. 

If relative addressing is used. 


0101 


X'OE'^IOAREA-iS^MCKey and Data length 
X'OE,&KEYARG,X'CO',Key length 


Read key and data into I/O area (FIXUNB and UNDEF records). 

Read key into user's KEYARG field (VARUNB and SPNUNB 
records) . 


0110 


X'06 , / &Filename.K / X , 40 , / 8 


Read R0 data into work area in DTF table. 


0111 


X , 12 , # &Filename.K / X , 40' / 8 


Read R0 count into work area in DTF table. 


1000 


X'3T # &Filename.F / X , 40 , / 5 


Search identifier equal using the address specified in the 5 -byte 
work area in the DTF table . 


1001 


X'1E , / &IOAREA / X , 40' / Counfr # Key, and Data 
length 

X'lE'^Filename.CX'CO'^ 


Read count, key, and data into I/O area (FIXUNB and UNDEF 
records). 

Read count (CCHHRKlD|_D|_) into work area in DTF table 
(SPNUNB records). 


1010 


X , ir / &Filename.B+32,X'40' / Track capacity 


Control erase of track. 



Figure 33. Basic CCWs for Direct Access Channel Program Builder 
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Field A 


Field B 


Field C 


Meaning 




N 


N 


N 


N 


1 


1 


1 


Basic CCW not modified . 




N 


N 


N 


N 











Modify command code to multiple-track 
operation . 




N 


N 


N 


N 








1 


Modify command code in write operation. 




N 


N 


N 


N 





1 





Modify command code to multi-track, 
set SLl flag on . 




N 


N 


N 


N 





1 


1 


Modify command code to write, set SLl 
flag on. 




N 


N 


N 


N 


1 








Modify command code to multi-track, 
set CC flag off. 




N 


N 


N 


N 


1 





1 


Modify command code to write, set CC 
flag off. 
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N 


N 


N 


1 


1 





Modify command code to multi-track, 
set CC flag off, SLl flag on . 
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N 


N 


N 
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Set SKIP flag on in CCW. 
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N 


N 


N 





1 





Set SLl flag on in CCW. 





N 


N 


N 


N 
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1 


Set SLl and SKIP flag on in CCW. 





N 


N 


N 


N 


1 








SetCC flag off in CCW. 





N 


N 


N 


N 


1 





1 


Set CC flag off, SKIP flag on in CCW. 





N 


N 


N 


N 


1 


1 





Set CC flag off, SLl flag on in CCW. 





N 


N 


N 


N 


1 


1 


1 


Set CC flag off, SLl and SKIP flag on 
in CCW. 


























TIC to *- 32 
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TIC to *- 24 
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TIC to *- 16 
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TIC to *- 8 








1 

















TIC to*-0 








1 





1 











TIC to *+8 








1 


1 





, 








TIC to*+16 


, 





1 


1 


1 











TIC to *+24 





1 




















TIC to*+32 



Bit 



1 



NOTE: NNNN = bits 1 -4 of the descriptor byte and is one of the 1 1 bit combinations shown in 
Figure 31 under the column heading Field B. This field contains the relative 
pointer to the basic CCW (Figure 31). 

CC - Command Chaining 

SLl - Suppress Length Indicator 

SKIP - Suppress Transfer of Information to main storage. 

Figure 34. Direct Access Channel Program Descriptor Bytes 
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Descriptor Byte 


CCW Built 


Meaning 




X'OA&SEEKADR+^XW^ 


Seek to the address specified in 
the user's track reference field. 


X'87' 


X'ST^SEEKADR+a^MO'^ 


Search identifier equal the address 
specified in the user's track 
reference field. 


X'18' 


X'08', Pointer to *-8 


TIC to*-8. 


X'93' 


X , 05 , / &IOAREA+16,X'60 I , 
Data length 


Write the data portion of the 
record from the IOAREA . 


X'9C' 


X , 12 , ,&IDLOC / X'00 , ,5 


Read the count field into IDLOC. 



Figure 35. Example of the Direct Access Channel Program for a WRITE ID Macro 



The following discussion describes how 
the direct access channel program builder 
constructs a channel program for the given 
example. 

Example ; Write an undefined record 
referenced by ID in the location specified 
by the user's track-reference field, and 
return the corresponding track record 
identifier (CCHHR) in IDLOC (option). 

Figure 35 illustrates the CCWs needed 
for the complete channel program to 
accomplish this operation. In all, five 
CCWs are required. The first CCW (seek) is 
generated at assembly time and the 
remaining four CCWs are built using the 
string of descriptor bytes included as part 
of the DTF table for the WRITE ID macro. 
Refer to Figure 32. The descriptor string 
for the WRITE ID macro is: 

X , 8718939C f 

Except for the Seek CCW that is generated 
for any channel program at assembly time 
and never modified, each pair of 
hexadecimal characters (descriptor byte) 
corresponds to one CCW. Thus, X'87 f 
corresponds to the CCW to Search Identifier 
Equal as illustrated in part 1 of the 
explanation that follows. 

The CCW chain is generated from the 
descriptor string in this order: 

1. X'87' (10000111): Figure 33 
illustrates that the CCW for a 
descriptor byte with a B-field = 0000 
is a Search Identifier Equal CCW. 
Figure 34 further illustrates that a 
descriptor byte with an A- field = 1 
and a C-field = 111 performs no 



modification of the basic CCW. 
Therefore, the second CCW (the first 
being the Seek CCW) in the channel 
program CCW chain is an unmodified 
Search Identifier Equal CCW, 
X'31 , ,SSEEKADR+3,X , 40 , ,5 (refer to 
Figure 35) . 



2. X f 18' (00011000): Because both the A 
and C fields are all zeros (a 
characteristic of a descriptor byte 
used to generate a TIC CCW) , the 
second descriptor byte in the string 
generates a TIC CCW for the third CCW 
in the channel program. Figure 34 
illustrates that a descriptor byte of 
this kind with a B-field = 0011 
supplies the CCW, TIC to * - 8 (refer 
to Figure 35 for generated CCW) . 

3. X'93 1 (10010011): The B-field = 0010 
in this descriptor fcyte indicates that 
the next CCW in the channel program 
chain will be the third basic CCW 
(refer to Figure 33). Because the 
A-field = 1 and the C-field = 011, 
Figure 34 shows that the command code 
is modified to a WRITE and that the 
SLI (Suppress Length Indicator) bit is 
turned on. 

4. X'9C f (10011100): The B-field = 0011 
in the last descriptor byte indicates 
that the last CCW in the chain will be 
the fourth basic CCW in Figure 33, 
Read Count into IDLOC. A descriptor 
byte with an A-field = 1 and a C-field 
= 100 indicates that the command code 
is modified for a multitrack operation 
and that the command chaining bit is 
turned off to signify the end of the 
channel program (Figure 34). 
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CO 


H 


§ 







h 


CD 
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3 


Oj 


CO 


D 
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Mi 
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a> 
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> 


Hi 


CO 




D 


H 



WRITE Filename, KEY (Continued) 




1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW. 

XW^EEKADR+^X'OO'^ 




18 

38 
10 





GENERATED 
CCW CHAIN 




X'39' 


SEEKADR+-3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


FILENAME. K,X'40',8 


RDID 


X'A9 


,KEYARG,X'40',Kl 


SRCHKE 


X'08' 


*-16 


TIC 


X'05' 


IOAREA' + Kl^'SO'^l 


WRD 



X'39' 


^EEKADR+S^O'^ 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


IDLOCX'60',5 


RDID 


X'A9 


^EYARG^^O'^l 


SRCHKE 


X'08' 


*-16 


TIC 


X'05' 


IOAREAI+K L ,X'10',D L 


WRD 



J9C 



X , 29' / KEYARG,X , 40',K L 
X'08',*-8 

X'OS'JOAREAI+K^XVO'^l 
X^'JDLOCX^O 1 ^ 



[SRCHKE 

ITIC 

[WRD 

[rdid 



X'39 , ,SEEKADR-3,X'40 , ,4 


[SRCHHAE 




& 


X'03',*-8 


|TIC 




18 


X , A9 , ,KEYARG,X , 40 , ,K L 


jsRCHKE 




188'. 


X'08',*-8 


;tic 




18. 


X'OS'JOAREAI+K^X^Dl 


"WRD 




95 



X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'A9 


,KEYARG,X'40',K L 


SRCHKE 


X'08' 


*-8 


TIC 


X'05' 


IOAREA1+K L ,X'10',D L 


WRD 



X'29 , ,KEYARG,X'40',K L 
X'08',*-8 

X'05',IOAREA1+K L ,X'50',D L 
X^'JDLOC^O'^ 



WRD 
iRDID 



X , 29',KEYARG,X , 40 , ,K l 

X'08',*-8 

X'Ctf'JOAREAl+K^X^O^DL 



'SRCHKE 
'iTIC 

'WRD 



X'29' 


,KEYARG,X'40',K L 


SRCHKE 


X'08 1 


,*-8 


TIC 


X'05' 


JOAREAI+Kl^'IO'^l 


V/=D 



o 

h 

CD 
O 
C+ 

> 

o 
o 

CD 
W 
W 

W 






o 

13 



h 




ft- 
o 



WRITE Filename, RZERO 



•< DESCRIPTOR STRING * 
* POINTER I; 



GENERATED 
CCW CHAIN 



!C7f 
18 

•52J- 
?C7. 



X'31' 


,FilenameF,X'40',5 


■SRCHIDE 


X'08' 


,*-8 


[TIC 


x'ir 


,FilenameB+32,X , C0',8 


IERASE 


X'll 1 


,X , 3000 I ,X I 60 , ,3625 


Jerase 


X'31' 


^ilenameFjX^O'^ 


iSRCHIDE 


X'08' 


,*-8 


Itic 


X'05' 


,FilenameK,X'10',8 


'WRD 



WRITE Filename,AFTER 



: DESCRIPTOR STRING 
I POINTER _.„.- 



(READ RZERO) 



X'3r,Filena 


meF.X^O'.S 


ISRCHIDE 


X'08',*-8 




jTIC 


X'06',Filena 


meK,X'00' # 8 


[rdd 



X'31' 


FilenameF,X'40',5 


'SRCH1DE 


X'08 1 


*-8 


.TIC 


X'05' 


Filenamel^X'SO'^ 


'WRD 


X'31' 


SEEKADR+3,X'40',5 


'SRCHIDE 


X'08" 


,*-8 


'tic 


X'lD 


,IOAREA1,X'50',C+K L +D L 


JWRCKD 


X'31' 


^ilenameFjXMO'^ 


JSRCHIDE 


X'08' 


,*-8 


ITIC 


X'06' 


FilenameK^'SCB 


'RDD 


X'31' 


SEEKADR+3,X'40',5 


'SHCHIDE 


X'08' 


,*-8 


Jtic 


X'lE' 


,IOAREA1,X'10',C+K L -D L 


jRDCKD 




SHADED AREAS- ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 



ALL CCW CHAINS ARE PRECEDED 
BY THE FOLLOWING SEEK CCW: 



X'O^SEEKADR+^X'OO'^ 



x'3r 


,Fi\ename?,X'4Q',5 


ISRCHIDE 


X'08' 


,*-8 


[tic 


X'06' 


,FilenameK,X'00',8 


,RDD 



X'31' 


FilenameF^MCS [SRCHIDE 


X'CS' 


*-8 |TIC 


X'05' 


File^-^X'SO'^ |WRD 


X-31' 


SEEKADn-S.X'-lO'.S 'SRCHIDE 


X'CS" 


*-S |TIC 


X'lD" 


,ICA-.£A1,X'10',C-C L -D L ,V/RCKD 






H 


*d 


to 


p- 


o 


05 




c 




H 


o 


(T> 


O 




w 


U) 




ON 


t* 


• 


H 




O 




O 


a 


03 


> 


< 


o 





cr 


H 


OJ 


a 


3 


3 


3 


fl> 


CD 




H 


U) 






»d 


CO 


h 


§ 




v3 




H 


Ui 


OJ 


3 


3 


a 


CO 


a 
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> 


►tf 
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a> 




H 
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o 




h 


00 


D 
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Hi 
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a 


h* 



READ Filename, ID 





GENERATED 
CCW CHAIN 



X'SI^SEEKADR+S^W^ |SRCHIDE 

I 

X'08',*-8 I TIC 

I 

X'OE^KEYARCX'ECKl |RDKD 

X'Od'JOAREAjXW, BLKSIZE |RDD 

I 
X^'JDLOC^O'^ |RDID 



2*-^ 





X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OE' 


,KEYARG,X'EO',K L 


RDKD 


X'06' 


JOAREA^W, BLKSIZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'SI'^EEKADR+^XMO'^ 
X'08',*-8 

X'OE'^EYARG^'EOSKl 
XWJOAREA^O', BLKSIZE 




X'Sl'^EEKADR+S^O'^ 


SRCHIDE 


x-osv-s 


TIC 


X'06', IOAREA,X'60', BLKSIZE 


RDD 


X'^'JDLCCX^O'^ 


RDID 



j SRCHIDE 




Si 




X'Sl^SEEKADR+^XMO'^ 


j TIC 

Irdkd 




s.ts- 

2A 




X'08',*-8 
X'OE'^EYARG^'EO',^ 


1 RDD 




U6; 




X'06', IOAREA,X'20', BLKSIZE 



Irdkd 
I rdd 



87 



1 . SHADED AREAS - ASSEM3LY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE'PRECEDED BY THE 
FOLLOWING SEEK CCW: 

XU^SEEKADR+UX'OO 1 ^ 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW (DESCRIPTOR 3YTE 9E) IS 



INSTEAD OF IDLOC. 

4. THE CCW CHAINS SHOWN FOR SPNUN3 RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE COV'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 



X'31' 


^EEKADR-K^XMCS 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


JOAREA^'dO', BLKSIZE 


RDD 


X'92' 


, IDLOC, X'20',5 


RDID 



X'31' 


,SEEKADR+3,X'40',5 


1 

| SRCHIDE 


X'08' 


,*-8 


1 
|TIC 


X'06" 


,IOAREA,X'20', BLKSIZE 


1 

|RDD 
1 



X'Sl'^EEKADR+S^O'^ 


SRCHIDE 


X'08',*-8 


TIC 


X'Od'JOAREA^O', BLKSIZE 


RDD 



o 
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(0 

o 
ft 
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o 
o 

<D 
CO 
CO 

H 
CD 
to 



CO 



O 

ST 

(D 
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O 
<3 
H 
0> 

CO 



h3 

H 

ft 



O 
Hi 



4? 



READ Filename, KEY 







GENERATED 
CCW CHAIN 




X'39' 


SEEKADR+S^O'^ 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


IDLOC,X'60',5 


RDID 


X'A9 


^EYARG^MO'^l 


SRCHKE 


X'08' 


*-16 


TIC 


X'06' 


,IOAREA,X'20',BLKSIZE 


RDD 





i8« 



X'39 1 


SEEKADR+3,X'40' f 4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'92' 


IDLOC,X'60',5 


RDID 


X'A9 


^EYARCX'dO'^L 


SRCHKE 


X'08' 


*-16 


TIC 


X'06' 


,IOAREA,X'20',BLKSIZE 


RDD 



XW^EEKADR+S^MO'^ - ISRCHI 
I 

X'OSV-S ITIC 

I 

X , A9 , ,KEYARG / X'40 , ,K L |SRCHI 

X'08',*-8 ITIC 

I 
X'Od'JOAREA^O', BLKSIZE I RDD 

I 




X*39' 


,SEEKAD?-3, X'40',4 


1 

1 SRCHHAE 


X'03' 


,*-8 


i TIC 


X'29' 


,KrfA-^,X'^',K L 


1 SRCHKE 


X'Cc' 


r-i 


1 TIC 


X-' 


^'CA^X'dO', BLKSIZE 


I RDD 


X'?2' 


.^LCC.X^O'^ 


1 RDID 



m 



X'55", 


see-ca^-:,^:-,.: 


SRCHHAE 


X'CS', 


•-£ 


TIC 


X'A9' 


keya-3, >.■:>;•,<, 


SRCHKE 


X'CV, 


*-E 


TIC 


X'C5\ 


lOA^X^', BLKSIZE 


RDD 




1 . SHADED AREAS -ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

X'O^SEEKADR+UX'OO 1 ^ 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
WILL BE CHANGED TO: 

SRCHHAE- Filenc-re.S-3 

RDCNT -Filenc-^.l 

4. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FO* SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 



XWfSEEKADIMfXW^ 


SRCHHAE 


X'08',*-8 


TIC 


X^KEYARCX'M'jKl 


SRCHKE 


X'08',*-8 


TIC 


X'06 1 , IOAREA,X'60', BLKSIZE 


RDD 


X'WflDLOC^XSO'^ 


RDID 



X'39' 


SEEKADR+S^MO'^ 


SRCHHAE 


X'08' 


r*-8 


TIC 


X'29 


^EYARCXMO',^ 


SRCHKE 


X'08' 


*-8 


TIC 


X'06' 


lOAREA^O', BLKSIZE 


RDD 



XW^EEKADR+S^O'^ 


1 

1 SRCHHAE 

1 


X'08',*-8 


Itic 
1 


X^KEYARCXW,^ 


1 SRCHKE 
1 


X'08',*-8 


Itic 
i 


X^IOAREA^CBLKSIZE 


lRDD 



to 



H 


*J 


to 


H- 


to 


U3 




C 




H 


g 


CD 


Co 


LO 




ON 


t-* 


• 


H 




O 




O 


a 


CO 


> 


< 


o 


o 


tr 


H 


a» 


cj 


p 


§ 


3 


fl> 


n> 




H 


U) 






^ 


CO 


h 


Jy 





3J 


iq 




M 


ft 


&> 


3 


3 


Oj 


w 


D 


/■* 


> 


>ti 


3 


GJ 




H 


Hi 


(+ 







H 


H 




O 


D 




> 





CO 


Hi 


D 






R 




-P 



WRITE Filename, ID 





KEYLEN | \ NO 

^Specified j 




YES / flDLOc'i^X 
{Specified 



GENERATED 
CCW CHAIN 



"9EJ 



X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OD 


^EYARG^W,^ 


WRKD 


X'05' 


,IOAREA,X'40', BLKSIZE 


WRD 


X'31' 


^EEKADR+S^O'^ 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OE' 


,KEYARG,X'F0',K L 


RDKD 


X'06' 


,IOAREA,X'50', BLKSIZE 


ROD 


X'92' 


,IDLOC,X'20',5 


RDID 





.87 

;i8 



;87: 



X'31' 


^EEKADR+SfXMO^S 


srchide 


X'08' 


,*-8 


TIC 


X'06' 


,IOAREA,X'00',8 


RDD 




1 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OD 


,KEYARG,X'60*,K L 


WRKD 


X'05' 


,IOAREA,X'40', BLKSIZE 


WRD 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OE' 


,KEYARG,X'F0',K L 


RDKD 


X'06' 


JOAREA^O'^LKSIZE 


RDD 


X'92' 


JDLOC^^O'^ 


RDID 



X'31' 


^EEKADR+S^MO'^ 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OD 


,KEYARG,X'60',K L 


WRKD 


X'05' 


JOAREA^MO'^LKSIZE 


WRD 


X'31' 


jSEEKADR+SfX'^'jS 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'OE' 


^EYARCX'FCKl 


RDKD 


X'06' 


lOAREA^'lO'^LKSIZE 


RDD 




1. SHADED AREAS -ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

XU^SEEKADR+^X'OO'^ 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE RDCNT 
CCW (DESCRIPTOR BYTE 9E) IS 
CHANGED TO: 

Filename. I 

4. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 



X'31' 


fSEEKADR+S^O'^ 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


JOAREAfXMO', BLKSIZE 


WRD 


X'31' 


^EEKADR+SjX^O'^ 


SRCHIDE 


X'08' 


r*-8 


TIC 


X'06' 


JOAREA^'SO'^LKSIZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'Sl^SEEKADR+S^CS | SRCHIDE 
X'08',*-8 TIC 
X'Od'JOAREA^'OO'^ | RDD 




X'S^SEEKADI^XMCS J SRCHIDE 
X'08',*-8 1 TIC 
X'OD'^EYARG^'cO',^ | WRKD 
X'OS'JOAREA^MO', BLKSIZE | WRD 
X'3r,SEEKADR+3,X'40',5 SRCHIDE 
X'08',*-8 TIC 
X'OE^KEYARCX'FO'^l RDKD 
X^'JOAREA^'IO', BLKSIZE 1 RDD 




X'31' 


jSEEKADR+a^MO'^ 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06" 


JOAREA^'OCS 


RDD 




1 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


JOAREA^^'^LKSIZE 


WRD 


X'31' 


^EEKADR+S^X'^O'^ 


SRCHIDE 


X'08' 


#*-8 


TIC 


X'06' 


JOAREA^O'^LKSIZE 


RDD 


X'92' 


,IDLOC,X'20',5 


RDID 



X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X"05' 


,IOAREA,X'40',BLKSIZE 


WRD 


X'31' 


^EEKADR+S^MO'^ 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


JOAREA^'IO'^LKSIZE 


RDD 



X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


JOAREA^'OO'^ 


RDD 






X'31' 


^EEKADR+S^MO'^ 


SRCHIDE 


X'03' 


,*-8 


TIC 


X'05' 


JOAREA^O'^LKSIZE 


WRD 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


#*-8 


TIC 


X'06' 


JOAREA^'IO^BLKSIZE 


RDD 



o 

H- 
H 
(D 
O 
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> 

a 
o 

w 
w 

(D 
CO 
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CD 



o 

13 
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H 




1 . SHADED AREAS -ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWI NG SEEK CCW: 

XWjSEEKADR+^X'OO'^ 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW IS CHANGED TO: 



Filer 



!.l 



THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00) . THE CCW'S IN 
THE CHAINS ARE MODIFI ED FOR MULTISEGMENT 
RECORDS ARE THE BYTE COUNT (SLKSIZE) FOR 
THE ROD AND WO CCW'S WILL BE CHANGED 
ACCORDINGLY. 



GENERATED 
CCW CHAIN 



|J7J X'Sl^SEEKADR+S^W^ 

Wp X'08',*-8 

X'0D',KEYARG,X'60',K L 
X'05', IOAREA, X'40', BLKSIZE 
XWJDLOC^O'^ 



SRCHIDE 
TIC 

I WRKD 
WRD 
RDID 



!ABi 

m 



X , 3\\SEEKADR+3,X'40',5 | SRCHIDE 
X'08',*-8 | TIC 
X'06', IOAREA, X'OO', 8 1 RDD 


1 


X'Sl^SEEKADR+S^O'^ 1 SRCHIDE 
X'08',*-8 1 TIC 
X'OD^KEYARG^VSO',^ 1 WRKD 
X'05', IOAREA, X'40', BLKSIZE j WRD 
X^'JDLOCX^O'^ 1 RDID 



}8?.i 



X'31' 


SEEKADR+3,X'40',5 


I SRCHIDE 


X'08' 


r*-8 


1 TIC 


X'OD 


,KEYARG,X'60',K L 


1 WRKD 
| 


X'05' 


, IOAREA, X'OO', BLKSIZE 


1 WRD 

1 



X'21' 


,SIZKA3?-3,X'40',5 


1 

| SRCHIDE 


X'DS" 


r-i 


1 TIC 


X— 


.iC-^E^X'-iO^BLKSIZE 


1 WRD 


A'?2' 


,=lcc.x^.5 


1 RDID 
1 



X'31' 




SRCHIDE 


X'Zl' 


'-£ 


TIC 


X'Cc' 


IC^£A.,.<:C',S 


RDD 




1 


X'31' 


SiE'^AJ\-2,X'^Z , ,5 


SRCHIDE 


X'08' 


*-8 


TIC 


X'OD' 


,KEYARG,X'60',K L 


WRKD 


X'05' 


IOAREA, X'OO', BLKSIZE 


WRD 



X'3T 


^EEKADR+^XMO 1 ^ 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


, IOAREA, X'OO', 8 


RDD 




1 


X'31' 


^EEKADR+SjX^CS 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


, IOAREA, X'40 1 , BLKSIZE 


WRD 


X'92' 


JDLOC^O'^ 


RDID 



B* 



X'Sl'^EEKADR+S^MO'^ I SRCH1I 

I 

X'08',*-8 I TIC 

I 

X'OS'JOAREA^'OO^BLKSIZE I WRD 



X'3r,SEEKADR+3,X'40',5 | SRCHIDE 
X'08',*-8 1 TIC 
X^IOAREA^'OCS I ROD 


1 


X'S^SEEKADR^X'^o j 5 -.CHIDE 
X'08',*-8 | TIC 
X'OS'JOAREA^'OO'^LKSIZE I WRD 



to 



R 


*i 
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sr 


H 


ft) 
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►d 
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iQ 
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ft) 


ft) 
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CO 
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s 


ft) 
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Hi 


ft 







h 


r 




ro 


a 
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o 


to 


Hi 


o 






X'39 1 


,SEEKADR-3,X'40\4 


SRCHHAE 


X'03' 


,'-3 


TIC 


X'92' 


,IDLCC,X'60',5 


RDID 


X'39' 


,KEYARG,X'40',K 


SRCHKE 


X'08' 


,*-16 


TIC 


X'05' 


IOAREA,X'40', BLKSIZE 


WRD 


X'29' 


KEYARG,X'60',K L 


SRCHKE 


X'08' 


*-8 


TIC 


X'06' 


IOAREA,X'10',BLKSIZE 


RDD 



XW^EEKADI^X^tM 


SRCHHAE 


X'08',*-8 


TIC 


X'92 , ,IDLOC,X , 60' / 5 


'.DID 


X , A9 , ,KEYARG,X , 60 , / K 


SRCHKE 


X'08',*-16 


TIC 


X'06 , ,lOAKEA,X , 0O' t 6 


RDD 






X'A9',KEYARG,X , 60 , ,K L 


-RCHKE 


X'08',*-8 


TIC 


X'OS'JOAREA^MO'^LKSIZE 


WRD 


X^KEYARG^'dO',^ 


SRCHKE 


X'08',*-8 


TIC 


X'06', IOAREA,XM0', BLKSIZE 


RDD 



m! 



X'39' 


# SEEKADR+3,X , 40 , # 4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'39' 


,KEYARG # X*40' # K L 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05' 


,IOAREA,X'40', BLKSIZE 


WRD 


X'29' 


KEYARG^'oO'X 


SRCHKE 


X'08' 


*-8 


TIC 


X'06' 


lOAREA/X'lO', BLKSIZE 


RDD 



il§J 
S3 

llyf 

i?6' 



X'39' 


SEEKADR+3,X'40\4 


SRCHHAE 


X'08' 


*-8 


TIC 


X'29' 


KEYARG,X'60' / K L 


SRCHKE 


X'08' 


*-8 


TIC 


X'05' 


lOAREA^^CELKSIZE . 


WRD 


X'29' 


KEYARG,X , 60 , ,K L 


SRCHKE 


X'08' 


r*"8 


TIC 


X'06' 


,IOAREA,X'50', BLKSIZE 


RDD 


X'92' 


flDLOCfXW^ 


RDID 



X'39',SEEKADR+3,X , 40 , ,4 


SRCHHAE 


X'08',*-8 


TIC 


X'92 , ,IDLOC,X , 60 , ,5 


RDID 


X , A9',KEYARG,X , 60 , ,K L 


SRCHKE 


X'08',*-16 


TIC 


X'06' / IOAREA,X , 00 , ,8 


RDD 






X , A9',KEYARG / X , 60 , / K L 


SRCHKE 


X'08',*-8 


TIC 


X'05', lOAREA^^O', BLKSIZE 


WRD 


X^KEYARG^W^ 


SRCHKE 


X'08',*-8 


TIC 


X'06', |OAREA,X'10', BLKSIZE 


RDD 



X'39' 


^EEKAD^XW^ 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'29' 


,KEYARG,X'60',K 


SRCHKE 


X'03' 


,*-8 


TIC 


X'06* 


,IOAREA,X'00',8 


RDD 






X'29' 


,KEYARG,X'60',K L 


S'XHKE 


X'08' 


,*-8 


TIC 


XW 


^OAREA.X^O', BLKSIZE 


WRD 


X'29' 


,KEYARG,X'60',K L 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


^OAREA^'SO', BLKSIZE 


RDD 


X'92' 


rlDLOCX^CS 


RDID 



X'39' 


^EEKADR+S^MO'^ 


SRCHHAE 


X'08 1 


,*-8 


TIC 


X'29' 


^EYARG^^VK 


SRCHKE 


X'08' 


,*-8 


TIC 


X'05' 


JOAREA^O', BLKSIZE 


WRD 


X'29' 


^EYARG^'oO',^ 


SRCHKE 


X'08' 


,*-8 


TIC 


X'06' 


JOAREA^'ICBLKSIZE 


RDD 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

XW^EEKADR+l^'OO'^ 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESSES IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO: 

SRCHHAE- Filename. S+3 

RDCNT -Filename. I 

4. THE CCW CHAI NS SHOWN FOR SPNUNB 
RECORDS ARE THOSE INITIALLY GENERATED 
FOR SI NGLE SEGMENT RECORDS (TYPE 00). 
THE CCW'S IN THE CHAINS ARE MODIFIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSI ZE) FOR THE RDD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 



iA7 

(6a! 
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IT 





X , 39',SEEKADR+3,X , 40 , ,4 


SRCHHAE 




X'08',*-8 


TIC 


*• 


X , 29 , ,KEYARG / X , 60 , ,K 


SRCHKE 




X'08',*-8 


TIC 




X'OdMOAREA^'OCS 


RDD 










X'29',KEYARG,X , 60 , ,K L 


SRCHKE 




X'08\*-8 


TIC 




X'05', IOAREA,X'40\ BLKSIZE 


WRD 


*J 








X'29 , ,KEYARG,X'60 , ,K 


SRCHKE 




X'03',*-8 


TIC 




X'06', lOAREA^'lO 1 , BLKSIZE 


RDD 



a 

n 

a> 
a 
ft 

> 
o 
o 

W 

w 

a> 
w 






O 

tr 

CD 



h 
O 

w 



0> 



W 



O 
Hi 



WRITE Filename, KEY 








GENERATED 
CCW CHAI N 




X'39' 


SEEKADR+3 f X , 40 , f 4 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'92' 


,IDLOC,X'60',5 


RDID 


X'A9 


^EYARG^^O^Kl 


SRCHKE 


X'08' 


,*-16 


TIC 


X'05' 


JOAREA^'OO 1 , BLKSIZE 


WRD 




>T8j 

s 

B 



A7 




X^SEEKADR+S^MO'^ 


SRCHHAE 


net 




X'08',*-8 


TIC 


W 




X , A9 , ,KEYARG / X , 40 , / K L 


SRCHKE 


;:18; 




X'08',*-8 


TIC 


;,; 9 


5 




X'OS'JOAREA^'OO', BLKSIZE 


WRD 




X'39' 


^EEKADR+S^W^ 


SRCHHAE 


X'08' 


,*-8 


TIC 


X'92' 


,IDLOC,X'60',5 


RDID 


X'A9 


,KEYARG,X'60',Kl 


SRCHKE 


X'08' 


,*-16 


TIC 


X'06' 


JOAREAfX'OO 1 ^ 


RDD 






X'A9 


# KEYARG f X'60' # K L 


SRCHKE 


X'08' 


*-8 


TIC 


X'05' 


IOAREA,X'00', BLKSIZE 


WRD 




X'39',SEEKADR+3,X , 40 , ,4 

X'03',*-8 

X , 29 , / KEYARG / X'40',K L 

X'08',*-8 

X'OS'JOAREA^O'^LKSIZE 

X'W^IDLOCX^O'fS 



I WRD 

I 

I RDID 



Hi 



X'39' 


SEEKADR+3,X'40',4 


SRCHHAE 


X'08' 


r*-8 


TIC 


X'92' 


r IDLOC f X'60',5 


RDCNT 


X'A9 


,KEYARG,X'60',K L 


SRCHKE 


X'08' 


,*-16 


TIC 


X'06' 


IOAREA,X'00',8 


RDD 






X'A9* 


,KEYARG,X'60',K L 


SRCHKE 


X'08' 


r*-8 


TIC 


X'05' 


IOAREA,X'00',BLKSIZE 


WRD 




1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

XW^EEKADR+^X'OO'^ 

3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESSES IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO: 

SRCHHAE- Filencme.S+3 

RDCNT -Filename. I 

4. THE CCW CHAINS SHOWN FOR SPNUNB 
RECORDS ARE THOSE INITIALLY GENERATED 
FOR SINGLE SEGMENT RECORDS (TYPE 00). 
THE CCW'S IN THE CHAINS ARE MODIFIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSIZE) FOR THE RDD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 



X'39',SEEKADR+3,X'40',4 


SRCHHAE 


X'08',*-8 


TIC 


X^KEYARCX'oO',^ 


SRCHKE 


X'08',*-8 


TIC 


X'Od'JOAREA^'OO'^ 


RDD 






X^KEYARCX'dO',^ 


SRCHKE 


X'08',*-8 


TIC 


X'OS'JOAREA^O'^LKSIZE 


WRD 


X'92',IDLOC,X'20',5 


RDID 





XWfSEEKADR+S^MO'^ 


1 SRCHHAE 




X'08',*-8 


1 TIC 




X^KEYARCXMO',^ 


1 SRCHKE 




X'08',*-8 


1 TIC 




X'05', lOAREA,X'00', BLKSIZE 


1 WRD 
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XW^EEKADR+SrXW^ 


SRCHHAE 


X'08',*-8 


TIC 


X'29 , ,KEYARG / X'60',K L 


SRCHKE 


X'08',*-8 


TIC 


X'Od'JOAREA^'OCS 


RDD 






X'29' / KEYARG / X , 60 , ,K L 


SRCHKE 


X'08',*-8 


TIC 


XW^OAREA^'OO^BLKSIZE 


WfD 



ro 



H 


*J 


to 


H- 


os 


<4 




C 




H. 


D 


<t> 


O 




CO 


LJ 




o\ 


t* 


• 


H 




O 




O 


a 


CO 


> 


< 


o 





cr 


H 


p 


£ 


3 


§ 


3 


fl> 


0) 




H 


U) 






►d 


CO 


H| 


> 





£ 


^ 




n 


BJ 


OJ 


3 


3 


Oj 


w 


D 


/^ 




►ti 


31 


p 


H) 


3 







n 


H* 




-P 


o 




> 





CO 


Hi 


a 






P 




•P 




GENERATED 
CCW CHAI N 
(READ RZERO) 



X'31' 


, Filename. F,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


, Filename. K,X'00',8 


RDD 



'C7l 




XW.Filemme.F.XW.S 


SRCHIDE 


© 




X'08',*-8 


TIC 


ill 




X'OS^Filename.K^MCS 


WRD 


'87'] 




X'31',SEEKADR+3,X'40',5 


SRCHIDE 


ij?« 




X'08',*-8 


TIC 


ics;? 




X'lD', Filename. C,X'E0' ,8 


WRCKD 


iAgi 




X'OD',KEYARG,X'E0\K L 


WRKD 


a 




X'OS'JOAREA^MCBLKSI ZE 


WRD 


© 




X'31',Filename.F,X'40',5 


SRCHIDE 


© 




X'08',*-8 


TIC 


J3L! 




X^Filename.^X'SO'^ 


RDD 


© 




X'Sl'^EEKADR+S^MO'^ 


SRCHIDE 


© 




X'08',*-8 


TIC 


so 




X'lE',Filename.C,X'F0',8 


RDCKD 


(Hi 




X'OE^KEYARG^'FO',^ 


RDK 


M 




X'06',IOAREA,X'10',BLKSIZE 


RDD 










X'31' 


/ Filen=-*j.F / X'-iO , ,5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'05' 


filename. K,X'40',8 


WRD 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'lD 


, Filename. C,X'E0', 8 


WRCKD 


X'05' 


JOAREA^O^BLKSIZE 


WRD 


X'31' 


, Filename. F,X'40',5 


SRCHIDE 


X'08' 


,*-8 


TIC 


X'06' 


, Filename. K,X'50',8 


RDD 


X'31' 


,S£EKADR+3,X'40\5 


SRCHIDE 


X'08' 


,*-8 


TIC 


XME' 


, Filename. C,X'F0', 8 


RDCKD 


X'06' 


,IOAREA,X'10',BLKSIZE 


RDD 



(READ 'ZERO) 




X , 3r / Fi!ens-e.F # X , 40 , ,5 


i SRCHIDE 

| 


X'CSV-B 


1 TIC 


X'C5' / Filei=-*.K,X , C'0 , ,8 


1 RDD 

1 







1 

1 


X'31' 


,Filen=~^.F,X'40',5 


SRCHIDE 


X'08' 


r*~8 


TIC 


X'05' 


f Filename. KjX^O'^ 


W.RD 


X'31' 


,SEEKADR+3,X'40',5 


SRCHIDE 


X'08' 


f*-8 


TIC 


X'lD 


, Filename. C,X'E0', 8 


WRCKD 


X'OD 


,KEYARG,X'E0',K L 


WRKD 


X'05' 


^OAREA^'OO'^LKSIZE 


WRD 



1 . SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 

2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 

XW^EEKADR+UX'OO'^ 

3. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITAILLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 



(READ RZERO) 




X'31 'filename. F,X'40',5 


SRCHIDE 


X'08',*-8 


TIC 


X'OdSFilename.^X'OO'^ 


RDD 



I I 
I I 
I I 
I I 



icD: 





1 


X'31',Filename.F,X'40',5 


SRCHIDE 


X'OSV-8 


TIC 


X'05', Filename. K,X'40', 8 


WRD 


X , 3I , # SEEKADR+3 / X , 40 , ,5 


SRCHIDE 


X'08',*-8 


TIC 


X'lDSFilename.^X'EO'^ 


WRCKD 


X'05', lOAREA^'OO', BLKSIZE 


WRD 



INITIALIZATION AND TERMINATION 



When a DASD file is processed by the Direct 
Access Method , all extents specified by the 
user must be opened before any data is 
transferred. 

The DA Open logical transients make all 
the extents for the file available for use 
by the problem program. To accomplish 
this, the open routines check and create 
standard DASD labels or, in the case of 
nonstandard labels , pass control to the 
user for label processing. 

To open a file, the open routines use 
label information supplied by the user in 
job control statements and stored on the 
SYSRES label information cylinder (refer to 
Figure 2). This information is used either 
to check or create the actual file labels 
in the Volume Table of Contents (VTOC) of 
the pack or cell containing the file. 
Refer to DASD Label Processing for details 
of SYSRES label information and to Appendix 
G for details and format of the standard 
DASD file labels processed by DOS logical 
IOCS. 

Close is required for DASD files 
processed by the Direct Access Method only 
when user standard trailer labels are 
specified. 



OPEN DIRECT ACCESS CHART 07 



The 12 bytes preceding the DSKXTNT table 
contain device-dependent alteration factors 
(4 bytes each) used to convert the extent 
limit addresses. The format of the DSKXTNT 
table and the location of the alteration 
factors is illustrated in Figure 37. The 
alteration factors are summarized in Figure 
38. 





Actual C1,C2,H1,H2 address 


Alteration factor for CI 




Alteration factor for C2 


Alteration factor for HI 


First extent 


X, =V, -L, +1 






Li 


Second extent 


X 2 =X 1 +(V 2 -L 2 +1) 






L 2 


Third extent 


X 3 =X 2 +(V 3 -L 3 +1) 






L 3 


Last Extent 


Xn =X n . 1+ (V n -L n -H) 






L n 


End of table 


X'FF' 


X'FF' 






i 
i 
i 


! 



TTT2 



M B2 



TTT1 



TTTI, L = relative track number of the extent lower limit; that is, the number 
of tracks from cylinder 0, track to the lower limit of the corre- 
sponding extent. (3 bytes) 

TTT2 = cumulative total tracks in current extent plus previous extents in 
the table. (3 bytes) 

B2 = second byte of bin number (BB), for 2311, 2314, or 2319. (1 byte) 

M = symbolic unit number, incremented by 1 for each new symbolic 
unit. (1 byte) 

V = number of tracks from cylinder 0, track to the upper limit of 
corresponding extent. 



For input files, the volume and Format 1 
labels are checked against the SYSRES label 
information supplied by the user's // DLBL 
job control card. User labels are then 
processed, providing LABADDR=address has 
been specified in the DTFDA macro defining 
the file. Finally, EXTENT information is 
passed to the user for checking and/or 
processing. 

For output files, extents are checked to 
ensure that they do not overlap the VTOC or 
other extents. Labels are created and 
written in the VTOC, and user labels are 
processed, if required. 



Relative Addressing 



When relative addressing is specified for a 
file, the open routines convert extent 
information supplied as actual physical 
DASD addresses into a relative addressing 
format. The converted extent information 
is stored at the end of the DTF table, in a 
table (DSKXTNT) at location SFilename.P+48. 



Figure 37. DSKXTNT Table for Relative 
Addressing 



I | Factor | 2311 2314* 2321 | 
I ,. + ^ 

| CI | 1 1 1000 I 

I. + 1 

I C2 I 10 20 100 | 

Y — _ + ^ 

| HI | 1 1 20 | 

L JL J 

I * Also for 2319. 

Figure 38. Alteration Factors for Relative 
Addressing 

An actual physical extent address is 
converted to a relative address in the 
following manner. Each of the four bytes 
(CCHH) of the actual address are handled 
separately and are referred to as CI, C2, 
HI, and H2. Starting with CI, the first 
three bytes of the actual address are 
multiplied, one at a time, by the 
respective device-dependent alteration 
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factor (refer to Figure 38). The result of 
each multiply operation is added into an 
accumulating register. To complete the 
conversion, H2 is added to the accumulated 
result. If the conversion is performed on 
the lower limit address of the extent, the 
value obtained is the L (or TTTl) value and 
is stored in the DSKXTNT table (refer to 
Figure 37) . 



converted value is increased by 1 and TTTl 
is subtracted from the result. The value 
obtained from this calculation is the total 
number of tracks included in the extent. 
The total number of tracks in the extent is 
then added to the total number of tracks of 
all previous entries to obtain the TTT2 
value for the current extent entry in the 
DSKXTNT table (refer to Figure 37). 



If the conversion is performed for the 
upper limit address of the extent, the 
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Chart 07. Open Direct Access, General Logic 



(Entered from \ 
open monitor J 



$$BQDA1N PF-PH 



Check physical 
device assignments 





Build DSKXTNT 
table of extent 
information in 
relative addressing 
form in the DTF 



$$BODAQ1 PN-PR 



Ensure proper packs 
are mounted 



$$BOSD08 KA 



Check for 
duplicate file 
labels in VTOC 



$$BODAO! PN-PR 



Check that no over- 
lap exists between 
extents or between 
extent and VTOC 



$$BODA02 QA-QC 



Check format 1 
labels in VTOC 



$$BODA03QE-QH 



l.Find area in VTOC 

to write labels 
2. Compute total 
number of extents 



$$BODAQ4 QJ-QM 



1 .Create labels 

2 .Check symbolic 

unit sequence 



$$BODAIl 



PJ-PM 



1 .Check that all packs are 

mounted . 

2 .Compare labels to DLBL 

information . 
3. Build DSKXTNT table of 
extent information if 
relative addressing is used. 




$$BOFLPT AA-AD 



Put extent 
information in JIBs 
to file protect 
extents 




$$BODAUl RA-RE 

1 .Check user's 
labels on input 

2. Create user's 
labels on output 



( Call $$BOPEN J 
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$$BODAIN: DA Open Input/Output Charts 



PF-PH 



Objective : To ensure that the correct 
device is assigned for each extent, and to 
build a table (DSKXTNT) of extent values if 
relative addressing is used. 

Entry ; From the Open Monitor , $$BOPEN. 

Exits: 

• To the Open Monitor, $$BOPEN, if the 
COBOL Open/Ignore option is specified. 

• To $$BODAIl if an input file. 

• To $$BODA01 if an output file. 

• To $$BOMSGl if messages are needed. 

Method ; This phase determines if the 
correct device has been assigned to the 
file. If the correct device has not been 
as signed , the message writer phase , 
$$BOMSGl, is fetched to print message 46831 
on SYSLOG. If the correct device is 
assigned, a test is made for relative 
addressing. 

If the file is an input file with 
relative addressing, the proper alteration 
factors for the device are inserted in the 
DTF table and phase $$B0DAI1 is fetched. 
If the file is an input file with actual 
addressing, phase $$B0DAI1 is fetched 
directly. 

For output files with relative 
addressing, phase $$BODAIN, in addition to 
storing the proper alteration factors, 
converts the actual extent limits of each 
extent to a relative address. The relative 
address form of each extent is stored in 
sequence in the DTF table. (This extent 
information in relative addressing form is 
referred to as the DSKXTNT table and is 
located in the DTF table at location 
SFilename.P+48.) When the extent 
information is complete, phase $$B0DA01 is 
fetched . 

For output files with actual addressing, 
phase $$BODA01 is fetched after the device 
assignment of each extent is checked. 



Entry : From $$BODAIN, or from a message 
writer phase. 

Exits : 

• To $$BODSMW to write data security 
message. 

• To the Open Monitor, $$BOPEN, if no 
user options are specified. 

• To $$B0DAU1 to process user's options. 

• To $$BOFLPT if DASD file protect is 
specified. 

• To $$B0MSG1 if a message is required. 

Method : Phase $$B0DAI1 reads the V0L1 
label and checks the volume serial number 
in the label against the volume serial 
number given in the extent to ensure that 
the correct pack is mounted. The phase 
then reads the Format 1 label for the file 
and checks the symbolic unit specified for 
each extent for proper sequence. 

If the data security indicator in the 
format 1 label is ON, and the data security 
message has not been issued for the file, 
exit is made to $$BODSMW to print the data 
security message. 

If relative addressing is specified, 
phase $$B0DAI1 converts every set of extent 
limits in the Format 1 label, and the 
Format 3 label (s) as required, from actual 
(CCHH) addresses to a relative address 
form. The extent information in relative 
form is placed in a table (DSKXTNT) within 
the DTF table at location SFilename.P+48. 

When all extents have been checked, a 
test is made for file protected extents. 
If file protect is specified, phase 
$$BOFLPT is fetched to build JIBs for the 
protected extents. 

Phase $$B0DAI1 returns control either to 
the Open Monitor ($$B0PEN) , or to phase 
$$B0DAU1 if processing of user labels or 
extent information is required. 



$$B0DA01: 
PN-PR 



DA Open Output , Phase 1 Charts 



$$B0DAI1: DA Open Input Charts PJ-PM 



Objective : To ensure that all packs are 
mounted, that the symbolic units are 
specified in sequence, and that the 
symbolic unit (and bin, if 2321) agrees 
with the user supplied DLBL information. 



Objective : To check the volume serial 
number and determine if the DLBL and EXTENT 
serial numbers are equal, and to ensure 
that no extent specified by the user 
overlaps on the VTOC or on another extent 
for the same file. 

Entry : From $$BODAIN. 
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Exits: 



Entry : From $$B0DA01. 



• To $$B0DA02 if job goes to normal 
completion . 

• To $$B0SD08 to check for duplicate DLBL 
in VTOC. 

• To $$B0MSG1 if messages are to be put 
out. 

Method : This phase reads the volume label 
for the symbolic unit (and bin, if the 
device is a 2321) . It checks to see that 
the correct volume is available by 
comparing the volume serial number with the 
serial number specified on the first 
extent. If they are not equal, message 
4755A is initialized and $$B0MSG1 is 
fetched to write the message on SYSL0G. 

If the serial numbers are equal, the 
Format 4 label is read. Each extent for 
the current symbolic unit is checked to see 
that it does not overlap on the VTOC. If 
an overlap is present, message 4741A is 
initialized and written out on SYSLOG by 
$$B0MSG1. Upon reentry to this phase, the 
current extent is deleted at the user's 
request. 

The next extent is checked to see if it 
has the same symbolic unit as the previous 
extent. If it does not, the routine exits 
to $$BOSD08 to check for a duplicate DLBL 
in the VTOC. If the next extent has the 
same symbolic unit, the phase checks to see 
if the first extent has two tracks. If it 
does not, message 4766A is initialized and 
written on SYSLOG by $$B0MSG1. Upon 
reentry to this phase, the first extent is 
deleted at the user f s request. 

If the first extent has two tracks, a 
check determines if extents overlap. If an 
overlap exists, message 4740A is 
initialized and written on SYSLOG. Upon 
reentry to this phase, the extent causing 
the overlap is deleted at the user's 
request. All remaining extents are moved 
down the length of one extent so that the 
upper limit of the extent is decreased by 
the length of one extent. 

When all extents on the file have been 
checked in this manner, this phase exits to 
$$B0DA02. 



Exits: 

• To $$B0DA03 to create labels. 

• To $$B0MSG1 if messages are to be 
printed. 

Method: This phase reads the VOL1 label to 
get the starting address CCCHHR) of the 
VTOC. If the V0L1 label is not found, 
message 47061 is initialized, and phase 
$$BOMSGl is fetched to write the message on 
SYSLOG. 

The Format 4 label, or VTOC definition 
label, is read to get the upper limit 
address (CCHH) of the VTOC. If the Format 
4 label is not found, message 47041 is 
initialized, and phase $$BOMSGl is fetched 
to write the message. 

If the Format 4 label is found, the 
routine reads DASD labels (count, key, and 
data) from the VTOC, one at a time, until a 
Format 1 label is found or the last record 
in the VTOC is read. If a no-record-found 
condition results before the end of the 
VTOC is reached, message 47091 is 
initialized and written on SYSLOG by phase 
$$BOMSGl. 

If the end of the VTOC is reached 
without finding a Format 1 label, the 
routine determines the address of the 
extent for the next file on a different 
symbolic unit, and returns to process the 
extents for that file. If an extent on a 
different symbolic unit cannot be found, 
and all extents have been scanned, this 
phase fetches phase $$BODA03 to create 
labels. 

I 
When a Format 1 label is found, the 
extents for the new file are checked for 
overlap on the extents in the Format 1 
label and any other labels chained to it. 
If overlap is found, the Format 1 label is 
reread, and the expiration date is checked 
to see if the file has expired. If the 
file has not expired, message 4744A is 
initialized and phase $$BOMSGl is fetched 
to write the message on SYSLOG. At this 
point, the operator sets indicators either 
to delete the file, or delete the extent. 
Upon reentry to this phase, the indicators 
determine the action to be taken, and that 
action is executed. 



$$BODAQ2: DA Open Output, Phase 2 Charts 
Q A- Q D 



Objective ; To ensure that no extent for 
the incoming file overlaps on any extent 
for any file cataloged in the VTOC. 



If the file has expired, or the operator 
requests that the file be deleted, it is 
done by writing zeros over all the labels 
in the chain. When the file is deleted, 
the phase returns to read the next Format 1 
label from the VTOC and continue 
processing. 
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When overlap occurs on an unexpired data 
secured file, $$B0MSG1 is fetched to issue 
message 47981 OVLAP UNEXPRD SECRD FILE. If 
overlap on an expired secured file occurs, 
message 47971 OVLAP EXPIRED SECRD FILE is 
issued. In both cases, the job is 
canceled. 



$$B0DA04: DA Open Output, Phase 4 Charts 



Objective : To create Format 1 and Format 3 
labels, and write them in the VTOC. To 
ensure that symbolic units are in sequence. 



When all the extents for the incoming 
file have been processed, this phase exits 
to $$B0DA03 to create labels. 



Entry : From $$B0DA03. 



Exits : 



$$BODA03: DA Open Output, Phase 3 Charts 

QE-Q H 



• To $$B0DA03 if additional extents are 
to be processed. 



• To $$BOPEN if there are no user 
routines . 



Objective : To find an open area in the 
VTOC in which to write labels. To set the 
DADSM bit on in the Format 4 label and 
compute the total number of extents. 



Entry : From $$BODA02. 



Exits : 



• To $$B0DAU1 if there are user labels. 



• To $$B0MSG1 if messages are to be put 
out. 



• To $$BOFLPT if DASD file- protect is 
present. 



To $$B0DA04 to create Format 1 
Format 3 labels. 



and 



To $$B0MSG1 if messages are to be 
printed. 



Method : This phase first counts the number 
of extents on the symbolic unit and saves 
the total number to be inserted in the 
label later. A test determines if the 
total number exceeded the limit. If it 
did, an exit is made to phase $$B0MSG1 to 
issue a message to that effect. 

If the limit has not been exceeded, the 
V0L1 label is read to get the starting 
address of the VTOC. The Format 4 label, 
or VTOC definition label, is then read and 
the DADSM bit is set on in the Format 4 
label. This phase then writes and verifies 
the Format 4 label. 

The VTOC is then searched to find the 
first open area in which to write a label. 
This first open area contains the Format 1 
label, or in case of more than three 
extents, the Format 3 label. If a Format 3 
label is to be created, the VTOC is 
searched again to find a second open area 
for the Format 1 label. 



Method : This phase tests for user labels. 
If there are any, a user label extent is 
created from the first prime data extent 
for the symbolic unit, and the first track 
becomes the user label track. If the 
limits in the prime data extent specify 
more than one track, the lower limit is 
updated by one track to form a new lower 
limit for the prime data extent. 

Fields specified in the DLBL are used to 
create the Format 1 label. The extents are 
then inserted into the Format 1 label from 
the extent storage area. If more than 
three extents on the same symbolic unit are 
specified, the Format 1 label is written 
out and the Format 3 label is created. The 
remaining extents are inserted into the 
Format 3 label. 

When a different symbolic unit or the 
end of the extent storage area is detected, 
the label currently being created is 
written out. If the last symbolic unit has 
not been processed, the DLBL volume 
sequence number is updated by 1. The next 
symbolic unit is processed. If the 
symbolic unit has changed, the new symbolic 
unit must be in sequence. If not, phase 
$$B0MSG1 is fetched to issue a message to 
that effect. 



When the necessary number of open areas 
have been found, this phase exits to phase 
$$B0DA04 to create the labels. 



To process the next symbolic unit, this 
phase exits to phase $$B0DA03 to find 
another open area for the next label. 
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SSBODAUl; DA Open Input, Output Charts 
RA-RE 



Objective : To check user header labels for 
an input file if the user elects the user 
label option. To create user header labels 
for an output file, to be written by the 
open routine on the 2311, 2314 r 2319, or 
2321. To pass extents to the user from the 
labels if requested to do so by the user. 



Entry : 

• From $$BODAIl if an input file. 

• From $$B0DA04 if an output file. 

Exits: 

© To $$B0MSG1 if messages are to be 
printed. 

• To $$BOPEN at completion of OPEN 
routine. 

Method: The VOL1 label is read to get the 
starting address of the VTOC. The VTOC is 
then searched to find the correct Format 1 
label. If the label cannot be found, a 
message is written by phase $$B0MSG1 to 
that effect. 

When the correct label has been found, a 
test is made for user labels. If there are 
none, the routine branches to pass extents 
if requested by the user. 

Then a test determines if the current 
label is a user label. If it is not, the 
routine branches to pass extents to the 
user. If the current label is a user 
label, a test determines if the device is a 
2321. If it is, the maximum number of 
header labels for input or output files 
must be modified because only five user 
labels are possible with a 2321 file. 
Eight user labels may be used with a 2311, 
2314, or 2319 file. 

When the maximum constants have been 
modified (if necessary), this phase 
determines whether the file is an input or 
output file. If the file is an input file, 
the user header labels are read by this 
phase and checked to ensure that they are 
correct user header labels. The data 
portion is then passed to the user if the 
labels are correct. If the labels are not 
correct, a message is written by $$B0MSG1 
to that effect. The reading of labels 
continues until the maximum number of 
labels have been read (and rewritten if the 
user has updated the label) , or the user 
signals that he does not want to read any 
more labels. 



If the file is an output file, this 
phase creates the count field, including 
the ID, key length, and data length and the 
key field, (UHL1 for the first user label 
to UHL5 or UHL8 for the maximum number of 
user labels) . It also initializes the 
first four bytes of the data field which 
correspond to the key field. This phase 
then exits to the user in order to create 
the last 76 bytes of the data field. Upon 
return from the user, the label is written 
by this phase. 

The creating and writing of labels 
continues until the maximum number of 
labels has been written or the user signals 
that he does not want to create any more 
labels. When the last label has been 
written, two file marks are created and 
written, the first of which is a header 
label with a data length of zero, and the 
second of which is a trailer label with a 
key of UTLO and a data length of zero. 
When these file marks have been written, 
the routine branches to pass extents. 

A test determines whether the user wants 
extents passed. If not, this phase 
proceeds to process the next symbolic unit. 
If the user does want extents passed, the 
extent information is passed via a fourteen 
byte area illustrated by Figure 39. 



j Extent Type 
_ + 

| Extent Sequence Number 



JByte 

j. 

| Byte 1 

V 

| Bytes 2 to 5 | Extent Lower Limit 

(Bytes 6 to 9 | Extent Upper Limit 






h 

| Bytes 10, 11 | Symbolic Unit 

,. + 

| Byte 12 | Original Bin Number 

| | (0 for 2311) 

,. + 

| Byte 13 | Present Bin Number 
| | (0 for 2311) 

L A 



-H 



Figure 39. Format of Extent Information to 
User 

Extents are passed until the end of the 
extent area in the label is detected. 
Another test determines whether a pointer 
to a Format 3 label is present. If so, the 
Format 3 label is read and the extents in 
that label are passed to the user. This 
continues until there are no more extents 
within a label to be passed to the user. 

The phase then finds the next symbolic 
unit to process those labels and extents. 
When all the incoming extents in the extent 
storage area in main storage have been 
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processed, this phase exits to the open 
monitor , $$BOPEN. 



S$BODACL; 

RF-RH 



DA Close, Input/Output Charts 



Objective ; To read or write standard user 
trailer labels, and to test for track hold. 

Entry ; From the Close Monitor or from a 
message writer phase. 

Exit ; To the Close Monitor, $$BCLOSE; to 
$$BOMSGl if a message is required; or to 
$$B0SDC2 to free any tracks. 

Method ; For input files, phase $$BODACL 
initializes the search CCW with a key 
argument of the first standard user trailer 
label (UTLO). The label is read and 
control is passed to the user's label 
routine. Processing of standard user 
trailer labels continues until either the | 



maximum number of trailer labels are read 
(5 for 2321, 8 for 2311, 2314, or 2319), or 
a file mark (a UTL with a data length of 0) 
is read. Control then returns to the Close 
Monitor. 



For output files, phase $$BODACL 
initializes the search CCW with a key 
argument of UTLO, the end-of-file mark 
written after the last UHL. When the UTLO 
label is found, control passes to the 
user's label routine. Control returns to 
$$BODACL to write the standard user trailer 
label on the user's label track. The first 
standard user trailer label written is 
identified by UTLO and is written over the 
end-of-file mark previously identified by 
UTLO. A new end-of-file mark (a standard 
user trailer label with a data length of 0) 
is written and the Close Monitor is fetched 
after all standard user trailer labels are 
processed. The maximum number of standard 
user trailer labels permitted (excluding 
the end-of-file mark), is 5 for a 2321 and 
8 for a 2311, 2314, or 2319. 
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SEQUENTIAL AND DIRECT ACCESS CHARTS 



Chart AA. $$BOFLPT: DASD File Protect (Section 1 of 4) 



****A1 ********* 

* * 

* $$B0FLPT * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



INDEX 
TYPE 
EXTENT 



FILEPRTD X 


.*. 


CELLTEST .*. 


*****Bl ********** 


B2 *. 


B3 * 


* SAVE REGS 3 * 


.* INDEX *. 


.* IS 


♦THROUGH 14 AMD * 


NO .* DEVICE *. 


YES .* DEVICE 


♦NAME OF CALLING* 


...*. TYPE = .* 


...*. A 2321 


* PHASE IF * 


*. 2321 .* 


*. 


* SUPPLIED * 


*. .* 


*. 


***************** 


*. .* 


*. .* 




*YES 


i 


mo 


SKIP04 X 


.SETON X 






*****ci ********** 


(t*C2******* 






* * * * 


* * 






* * SVC 22 * * 


* TURN 0\J * 






* * SEIZE * * 


*2321 DATA CELL * 






* * SYSTEM * * 


* SWITCH * 






* * * * 


* * 






***************** 


*********** 

! xTx 








X 

**** 








* * 







CLEAR 

WORK 

REGISTERS 



.*. 

B4 *. 

.* IS *. 

2321 

DATA CELL 

. SWITCH . 

*. ON .* 



*NO 



SKIP16 

*****C4********** 

* SET UP UPPER * 

* AND LOWER * 

* 2311/2314 * 

* EXTENT LIMITS * 

* * 
***************** 



*****B5********** 

* SET UP UPPER * 

* HUD LOWER * 
,X*EXTENT LIMITS, * 

♦INCLUDING BIN. * 

* NOS . FOR 2321 * 
***************** 



*****D1 ********** 

* * 

* GET NUMBER OF * 

* EXTENTS FROM * 

* SYSRES DASD * 

* LABEL INFO * 
***************** 



*****£]_********** 

* GET ADDRS OF * 
♦DASD LBL INFO, ♦ 

♦ FAVP, AND JIB * 

♦ TABLE * 

* * 
***************** 



VERSION 

TYPE 

. DTFCP 



.♦ VERSION 2 
TYPE 
*. DTFCP . 



SKIP20 

*****D4-********** 

* LOAD LUB * 

* FOR LOGICAL ♦ 

* UNIT IN REGS ♦ 

* LUBADRLL AND * 
*LUBADRUL *D5* 
***************** 



♦ D5 

LUBADRLL = REG 
USED FOR LOWER 
LIMIT EXTENT, 
LUBADRUL = REG 
USED FOR UPPER 
LIMIT EXTENT. 



♦E2 
TWO JIBS ARE REQUIRED FOR A 2321 EXTENT— ONE FOR 
LOWER LIMIT AND ONt FOR UPPER LIMIT. THE LOWER 
LIMIT DEFINING JIB MUST BE CHAINED TO THE UPPER 
LIMIT DEFINING JIB. 

BYTE 1 OF THIS TYPE JIB CONTAINS THE SUB-CELL 
NUMBER TIMES 10 PLUS THE STRIP NUMBER IN BINARY. 



•EXTENT TYPE JIB 


BYTES 0-1 


. 


.TYPE OF ENTRY 


CONTENTS 


• 


.2311/2314 EXTENT 


C C C c 
L L U U 


; 


.2321 EXrENT 


B B C C 
L L L L 

I B B C C 
U U U U 


OR. 



**** 




{=*** 




* 


* 


* 


* 






4 *. . 




4B ♦ 
HI* 




* 


* 


* 




**** X 


c*** 




STPTR .*. 








E4 *. 








.♦ IS ♦ 








♦ THERE 


*. NO 


* 


A CHAINED 


.* 






*. JIB 


.* 






♦. *G5 .* 








♦ . .♦ 




X 




*YES 




***** 
*AD * 










* Al* 










* * 










* 










GET J I 




X 






*****F4********** 




* 




* 




* 


CALCULATE 


# 




* 


JIB 


* 




* 


ADD 


IESS 


* 





*********** 



***** 

♦ AC * 

* Dl* 



2321 

DATA CELL 

. SWITCH . 

*. ON .* 



*Gb 
HEX'FF' IN SECOND 
BYTE OF THE LUB 0* 
IN FOURTH BYTE OF 
THE JIB INDICATES 
END UF CHAIN. 



.♦. 


NONS 


DT 


f .♦. 






.♦. 


SKIP24 .♦. 




HI ♦. 






H2 ♦. 






H3 *. 


H4 ♦. 


♦ ♦♦^^♦♦♦♦♦♦♦♦♦+ 


.* *. 






.♦ ♦. 






.♦ IS ♦. 


.♦ IS ♦. 


♦ SET UP ♦ 


.♦ SD *. NO 




.♦ 


ISFMS *. 


ND 




.♦ JIB ♦. NO 


.♦ JIB ♦. YES 


♦ UPPER AND ♦ 


*. TYPE .*..... 


. ..X* 


** 


FILE .* 
. TYPE .* 




•; 


*. A 2321 .*... 
*. EXTENT .♦ 


*. A 2311/2314 .♦ 

♦. EXTENT .♦ 


. ..X^ LOWER LIMIT ♦ 


♦. FILE .* 




♦ EXTENTS ♦ 


♦ . .♦ 






♦ . .♦ 






♦ . .♦ 


*. .♦ 


* * 


♦ . .♦ 






♦ . .♦ 




X 


*. .* 


*. .♦ 


***************** 


♦YES 






♦ YES 


* 


**** 
* 

2 * 


♦YES 


*N0 


• 








" 


* 




* 








X 


* 


* 






X 


X.* 






**** 




(c*** 


X 


' x! 


***** 




*AB ♦ 


SKIP06 X 






* 1 * 






.♦. 


NONXTENT X 


♦ Bl* 


*****jl ********** 






* * 






J3 ♦. 


*****j 4**** ****** 


-* * 


* * 






**** 






.♦ JIB *. 


♦CURRENT JIB IS ♦ 


* 


* CHANGE ♦ 










NG 


.* CONTAINS *• 


* NOT AN EXTENT ♦ 


SKIP28 


♦ NUMBER OF ♦ 












♦.PTR TO UPPER .♦ 


* TYPE - INU. ♦ 




* EXTENTS TO 1 * 












♦.LIMIT JIB.* 


♦ TO EXAMINE ♦ 




* * 












*. *E2 .* 


♦ NEXT JIB. ♦ 




***************** 










X 

***** 

♦ AC * 

♦ C4* 

* * 
* 


♦ . .♦ 
♦ YES 


***************** 

X 

**** 




X 










ERROR 




* * 




.*. 












X 


* 4- * 




Kl ♦. 






**K2^*****+ 






*****K3********** 


* * 




.♦ IS *. 




# 


* 






* GET ADDR OF ♦ 


**** 




.♦ DEVICE ♦. YES 




♦TURN ON 2321 ♦ 






♦UPPER LMT. JIB ♦ 






♦. A ....... 


. . .X* 


* 


DATACELL ♦ 
SWITCH ♦ 






♦ AMD SET UP ♦ 
♦UPPE* AND LOWERS 






*. 2321 .* 







********* 



**** 

* * 

* 3 ♦ 



***** 
*AB ♦ 
♦ Bl* 
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Chart AB. $$BOFLPT: DASD File Protect (Section 2 of 4) 



*****B1 ********** 

* * 

* COMPARE * 

* EXTENT AND * 

* JIB CELL * 

* NUMBERS * 
***************** 



SKIP36 X 

*****A4 ********** 

* COMPARE * 

* EXTENT LOWER * 

* LIMIT AND * 

* JIB LOWER * 

* LIMIT * 
***************** 



.* IS *. 
YES .* EXTENT * 
...*. GREATER THAN 
*. JIB .* 



HIGH .* EXTENT *. LOW 
..*. CELL NUMBER .*.... 
*. IS .* 



*****D1 ********** 

* COMPARE * 

* EXTENT UPPER * 

* LIMIT AND * 

* JIB LOWER * 

* LIMIT * 
***************** 



.* IS *. 

EXTENT 

LESS THAN 

JIB 



SKIP30 

*****F1 ********** 

* COMPARE * 

* EXTENT LOWER * 

* LIMIT AND * 

* JIB UPPER * 

* LIMIT * 
***************** 



.#. 

Gl *. 

.* IS *. 

.* EXTENT * 

♦.GREATER THAN 

*. JIB .* 



SKIP32 

*****Hl ********** 

* MODIFY REGS. * 

* LUBADRLL AND * 

* LUBADRUL TO * 

* CHECK NEXT * 

* JIB IN CHAIN * 
***************** 



*****D4 ********** 

* PUT 2311/2314 * 

* EXTENT * 

* LOWER LIMIT * 

* IN JIB * 

* * 
***************** 



PUT21LL 

***** D5********** 

* PUT 2321 * 

* EXTENT * 

* LOWER LIMIT * 

* IN JIB * 

* * 
***** ************ 



**P2******* 

* * 

* TURN ON 

* INSERT NEW 

* J IB SWITCH 

* * 
*********** 



SKIP40 X 

*****E4********** 

* COMPARE * 

* EXTENT UPPER * 

* LIMIT AND * 

* JIB UPPER * 

* LIMIT * 
***************** 



EXTENT 

LESS THAN 

JIB 



* IS 
DEVICE 
A 2321 



*****H4 ********** 

* PUT 2311/2314 * 

* EXTENT * 

* UPPER LIMIT * 

* IN JIB * 

* * 
***************** 



PUT21UL X 

***** H5 ********** 

* PUT 2321 * 

* EXTENT * 

* UPPER LIMIT * 

* IN JIB * 

* * 
***************** 



***** 
*AC * 
* Bl* 
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Chart AC. $$BOFLPT: DASD File Protect (Section 3 of 4) 



*AB-F4,H<»,H5 
AD-H3,H<t v 
***** 



NDRUTINE X 

*****B1 ********** 

* GET ADDRESS * 

* OF NEXT * 

* EXTENT * 

* CARD IMMAGE * 

* * 
***************** 



**C1 ******* 

* TURN OFF * 
DATA CELL 

AND INSERT 
NEW JIB 

* SWITCHES * 
*********** 



***** 
*AA * 
* H2* 



**AA-J3 
A0-A1,A3 
***** 



ERROR X 

*****C4** *****><•** 

* INITIALIZE * 

* TO FETCH * 

* MSG. WRITER * 

* SSBOMSGl * 

* * 

***************** 



*****D4********** 

* INITIALIZE * 

* TO PRINT * 

* NO AVAILABLE * 

* JIB MESSAGE * 

* 48901 * 
***************** 



*****E1 ********** 

* * * * 

* * SVC 22 * * 

* * RELEASE * * 

* * SYSTEM * * 

* * * * 
***************** 



Fl *. 
* IS 

FILE A 
QTAM 
FILE 



.X* 



*****P2********** 

* INITIALIZE * 
TO FETCH * 
THE QTAM * 

PHASE * 

* SSBOQOOl * 
**** ************* 



X 
TSTMONT .*. 


monor™ .*. 


Gl *. 


G2 *. 


.* *. 




.* RETURN *. YES 


.* MORE 


*. TO SSBOPEN .*.... 


....X*. FILES TO 


♦.SPECIFIED.* 


*. OPEN 



.* *. ****Q5********* 

* RETURN *. YES * SVC * 

TO $$B0SDC1 .* X*FETCH $$B0SDC1 * 

*. .* * * 

*. .* *************** 



* RESTORE * 

* REGISTERS * 

* 3 THROUGH 14 * 

* * 
***************** 



****jl ********* 

* SVC 2 * 

* FETCH * 
♦REQUIRED PHASE * 

*************** 



RESET X 

**H3******* 

* TURN OFF * 
* OPEN 

* INDICATOR IN 
*COMM. REGION : 

* * 
*********** 



*****j3********** 

* * 

* RESTORE * 

* REGISTERS * 

* 3 THROUGH 14 * 

* * 
***************** 



****«3********* 

* SVC 11 * 

* RETURN TO * 

* PROB. PROG. * 
*************** 



Sequential and Direct Access Charts 137 



Chart AD. $$BOFLPT: DASD File Protect (Section 4 of 4) 



.* 



Al *. 
IS *. 
A JIB *. NO 
AVAILABLE .*... 
*C? .* 



GETNXJIB .*. 



.* IS *. 

.♦ANOTHER JIB*. 

. AVAILABLE . 

*. *C2 .* 



*****3X ********** 

* SAVE * 

* FAVPIFIRST * 

* AVAILABLE * 

* PRINTER) * 

* * 
***************** 



INSERT 

NEW JIB 

SWITCH 

*. ON .* 



*****0i ********** 

* INSERT * 

* FAVP INTO LUB * 
*0R CURRENT JIB * 

* TO POINT TO * 

* NEW JIB * 

*********** ««t**** 



X 
***** 

*AC * 
* C4* 



*C2 
FAYP NOT 
HEX'FM 



SKIP90 X 

*****E1 ******* 

* CALCULATE 

* ADDRESS OF 

* I IRST NEW 

* JIB 
* 
************** 



*****F1********** 

* PUT POINTER * 

* TO NEXT * 

* AVAILABLE JIB * 

* INTO FAVP * 

* * 
***************** 



X 

.*. 

Gl *. 

* IS 

DEVICE 

A 2321 



*****B 3** ******** 
♦CALCULATE ADD- * 

* RESS Or FIRST * 
*AVAILABLL JIB. * 

* USE AS UPPLR * 

* LIMIT * 
***************** 



(•****C3********** 

* INSERT TAVP * 

* (CTR TO UPPLR * 

* LIMIT JIB) * 

* INTO LOWER * 

* LIMIT JIB * 
<<*******«*«>****** 



UPDATE FAVP 

TO NEXT 

AVAILABLE 

JIB 



**E3******* 
* SET UPPER * 

* AND LOWER * 
*JIB FLAG BYTES 

* TO INDICATE * 
*2321 EXTENT* 

*********** 



*****P3********** 

* MOVE EXTENT * 
*> LIMITS INTO * 

* UPPER AND * 

* LUWIfl LXTf NT * 

* LIMIT JIBS * 



.♦INSERT *. 
NEW JIB * 
SWITCH ON 



**** 

* * 

* 1 * 

* * 
**** 



*****G4********** 

* PUT POINTER * 

* TO FIRST * 
X* AVAILABLE JIB* 

*INTO NEW UPPER * 

* LIMIT JIB * 
***************** 



**H1******* 

SET JIB FLAG * 

*BYTE [BYTE 2)* 

* TO INDICATE * 

*2311 OR 2314 * 

* . EXTENT * 

*******«««* 



*****J1 ********** 

* PUT 2311/2314 * 

* UPPER AND * 

* LOWER EXTENT * 

* LIMITS INTO * 

* NEW JIB * 
***************** 



*****H3********** 


*****H4********** 


* SET END * 


*PUT POINTER TO * 


* OF CHAIN * 


*NEW LOWER LIMIT* 


* IND. (HEX'FF' ) * 


*JIB INTO LUB OR* 


* IN NEW UPPER * 


* LAST PREVIOUS * 


* LIMIT JIB * 


♦UPPER LIMIT JIB* 


***************** 

*x 


***************** 


X 

***** 




*AC * 




* Bl* 




* * 

* 




NDRUTINE 





**** 

* * 

* 2 * 

* * 

**** 
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Chart AE. $$BODSPV: VTOC Display, Phase 1 



****A1 ********* 

* * 

* $$B0DSPV * 

* * 

*************** 



*SAVE REGISTERS * 

* USED IN THIS * 

* ROUTINE * 

* * 
***************** 



*****d ********** 

* * 

* RELOCATE * 

* ADDRESSES * 

* IN CCW'S * 

* * 

******** 



FIRSTMSG X 

****D1 *********** 
PRINTER1 AE 

*_*_*_*_*_*_*_*_* 

PRINT MSG 
* 4V95A OR * 
4V96A 
***************** 



REREAD 

****E1 *********** 

READMSG AE 
*_*_*_*_*_*_*_*_* 

READ 
* OPERATOR * 
RESPONSE 
***************** 



.* IS * 
.RESPONSE EOB 
*. OR CANCEL.* 



**** 

* * 

* 2 * 

* * 
**** 



SAVESYS X 

*****C2********** 

* SAVE * 

* SYS TYPE * 

* tSYSLOG OR * 

* SYSLST) FOR * 

* MEXT PHASE * 
***************** 



*****D2********** 

* INITIALIZE * 

* T3 FETCH THE * 

* SECOND PHASE * 
*OF VTOC DISPLAY* 

* $$BODSPW * 
***************** 



****E2********* 

* SVC 2 * 

* FETCH * 

* $$BODSPW * 
*************** 



****A3********* 



*************** 



READMSG 

*****B3********** 

* INITIALIZE * 

* CCB WITH * 

* ADDRESSES OF * 

* READ CCW * 

* * 
***************** 



****A4********* 

* * 

* PRINTER1 * 

* * 
*************** 



PRINTER1 

*****B4********** 

* INITIALIZE * 

* CCB WITH * 

* ADDRESS OF * 

* PRINT CCW * 

* * 
***************** 



*****C4********** 

* * 

* LOAD * 

* ADDRESS * 

* OF CCB * 

* * 
***************** 



****D4_********* 
SVC 
* EXECUTE 
CHANNEL 
* PROGRAM * 

***************** 



♦ ♦♦♦♦>[._,♦♦♦******* 

♦ ♦ * * 

♦ * SVC t * * 
X* * WAIT * *. 

♦ * * * 

♦ * * * 
it*************** 



.* WAS OPEM *. NO 
.X*. FDR JOB .*... 

*. CONTROL .* 



*** + |- /,********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 



.* *. 
.* DISPLAY *. YES 
*. VTOC ON .*.... 
*. SYSLOG .* 
*. .* 

*. .* X 
*NO **** 
* * 


****Q2********* 

* SVC 11 * 

* RETURN TO * 

* JOB CONTROL * 
*************** 


****G3*****3jc*** 

* SVC 6 * 

* CANCEL * 

* * 
*************** 


X 

.*. 

HI *. 

.* *. 

.* DISPLAY *. ^ 


* 2 * 

* * 
**** 






rEs 




.*. 
H2 *. 
.* *. 
.* IS *. YES 


SYSPRINT 

*****H3********** 

* INIT. CCB * 

* AND CCW TO * 


*. SYSLST .* 
*. .* 
*. .* 
*NO 






*. PRINTER .* 
*. .* 
*. .* 
*NO 


*PAGE ON SYSLST * 
* * 
***************** 


X 

*****J1 ********** 

* INITIALIZE * 

* TO PRINT * 

* INVALID * 

* RESPONSE * 

* MESSAGE * 
***************** 




MOVEMSGl X 

*****j2********** 

* INITIALIZE * 

* TO PRINT * 

* SYSLST NOT A * 

* POINTER MSGr * 

* 4V96A * 
***************** 


X 
****J3*********** 

PRINTER1 AE 
*_*_*_*_*_*_*_*_* 
SKIP TO 
* NEW PAGE * 

***************** 


X 

**** 

* * 

* 1 * 

* * 
**** 








X 

**** 

* * 

* 2 * 

* * 
**** 
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Chart AF. $$BODSPW: VTOC Display, Phase 2 (Section 1 of 3) 



**** 

* * 

* i * 

* * 
**** 



****A1 ********* 

* * 

* $$B0DSPW * 

* * 
*************** 



VTOCDSPZ 

*****Q1 ********** 

* RLLCCATE * 
*CCB'S AND CCW'S* 

* INITIATE * 

* HEADER * 

* LINE * 
***************** 



CI ♦ . 
.WAS THIS*. 
NO .♦ DISPLAY ♦ . 
..♦.CALLED BY MSG. 
RTN. 



*. 



.* 



*****0l ********** 

* INITIALIZE * 

* TO RETURN TO * 
♦MESSAGE WRITER * 
♦PHASE $$BOMSGl * 

* * 
***************** 



El ♦. 

.♦ WAS ♦. 

NO .♦ DISPLAY *. 

,..♦. CALLED BY . 

♦.$$BODSMW .♦ 

♦ . .* 



♦ YES 



*****P1 ********** 

* * 

* SET UP ♦ 

* TO RETURN TO * 

* $$B0DSMW ♦ 

* * 
***************** 



****A3*********** 
READDISK ^ AH 
**_*_*_*_*_*_*_** 

READ 
* VOLUME * 

LABEL 
**************** 



WAS 

RECORD 

FOUND 



*****C3********** 

♦ INIT TO READ ♦ 
♦FORMAT 4 LABEL ♦ 
♦MOVE PACK SfcR. ♦ 

♦ NO. IN HEADER ♦ 

♦ LINE ♦ 
***************** 



****03*********** 

PRINTER1+4 AH 

**-*-*-*-*-*-*-** 

PRINT 

HEADER ♦ 

LINE 



****Q4 *********** 



************* 



♦ ♦♦♦(^♦♦♦♦♦♦♦♦* 

* * 

* CANCEL ♦ 

* * 
*************** 



******** 



******** 



***#*E3********** 

* * 

♦ SET CHAIN ♦ 
♦FLAG ON IN 2ND ♦ 

♦ PRINT CCW ♦ 

* * 
***************** 



*****P3********** 

* * 

* LOAD ♦ 

* MESSAGE * 

* 4V04I ♦ 

* * 
***************** 



DISPLAY 

ON 
SYSLOG 



*****Hl ********** 
♦MODIFY CCW FOR * 

♦ AUTO. CARRIER ♦ 

♦ RETURN AND ♦ 

♦ FOR COMMAND ♦ 

♦ CHAINING ♦ 
***************** 



**** ji *********** 

PRINTER1+4 AH 
**_*_*_*_*_*_*_** 

SKIP 



_*_*_*_** 
READ VTOC 
* FORMAT 4 * 
LABEL 
***************** 



****H4*********** 



* SET CCW ♦ 

* LENGTH TO ♦ 

* {<> BYTES * 

* * 
***************** 



*****j3********** 

♦ * 

♦ SAVE ♦ 

♦ VTOC ♦ 

♦ LIMITS ♦ 

♦ * 
***************** 



*****K3********** 

* * 

* LOAD ♦ 

* MESSAGE * ' 

* 4V09I ♦ 

* * 
***************** 



***************** 



****j4********* 

* * 

* CANCEL ♦ 

* * 
*************** 



* 1 * 

* * 
**** 



X 

***** 

♦ AG ♦ 

♦ Al* 
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Chart AG. $$BODSPW: VTOC Display, Phase 2 (Section 2 of 3) 



***** 

*AF * 
* K3* 



**** 

* * 

* 6 * 

* * 
**** 



MOVERCM X 

*****A1 ********** 

* INITIALIZE * 

* CCW CHAIN * 

* TO READ * 

* LABELS TO * 

* VTOC * 
***************** 



****B1 *********** 

READOISK AH 
**_*_*_*_*_*_*_** 

READ NEXT 
* LABEL IN * 
VTOC 
***************** 



*****A3********** 

* * 

* GET NUMBER * 

* OF EXTENTS * 

* FOR THE FILE * 

* * 
***************** 



.* FIRST *. 

* EXTENT A *. YES 
USER LABEL .*.... 

♦ . EXTENT .* 



**A4******* 

* * 

* SET SWITCH 
* TO RETURN 

* *D4 

* * 
*********** 



A5 *. 

.* ALL * 

EXTENTS 

DONE ON 

.FORMAT 3 

♦.LABEL.* 

*. .* 

*YES 



**B4******* 

* * 
ADD ONE 

TO NUMBER 
OF EXTENTS 

* * 
*********** 



****C2*********** 



. * END 
OF 
♦.CYLINDER 



.* LABEL *. 
* WITHIN *. YES 

VTOC .*.... 
♦. EXTENT .* 



***************** 



****02********* 

* CANCEL * 

* * 
*************** 



*****C3********** 

* INITIALIZE * 

* REGISTERS * 

* TO UNPACK * 

* FIRST * 

* EXTENT * 
***************** 

**** 



**** 
RELOAD8 

*****D3********** 

* INIT REG WITH * 

* NUMBER OF * 

* EXTENTS/LINE * 
♦AND PRINT AREA * 

* ADDRESS * 
***=( 



* INITIALIZE TO ♦ 
♦READ NEXT LABELS 

* IN CHAIN ♦ 

* * 
***************** 



****C5*********** 
READDISK AH 
**_*_*_*_*_*_*_** 

READ NEXT 
* LABEL IN * 

CHAIN 
**************** 



*D4 
WHEN SWITCH IS SET OFF 
INSTRUCTION AT E5 IS 
A NOP. 



ALLDONE 

*****P1 ********** 

* INITIALIZE ♦ 

* TO PRINT ♦ 

* END OF * 

* JOB * 

* MESSAGE ♦ 
***************** 



****G1 *********** 

PRINTER+4 AH 
**_*_*_*_#_*_*_** 

PRINT 
. * EOJ * 
MESSAGE 
***************** 



*****H1 ********** 



***************** 



****jl********* 

* RETURN TO * 

* $$BOMSGL * 

* * 
*************** 



DATA 

SECURED 

FILE 



* 5 



**** 
UNPACK3 X 

*****£ 3********** 

* UNPACK EXTENT ♦ 

♦ AND ♦ 
♦MODIFY ADDRESS ♦ 

♦ FOR * 

* NEXT EXTENT * 
***************** 



.*ARE ALL*. 
.♦ EXTENTS ♦. YES 
.UNPACKED FOR .♦..., 
♦.THE FILE .♦ 



FORMAT ♦. 
3 LABEL 
.EXHAUSTED.* 



**** 



MOVE 

*****H2********** 

* CONVERT FIRST * 

* 59 bYTES TO * 

* PRINTABLE * 
*CHARS AND MOVE * 

* TD PRINT AREA * 
***************** 



**** J 2*********** 
PRINTER1 AH 
**-*_*_*_*_*-*_** 
PRINT 
* FIRST LINE * 
OF LABEL 
***************** 



*****K2********** 

* CLEAR PRINT * 

* AREA AND MOVE * 

* 3 EXTENTS TO * 

* START OF * 

* READ AREA * 
***************** 



**** 
* * 

* 1 * * 7 * 

* * * * 
**** **** 

MORXTNTS 



H3 *. 

.* ARE *. 

.♦ 3 EXTENTS ♦. NO 

♦. DONE ON .♦... 

♦. PRINT .* 

♦.LINE .♦ 

♦ . .* 

*YES *■ 



****j3*********** 

PRINTER1 AH 
**_*_*_*_*_*_*_** 

PRINT NEXT 
* LINE OF LABEL* 

***************** 



**** 
*K3 
SWITCH IS SET BY 
INSTRUCTION AT A4. 



E4 *. 

.* ARE *. 

.♦ THERE 3 *. 

.EXTENTS TO BE. 

*. PRINTED .♦ 

♦ . .* 



**P4******* 

* * 
MODIFY CCW 
TO PRINT 2 

EXTENTS 

* * 
*********** 



.* ARE *. 
.* THERE 2 *. YESX 
♦.EXTENTS TO BE.*. 
*. PRINTED .* 



**H4******* 



MODIFY CCW 

TO PRINT 1 

EXTENT 

* * 

*********** 



LASTLINE 

****J4*********** 

PRINTER1 AH 
**-*_*_*-*_*_*_** 

PRINT LAST 
♦ LINE OF ♦ 
LABEL 
***************** 



*****K4**** ****** 

* CLEAR PRINT * 

* AREA. RESET * 

* PRINT CCW * 

* LENGTH TO ♦ 

* NORMAL * 
***************** 



SWITCH 
SET 
*K3 



*****P5********** 

* SHIFT AND * 

* PACK EXTENTS * 

* INIT. REGS. TO ♦ 

* UNPACK * 

* EXTENTS * 
***************** 



RETURNF3 X 

*****H5********** 

* CALCULATE * 

* NUMBER OF * 

* EXTENTS AND * 
*ADDR. OF FIRST * 
*BYTE TO UNPACK * 
***************** 



***** j 5********** 

* * 

* INCREMENT * 

* EXTENT COUNT * 

* BY ONE * 

* * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 
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Chart AH. $$BODSPW: VTOC Display, Phase 2 (Section 3 of 3) 



****B1 ********* 

* * 

* PRINTER1 * 

* * 
*************** 



****B4********* 

* * 

* KEADDISK * 

* * 
*************** 



* SET CHAIN * 

* FLAG OFF IN * 

* 1ST CCW * 

* * 
***************** 



*****D1 ********** 

* * 

* GET ADDR. * 

* OF * 

* CCB * 

* * 
***************** 



****E1 *********** 
SVC 
* WRITE ON * 
SYSLOG 



* LOAD 

* ADDRESS 

* OF CCB 
* 
**************** 



****D4** ********* 
SVC 
* EXECUTE * 
CHANNEL 
* PROGRAM * 

***************** 



*****E 5********** 



***************** 



*****P2********** 



************-***** 



*****G1 ********** 

* * 

* SET CHAIN * 

* FLAG ON IN * 

* 1ST CCW * 

* * 
***************** 



****hl ********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 



*****P4********** 

* SET * 

* CONDITION * 

* CODE FOR * 

* NO RECORD * 

* FOUND * 
***************** 



*****G4********** 



***************** 



*****H4********** 



***************** 



***************** 



****K4********* 

* SVC 2 * 

* FETCH MSG RTN * 

* * 
*************** 
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Chart AJ. $$BOVDMP: VTOC Dump (Section 1 of 2) 



****A1 ********* 

* $$B0VDMP * 

* *B2 * 

* * 
*************** 



*****B1 ********** 

* * 

* SAVE * 

* USER * 

* FILE-ID * 

* * 
***************** 



*****d ********** 

* INITIATE * 

* FOR * 

* MESSAGE * 

* ROUTINE * 

* * 
***************** 



RELOCATE X 

«****0l ********** 

* INIT SEEK * 

* ADDRESS AND * 
♦RELOCATE CCB'S * 

* AND CCW'S * 

* * 
***************** 



*B2 
ENTERED FROM 
$$B0MSG2 OR 
F*OM USER. 



IS *. 
SYSLST 
A PRINTER.* 



****P1 *********** 
SVC 
* SKIP FORMS * 
TO NEW 
* PAGE * 

**************** 



****G1 *********** 
READDISK AK 
**-*_*-*_*_*_*_** 

READ VOLUME 
* LABEL * 

***************** 



OPEN *. NO 
FROM JOB .*... 
. CONTROL .* 



**#*D2* ******** 

* SVC 11 * 

* RETURN TO * 

* JOB CONTROL * 
*************** 



****A3*********** 
PRINTER1 AK 
**_*_*_*_*_*_*_** 

PRINT HEADER, 
* SPACE 2 LINES** 

***************** 



*****B3********** 

* CLEAR SEARCH * 
*KEY FIELD, SET * 

* UP TO READ * 

* FORMAT 4 * 

* LABEL * 
***************** 



READFMT4 

****C3*********** 
READDISK AK 
**_*-*_*-*-*_*_** 
FORMAT 4 
* LABEL * 

***************** 



****04**«******** 



.* 


CALLED *. YES 




BY .*.... 


** 


. OPEN .* 




* . .* 




*. .* 




* 


*NO 




) 


C '. 


****F2********* 




SVC 11 * 




RETURN TO * 




USER * 






c******* 



WAS 

RECORD 

FOUND 



Jl *. 
.* WAS *. 
* STANDARD 

VOL1 LABEL 
*. READ 
*. .* 



*****K.l ********** 
♦GET VTOC ADDR. * 

* AND SET UP * 

* HEADER LINE * 

* TO PRINT * 

***************** 



**G2******* 

* * 
RESET 
OPEN 

ACTIVE 

* SWITCH * 
*********** 



****H2********* 

* SVC 6 * 

* ABORT * 

* JOB * 
*************** 



****J2*********** 



WAS 

RECORD 

FOUND 



**E3******* 

* INIT CCW * 
CHAIN TO 

READ LABELS 
IN VTOC 

* * 
*********** 



*****F3********** 

* * 

* LOAD * 

* MESSAGE * 

* 4-V09I * 

* * 
***************** 



* INIT TO * 

* FETCH * 

* $$BOWDMP * 

* * 
***************** 



****H3********* 

* SVC 2 * 

* FETCH * 

* $$BOWDMP * 
*************** 



***************** 



****E4********* 



*************** 



***************** 



****K2********* 

* * 

* CANCEL * 

* * 
*************** 
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Chart AK. $$B0VDMP: VTOC Dump (Section 2 of 2) 



****B1 ********* 

* * 

* READDISK * 

* * 

*************** 



****B4********* 

* * 

* PRINTER 1 * 

* * 
*************** 



* LOAD * 

* ADDRESS * 

* OF CCB * 

* * 
***************** 



****D1 *********** 
SVC 
* EXECUTE * 
CHANNEL 
* PROGRAM * 

***************** 



* LOAD 

* ADDRESS 

* OF CCB 
* 
************* 



****D4*********** 
SVC 
* EXECUTE * 
CHANNEL 
PROGRAM * 

*************** 



*****E2********** 

* * * * 

* * SVC 7 * * 
X* * * *. 

* * WAIT * * 

* * * * 
***************** 



***** e 5********** 
* * * * 

SVC 7 * * 
* *. 

WAIT * * 



.X* * 



* * 
***************** 



****P1********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



***#*P4**** ****** 

* * 

* CLEAR * 

* PRINT * 

* AREA * 

* * 
***************** 



****G4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart AL, $$BOWDMP: VTOC Label List (Section 1 of 2) 



****A1********* 

* * 

* SSBOWDMP * 

* * 
*************** 



*****Bi ********** 
*UNPACK AM* 
*-*-*-*-*-*-*-*-* 

* CONVERT * 

* AND * 

* PRINT LABEL * 
************* - • 



**** 



**** 



*AM * 
* Dl* 
**** . **** 
NEXTADR X 

****d *********** 
REAODISK AL 
**-*_*_*-*_*_*_** 

READ 
* NEXT LABEL * 
IN VTOC 
***************** 



****A3********* 

* * 

* READDISK * 

* * 
*************** 



* LOAD * 

* ADDRESS * 

* OF CCB * 

* * 
***************** 



***#C3*********** 

* SVC EXECUTE * 
CHANNEL 
* PROGRAM * 

***************** 



****D 2** ********* 



WAS 
RECORD 
FOUND 



Fl *. 

.* IS *. 

.* NEXT *. 

.LABEL IN VTOC. 

*. LIMITS .* 



***************** 



****E2********* 

* * 

* CANCEL * 

* * 
*************** 



*****P2********** 

♦UNPACK AM* 

*_*-*_*_*-*-*_*_* 

.X* UMPACK LABEL * 



****E3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****04********** 



***************** 



****E4********* 

* PRINTER 1 * 

* * 
*************** 



***************** 



* LOAD 

* ADDRESS 

* OF CCB 
* 
*********** 



* INITIALIZE * 

* TO PRINT END * 

* MESSAGE * 

* * 
***************** 



* SVC EXECUTE * 
CHANNEL 
* PROGRAM * 

***************** 



****H1 *********** 
PRINTER1 AL 
**_*_*_*_*_*_*_** 
PRINT 
* EOJ * 
MESSAGE 
***************** 



OPEN 

FROM JOB 

■. CONTROL 



****K1 ********* 

* SVC 11 * 

* RETURN TO * 

* JOB CONTROL * 
*************** 



J2 *. 
.* WAS *. 
.♦THIS PHASE 
.X*. CALLED BY 
OPEN 



*. 



.* 



****K2********* 

* SVC 11 * 

* RETURN TO * 

* USER * 
*************** 



**j3******* 

* * 
RESET 
OPEN 

ACTIVE 

* SWITCH * 
*********** 



****«3********* 

* SVC 6 * 

* ABORT JOB * 

* , * 
*************** 



*****H5********** 

* * * * 

* * SVC 7 * * 



***************** 



*****j4********** 

* * 

* CLEAR * 

* PRINT * 

* AREA * 

* * 
***************** 



****«4 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart AM. $$B0WDMP: VTOC Label List (Section 2 of 2) 



****A2********* 

* * 

* UNPACK * 

* * 
*************** 



DATA *. 

SECURED .* 

FILE .* 



* CONVERT DISK * 

* ADDRESS TO * 

* PRINTABLE * 

* CHARACTERS * 
***************** 



**_*_*_*_*_*_*_** 
PRINT DISK ADDR 
* AND LABEL * 

SKIP 1 LINE 
***************** 



X 
***** 
*AL * 
* CI* 



***** E 1 ********** 

* * 

* CONVERT FIRST * 

* 75 BYTES OF * 

* THE FORMAT 1 * 

* LABEL * 
***************** 



****Fi *********** 
PRINTER1 AL 

**_*_*_*_*_*_*_** 

PRINT FIRST 
* LINE OF * 

FMT1 LABEL 
***************** 



*****G1 ********** 

* * 

* CONVERT NEXT * 

* 30 BYTES OF * 

* THE FORMAT 1 * 

* LABEL * 
***************** 



****H1 *********** 
PRINTER1 AL 

**_*_*_*-.*_*_*_** 
PRINT SECOND 
* LINE OF * 

FMT1 LABEL 
***************** 



***** j i ********** 

* * 

* CONVERT * 

* EXTENT FIELDS * 

* TO PRINTABLE * 

* CHARACTERS * 
***************** 



.X* 



CONVERT * 
LABEL INTO * 

* PRINTABLE * 

* CHARACTERS * 
***************** 



*CHA 
*PRI 
**** 



*H2********* 
ONVERT F3 
TENTS INTO 
PRINTABLE 
RACTERS FOR 
NT LINE *K4 
************ 



J2 *. 
.*IS THIS*. 
* THE LAST 

PRINT LINE 

*. FOR F3 . 

*. LABEL.* 

*. .* 

*NO 



F3 *. 

.* ALL * 

.* LABEL 

FIELDS 

*. UNPACKED 

*. .* 

*. .* 



****G3*********** 
PRINTER1 AL 
**_*_*_*_*_*_*_** 

PRINT 
* LABEL * 

LINE 
**************** 



H3 *. 
.* IS *. 
* THIS THE 

LAST PRINT 

*.LINE FOR . 

♦.LABEL.* 

*. .* 

*N0 



**** 

* * 

* 2 * 

* * 
**** 



,* CLEAR LAST * 
.X* 12 BYTES * 

* OF THE * 

* PRINT AREA * 
***************** 

**** 



* 3 



**** 
PUTTER2 X 

****G4*********** 
PRINTER1 AL 
**_*_*_*_*-*_*_** 
PRINT LAST 
* LABEL LINE * 
SKIP 2 SPACES 
***************** 



****H4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****K1 ********** 


****K2*********** 


* 


* 


PRINTER1 AL 


* CONVERT 


* 


**_*_*_*_*_*_*_** 


* POINTERS TO 


* 


PRINT FMT3 


* PRINTABLE 


* 


* LABEL LINE * 


* CHARACTERS 


* 


*K4 


***************** 


***************** 


X 




X 


**** 




**** 


* * 




* * 


* 3 * 




* 1 * 


* * 




* * 


**** 




**** 



*K4 
5 EXTENTS 
PER PRINT 
LINE. 
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Chart ANo $$B0MSG1: Disk Open Error Message Writer, Phase 1 (Section 1 of 2) 



****A1 ********* 

* ENTERED * 

* FROM * 

* *A2 * 
*************** 



*A2 
L. 
2. 



SEQUENTIAL DISK 



**** 

* * 

* 2 * 

* * 
**** 



* SAVE RETURN 
♦PHASE NAME AND 
♦MESSAGE NUMBER 



********* 



*****d ********** 

* MOVE * 

* ORGANIZATION * 

* TYPE NUMERIC * 

* CODE TO * 

* MSG OPT AREA * 
***************** 



SPECIFIED 

IN DTF .: 



*****Ei ********** 

* * 

* MOVE DTF FILE * 

* NAME TO MSG * 

* OUTPUT AREA * 

* * 
***************** 



* GET ADDR * 

* OF OPEN * 

* CCB * 

* * 
***************** 



****C3*******»** 

FIND LUB * 

ENTRY FOR LOG * 

UNIT SPEC IN * 

CCB USING * 

SYSIR MACRO * 

**************** 



RELEASE DSECT 
REG USED BY 
SYSIR MACRO 



*****C4********** 

* * 

* GET ADDR * 

* OF CCB FOR * 

* SUPERVISOR * 

* * 
***************** 



****D4*********** 
SVC 
* READ * 
VOLUME 
LABEL * 

*************** 



THIS A 
TAPE FILE 
. PROTECT . 
*. MSG .* 



C5 *. 
.* IS * 
NO .* THIS A 
...*. TAPE NOT 
*. READY 
*. MSG .* 



*YES 



* 3 * 

* * 
**** 



* INIT CCW * 

* WITH SYSLOG * 

* OP CODE * 

* * 
***************** 



* RELOCATE * 

* THE CCB AND * 

* THE CCW'S * 

* * 
***************** 



*****Q2********** 

* * 

* GET SYMBOLIC * 

* UNIT ADDR * 

* IN CCB * 

* * 
***************** 



.« IS • . 






. ♦ *. 


.* UNIT * 


. YES 


.♦ I/O 


. IGNORED OR 


.* 




♦. COMPLETE 


*UNASSIGNED.* 




. 




*. .* 






<*. .* 


*. '.* 




X 


*. .* 


*NO 




**** 

* * 

* 3 * 

* * 
**** 


*YES 


X 






X 


****F3********** 




*****F4******* 




* 




* 


FIND PUB 


* 




* RESTORE CCW 


ENTRY FOR UNIT 


* 




* STRING ADDR 


SPEC IN CCB 


* 




* IN OPEN CCB 



***** E5********** 

* * SVC 7 * * 

* * WAIT * * 
FOR I/O * *. 

* * COMPLETE * * 

* 4 * * 
***** ************ 



.X* 



*****H1 ********** 

* CONVERT * 

* SYMBOLIC * 

* DISPLACEMENT *X. 
*INTO PRINTABLE * 

* FORMAT * 
***************** 



***************** 



*****G3********** 

* * 

* UNPACK CHAN * 

* AND UNIT ADDR * 

* CLEAR ZONE * 

* BYTE * 
***************** 



*****H3********** 
♦TRANSLATE CHAN * 

* AND UNIT ADDR * 

* TO PRINTABLE * 
*HEX AND MOVE TO* 
♦MSG OUTPUT AREA* 
***************** 



***************** 



*ERR0R OCCURRED.*.. 



*****J1 ********** 

* MOV E * 

* CONVERTED * 

* INFO TO * 

* MSG OUTPUT * 

* AREA * 
***************** 


*****j2********** 

* GET SYS * 

* MSG * 

* DISPLACEMENT * 

* AND ADDR OF * 

* REQ SYS MSG * 
***************** 


*****j3********** 
*SET MSG LENGTH * 

* IN SYSLOG * 
*CCW TO INCLUDE * 

* CHANNEL AND * 
• *UNIT ADDRf CUU * 

***************** 


*****j4********** 

* MOVE VOL * 

* NUMBER TO * 

* MSG OUTPUT * 

* AREA ♦ 

* * 
***************** 


X 
**** 

* * 

* 1 * 

* * 
**** 




X 
*****K2********** 

* MOVE SYMBOLIC * 

* UNIT NUMBER * 

* AND CONSTANT * 

* TO MSG * 

* OUTPUT AREA * 
***************** 


X 

.*. 

K3 *. 

.* IS *. 

.* THIS AN *. YES 

*. INVALID LOG .*.... 

*. UNIT .* 

*. MSG .* 

*. .* X 


X 

*****K4********** 

* SET MESSAGE * 

* LENGTH IN ♦ 

* SYSLOG CCW TO ♦ 
♦MAXIMUM VALUE, * 

* Gl * 
***************** 



***** 

*AP * 
* Bl* 
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Chart AP. $$B0MSG1: Disk Open Error Message Writer r Phase 1 (Section 2 of 2) 



♦AN-B5,C5,E3,G4,H4,K3,K4 



SHIFTMSG X 

*****Bl**** ****** 

* GET NO. OF * 

* MSG TO BE * 

* WRITTEN * 

* ON SYSLOG * 

* * 
***************** 



.* WRONG * 
.♦.PACK MOUNTED 
♦ . MSG .* 
*. .* 



*****D1 ********** 

* MOVE PACK * 

* SERIAL NO. * 

* TO MSG * 

* OUTPUT * 

* AREA * 
***************** 



**** 

* * 

* 2 * 
**** 



B3 ♦ . 

* IS * 

MSG IN 

CURRENT 

PHASE 



* GET ADDR OF * 

* FIRST MSG IN * 

* $$B0MSG2 * 

* * 
***************** 



EQUAL 

FILE ID 

MSG 



* I NIT CCW TO * 
♦WRITE 3 BLANKS * 

* ON SYSLOG ♦ 

* * 
***************** 



*E2 
ADDR OF MSG = 
MSG NUMBER 
MULTIPLIED BY 
ITS LENGTH 
FACTOR PLUS 
ADDR OF FIRST 
MSG IN PHASE. 



*****03********** 

* ♦ 

* GET ADDR * 

* OF MSG ♦ 

* *E2 '♦ 

* ♦ 
***************** 



*****E3********** 

* * 

* SET UP ♦ 

* TO FETCH ♦ 

* $$BOMSG2 ♦ 

* * 
***************** 



****P3********* 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$BOMSG2 ♦ 
*************** 



*****B4 ********** 

♦ UPDATE MSG ♦ 

♦ OVERLAY ♦ 
X^ PHASE NO. TO ♦ 

♦ THE NEXT ♦ 

♦ OVERLAY PHASE ♦ 
***************** 



*****C4********** 
♦SUBTRACT NO. OF+ 

♦ MSGS IN ♦ 
♦OVERLAY PHASES ♦ 

♦ (13) FROM ♦ 

♦ CURR MSG NO. ♦ 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



♦ GET ADDR OF ♦ 

♦ 1ST MSG TO ♦ 

♦ BE WRITTEN ♦ 

♦ BY THIS PHASE ♦ 
***************** 



.♦. 

HI ♦. 

.♦ IS ♦. 

.♦ MSG TO BE ♦. 

. WRITTEN IN . 

♦. THIS .♦ 

♦. PHASE. ♦ 

. ♦ 



♦NO 



*****jl ********** 
♦SUBTRACT NO. OF^ 

♦ MSGS IN ♦ 

♦ PREV PHASES ♦ 

♦ (15) FROM ♦ 

♦ CURR MSG NO. ♦ 
***************** 



* 1 * 

* * 
**** 
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Chart AQ. $$BOMSG2: Disk Open Error Message Writer, Phase 2 (Section 1 of 3) 



* MSGR0UT2 * 

* \ * 
* w^wwwwwv Wf V* 



-A2 

ENTERED FROM $$B0MSG1 



♦ A5 
THE NAMES OF 
THE MESSAGE 
OVERLAY PHASES 
ARE — 

1. $$B0MSG3 

2. $$B0MSG4 

3. $$B0MSG5 

4. $$B0MSG6 

5. $$B0MSG7 
THESE PHASES 
CONTAIN MESSAGES 
ONLY. 



* OVLAP * 

UNEXPRD 

SECURED 

FILE 



*N0 


**** 




* * 


. 


* 1 * 




* # 




**** 


X 




.*. 




CI *. 




.♦ *. 


FILE 


* WRONG *. 


OVERLAP 


PACK MOUNTED .* 




♦ . MSG .♦ 




*. .♦ 




*. .* 


X 


♦WRONG 


**** 


.PACK 


* * 




* 2 * 




* * 




**** 


X 


SE 


**D1******* 




* * 




TURN ON * 




WRONG PACK * 




SWITCH * 





B2 *. 

.♦ FIELD * 
ID FIELD 
POSITION 

. BLANK 



* * 

* INIT COUNT * 

* FIELD IN * 

* CCW * 

* * 
***************** 



*********** 



EQUAL 

FILE ID 

MSG 



**F1******* 
* TURN ON * 

* BR SWITCH 
* FOR MSG 

* 4N33A 

♦AT MSG05SW ♦ 
*********** 

**** 



**** 
SETABORT X 

*****p2********** 

♦ * 

♦ INITIALIZE ♦ 

♦ FOR A CANCEL ♦ 

♦ SITUATION ♦ 
***************** 



IS 

THIS A 

TAPE 

*. MSG . 



MODRESP 

«*p2******* 

♦ MODIFY ♦ 
♦RESPONSETESTS* 

* TO PREVENT * 
♦ VTOC DMP * 

♦ FROM TAPE * 
*********** 



♦ 2 ♦.. 



**** 
FILEOVLP 

*****Gl ********** 

♦ INIT CCW ♦ 

♦ TO WRITE * 

♦ FILE-ID AND ♦ 

♦ THREE ♦ 

♦ BLANKS ♦ 
***************** 



**** 

* * 

♦ 1 *, 



♦*** 
SECDOVLP 

**Hi******* 

♦ TURN OFF ♦ 

♦ FILE OVERLP 
♦ MESSG* BR 

♦ SWITCH AT 

♦ TYPEASW ♦ 
*********** 



♦ CHARACTERS * 

♦ PLUS ONE ♦ 

♦ IN FILE ID ♦ 
***************** 



*****«! ********** 

♦ * 

♦ GET END ADDR ♦ 

♦ OF FILE ♦ 

♦ ID FIELD ♦ 

♦ * 
***************** 



G2 ♦. 
.♦ IS ♦. 
♦ MESSAGE 

ALREADY IN 
♦. MAIN 
♦STORAGE^ 
♦ . .♦ 
♦NO 



*****(-l2********** 

♦ GET ADDR ♦ 

♦ OF MSG ♦ 

♦ OVERLAY ♦ 

♦ PHASE NAME ♦ 

♦ *A5 * 
***************** 



*****j2********** 

♦ GET LOAD ♦ 

♦ ADDR ♦ 

♦ OF * 

♦ MSG OVERLAY ♦ 

♦ PHASE ♦ 
***************** 



**** 

* * 

* 4 ♦ 



LOADPHAS X 

****C4*********** 
SVC 4 
♦ LOAD ♦ 
MESSAGE 
♦ OVERLAY ♦ 
PHASE 
***************** 



♦ MOVE MSG TO ♦ 

♦ SYSLOG OUTPUT ♦ 

♦ AREA ♦ 

♦ * 
***************** 



*****[./, ********** 

♦ INITIALIZE * 

♦ CCIJ WITH ♦ 

♦ SYSLOG ♦ 

♦ SYMBOLIC ♦ 

♦ UNIT ADDR ♦ 
*+«************** 

**** 

♦ * 

♦ AS * 

♦ D3^ 
**** 

WKUEMSG 

*****F4********** 

♦ * 

♦ GET ADDR ♦ 

♦ OF WRITE ♦ 

♦ CCW ♦ 

♦ * 
***************** 



***#G4^^+^^^+ 
SUMROUT AS 

**_*_*_*_*_*_*_** 

TYPE 
♦ MSG TO ♦ 
OPERATOR 
***************** 



♦ IS 
THIS A 
CANCEL 
MSG 



♦ . .♦ 


X 


♦NO 


***** 




♦ AR ♦ 




* B4+ 


X 


♦ ♦ 


***** 


* 


♦ AR ♦ 


ABORTJOB 


♦ Bl* 




* * 




* 




READMSG 





* 3 ♦ 

* * 
**** 
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Chart AR. $$B0MSG2: Disk Open Error Message Writer, Phase 2 (Section 2 of 3) 



***** 

*AQ * 
* H4* 



**** 

* * 

* 1 * 



***** 
*AQ * 
* H4* 



*AS-D1,G2,J1 



* GET ADOR 

* OF READ 

* CCH 
* 
************** 



****d *********** 
SUMROUT AS 
*-*_*-*_*_*_*_*_* 

READ 
* OPERATOR'S * 
RESPONSE 
***************** 



**** 
SETINTSW 

**03******* 

* * 

* SET MESSAGE 
* RETURN 

* INDICATOR 

* * 
*********** 



*****Q3********** 

* * 

* GET RETURN * 

* PHASE * 

* NAME * 

* * 
***************** 



Dl *. 
.* DID * 
.* OPERATOR 
. TYPE ALT. 
*. CANCEL 



TYPEEOB .*. 

El ♦. 

.* DID *. 
.* OPERATOR * 
♦ .RESPOND WITH 
*. EOD .* 



**D2********** 

* 

CLEAR * 

SYSLOG * 

TYPE-IN * 

AREA * 

************** 



.* 



* GET ADDR OF * 

* NEXT PHASE TO * 

* BE FETCHED * 

* * 
***************** 



****E3********* 

* SVC 2 * 

* FETCH RETURN * 

* PHASE * 
*************** 



* INITIALIZE * 

* TO CANCEL * 

* JOB * 

* * 
***************** 



IS 

RESPONSE 

. CANCELV 



.* IS *. 
THIS OPEN *. 
FOR JOB 
CTL .* 



****E4 ********* 

* SVC 6 * 

* CANCEL * 

* JOB * 
*************** 



**** 

* * 

* 5 * 



**** p5********* 

* SVC 11 * 
.X* RETURN TO * 

* JOB CONTROL * 
*************** 



*****P1 ********** 

* * 

* CONVERT * 

* RESPONSE TO * 

* UPPER CASE * 

* * 
***************** 



IS 

RESPONSE 
. DSPLYV 



GETDSPLY 

*****G2********** 

* GET RETURN * 

* PHASE NAME * 
...X* AND INIT TO * 

* FETCH * 

* $$BODSPV * 



HI *. 




.* IS *. 




JOB TO * 


YES 


BE CANCELED . 


*.... 


.* 




*. .* 




*. . * 


X 


*N0 


**** 




* * 




* 4 * 




, * * 




**** 


X 




.*. 




Jl *. 




.* IS *. 




THIS A *. 


NO 


'D' TYPE 


#.... 


MSG .* 




*. .* 




*. . * 


X 


*YES, 


***** 




*AS * 




* Bl* 




* * 




* 


X 


TYPEASW 


.*. 




Kl *. 




.* DID *. 




1" OPERATOR *. 


NO 


REPLY WITH, .*.... 


n. IGNORE .* 




*. .* 




*. . * 


X 


*YES 


***** 




*AS * 




* 03*ILLEGAL 


X 


* * 


**** 


* 


* * 




* 2 * 




* * 




**** 





* INITIALIZE * 

* TO FETCH * 

* $$BOVDMP * 
***************** 



*****H4********** 

* INIT SYMBOLIC * 

* UNIT AND * 

* BIN NO. FOR * 

* VTOC DUMP * 

* PHASE * 
***************** 



*****J4********** 

* * 

* GET ADDR OF * 

* SYMBOLIC UNIT * 

* AND BIN NO. * 

* * 
***************** 
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Chart AS. $$B0MSG2: Disk Open Error Message Writer, Phase 2 (Section 3 of 3) 



***** 

*AR * 
* Kl* 



**** 

* * 

* 2 * 



***** 
*AR * 
* Ji* 



FILE 

OVERLAP 

SW ON 



*****Cl ********** 

* MOVE A «D' * 

* TO MSG * 

* RESPONSE * 

* CODE AREA * 

* (FOR DELETE) * 
***************** 



Dl *. 




.♦ IS ♦. 




* UNEXPIRED * 


. YES 


FILE TO BE 


...... 


*. DELETED .* 




*. .* 




*. . * 


X 


*NO 


***** 




*AR * 




* B3* 




* * 




* 




SETINTSW 


X 
♦ ♦♦Fl ♦♦♦♦♦##♦ 






* 


RESET 


* 


TYPEWRITER 


* 


CCW TO NO-OP 


* 



ILLEGAL 

*****B3********** 

* MOVE * 

* 'ILLEGAL * 

* RESPONSE' * 

* MSG TO * 

* OUTPUT AREA * 
***************** 



* CLEAR * 

* SYSLOG * 

* TYPE-IN * 

* AREA * 
***************** 



*****03********** 

* MOVE LNG * 

* OF ILLEGAL * 

* MSG TO * 

* SYSLOG CCW * 
***************** 



***** 

♦ AQ * 

* F4* 



v ****A4********* 

* * 

* SUMROUT * 

* * 
*************** 



INIT CCB * 

WITH CCW * 

ADDR * 

* 

**************** 



*****C4********** 

* * 

* GET ADDR * 

* OF CCB FOR * 

* SUPERVISOR * 

* * 
***************** 



****D4*********** 



***************** 



***************** 



MSG05SW .*. 




Fl *. 




.* I.S. * 




.* MSG OR 


*. YES 


♦ . MSG 4N33A 


.*.... 


*. SWITCH 


* 


*. ON .* 




*. .* 


X 


*NO 


**** 


**** 


* * 


* * 


* 2 * 


* L *... , 


* * 


* * . *• 


**** 


**** X 




WRNGPKSW .♦. 


NEXTTEST .*. 


Gl *. 


G2 ♦ . 


.* * 


.♦ HAS *. 


.♦ WRONG 


♦ . YES .* OPERATOR *. NO 


*. PACK 


.* X*. MOUNTED NEW .*... 


*. SW ON 


* *. PACK .♦ 



.♦TYPEWRITER 
STILL 
*. BUSY 



****P4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



***** £5********** 

* * * * 

* * SVC 7 * * 
.X* WAIT FOR I/O* *. 

* * COMPLETE * * 

* * * * 
***************** 



*#***H1 ********** 

* MOVE A 'B' * 

* TO MSG * 

* RESPONSE * 

* CODE AREA * 

* (FOR BYPASS) * 
***************** 



***** 

♦ AR * 

* B3* 



* EXTENT 


*. 


YEC 


TO BE 




*.. .. 


♦.BYPASSED 


* 




*. .* 






*. .* 




X 


♦NO 




***** 
*AR * 






* B3^ 


X 




* * 


**** 




* 


* * 




SETINTSW 
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Chart AT. $$BODSMW: Data Security Message Writer (Section 1 of 2) 



****A2********* 

* * 

* SSBODSMW * 

* * 
*************** 



* SAVE NAME * 

* OF CALLING * 

* PHASE * 

* * 
***************** 



*****C2********** 

* INIT MSG * 

* WITH * 

* ORGANIZATION * 

* NUMBER * 

* CODE * 
***************** 



**** 

* * 

* 1 * 



GETCUU X 

*****B4********** 

* GET CHAN * 

* AND UNIT * 

* ADDR USING * 

* SYSIR * 

* * 
***************** 



RESTORE 

*****C4********** 

* RESTORE * 

* CCW * 

* STRING * 

* ADDRESS * 

***************** 



D2 *. 
.* DOES * 
.* DTF 
. REQUIRE A 
♦.FILENAME 



*****D3********** 

* * 

* INIT MSG * 
X* WITH * 

* FILENAME * 

* * 
***************** 



DONTMOVE 

**E2******* 

* INIT CCW * 

* WITH 
* SYSLOG 

* OP-CODE 

* * 
*********** 



LOOP X 

*****F2********** 

* RELOCATE * 

* CCB * 

* AND * 

* CCWS * 

* * 
***************** 



*****G2********** 

* LOAD CLASS * 

* ORDER OR * 

* SYM UNIT * 



*****E4 ********** 

* GET * 

* PARTITION * 

* PIB * 

* TABLE * 

* * 
***************** 



MOVENAME 

*****F4********** 

* GET JOB * 

* NAME AND * 

* END ADDR * 

* FO FILEID * 

* * 
***************** 



REDUCE 

*****G4********** 

* INIT CCW * 

* COUNT * 

* FIELD * 



***************** 



.* CLASS 
. UNIT FOR 
*.THIS OPEN. 



CONVERT X 

*****jl ********** 

* CONVERT SYM * 

* DISPLACEMENT * 

* - TO * 

* PRINTABLE * 

* FORMAT * 
***************** 



*****J2********** 



***************** 



***************** 

**** 

* * 
*AU *... 

* J3* 
**** 

WRITE X 

*****H4.********«* 

* * 

* RELOCATE * 

* WRITE * 

* CCB * 

* * 
***************** 



*AU * 
* B2* 
**** 



****J4*********** 
SVC 
* TYPE * 
ERROR 
*' MSG AND * 
READ REPLY 
***************** 



.X. 
X 

**** 
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Chart AU. $$BODSMW: Data Security Message Writer (Section 2 of 2) 



***** 

*AT * 
* J4* 



**** 

* * 

* 1 * 

* * 
**** 



WAS 

REPLY ALT 

. CANCEL . 



*****B2********** 

* * 

* PREPARE * 
X* TO REREAD * 

* RESPONSE * 

* * 
***************** 



***** 

♦ AT * 

* J4* 



TESTEOB .*. 












Dl *. 












* 


*. 






** 


WAS 




*. 


YES 


* 




REPLY 






*...- 




*. 


EOB 




*" 








*. 


* 










*. .* 






X 






*N0 






**** 
* 
* 1 

* 
**** 






X 












.*. 












El *. 












* 


* 








** 


WAS 




'*. 


NO 


* 


*. 


REPLY 
YES 




*" 


*...... 







****D3****: 

* SVC 11 

* RETURN TO 

* JOB CTRL 
************* 



**C4******* 

* RESET * 
OPEN 

ACTIVE 
SWITCH 

* * 
*********** 



YES .* OPEN 
....*. FROM 

*.JOB CTRL 



****E4********* 

* SVC 6 * 

* CANCEL * 

* JOB * 
*************** 



* INIT TO * 

* FETCH * 

* $$BOVDMP * 

* * 
***************** 



**D5******* 

* * 
SET 

CANCEL 
SWITCH 

* * 
*********** 



****E5********* 

* SVC 2 * 

* FETCH * 

* $$BOVDMP * 
*************** 



**P1******* 

* SET * 
MESSAGE 
RETURN 
SWITCH 

* * 
*********** 



****Gi ********* 

* SVC2 * 

* RETURN TO * 

* CALLING RTN * 
*************** 



WAS *. YES 

REPLY .*.... 

NO .* 



* 1 * 

* * 
**** 



.* WAS 
REPLY 
*. DSPLYV 



*****H2********** 

* * 

* SET UP * 

* TO CALL * 

* $$BODSPV * 

* * 
***************** 



**J2******* 
* SET * 

* SWITCH - * 
$$BODSPV 

* WILL RETURN * 
*TO $$BODSMW* 

*********** 



****«2********* 

* SVC 2 * 

* FETCH * 

* $$BODSPV * 
*************** 



WAS 

REPLY 

CANCEL 



*****j3********** 

* SET UP * 

* TO PRINT * 

* 'INVALID * 

* MESSAGE* * 

* * 
***************** 



***** 
*AT * 
* H4* 
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Chart BA. SDMODFI: With Truncation, GET Macro (Section 1 of 5) 



**** 

* * 

* i * 

* * 
**** 



**** 

* * 

* 2 * 

* * 

**** 



****A1 ********* 
♦ENTRY FROM GET * 

* MACRO * 

* * 
*************** 



* SAVE USER AND * 

* LINKAGE * 

* REGISTER * 

* * 
***************** 



.* FIRST * 
*. ENTRY AFTER 
♦ . OPEN .* 



**E1 ********** 



***************** 



*****F1 ********** 

* * 

* INCREASE I/O * 
♦AREA ADDRESS BY^ 

* RECORD SIZE ♦ 

* * 
***************** 



*A2 

SDMODFI MACRO 

PARAMETER 

OPTION -- DECISION 

DOES NOT APPEAR 

IN AN ASSEMBLY 

LISTING. 



♦SAVE REGISTERS ♦ 
X* 9-14 AND ♦ 
♦POINTER TO SAVE^ 
* AREA * 
***************** 



IJGFSW02 

*****C2********** 
♦GET ADDRESS OF ♦ 
♦I04REA AND SAVE + 

..X^ IN DEBLOCKING ♦ 

♦ CONSTANTS ♦ 

* * 
***************** 



*****02********** 

♦ COMPUTE END ♦ 

♦ ADDRESS OF ♦ 
♦IOAREA AND SAVE^ 

* * 

* * 
***************** 



.♦WAS END OF 

VOLUME 

♦. FORCED . 



*****A3********** 



**** 

♦ * 

♦ BB * 

♦ K3* 
**** X 

IJGFGETX .♦. 

B3 ♦. 

.* IS ♦. 

THERE A 

WORK AREA 



NO 



**** 

* * 

* 5 ♦ 

* * 
**** 



**** 

* * 
♦BB ♦... 

♦ H4* 
**** X 

IJGFTEST .*. < 
HI *. 
.♦END OF *. 
NO .* EXTENT 
...*. SWITCH ON 



**** 

* * 

* 4 * 

* * 
**** 

**J1 ******* 

* * 

* * 
* RESET SWITCH * 

* * 

* * 
*********** 



**** 

* * 

* 1 * 

* * 
**** 



JGFSETC 

**G2******* 

* SET * 

* MULT TRACK 
* BIT ON IN 

* READ COUNT 

♦ CCW ♦ 
*********** 



*****C3********** 



***************** 



*****Q3********** 



***************** 
**** 



***************** 



*****P3********** 

♦ * 
*LOAD IOREG WITH* 
♦RECORD ADDRESS ♦ 

♦ ♦Kl ♦ 

♦ * 
***************** 



****G3 ********* 

♦ RETURN TO ♦ 
♦PROBLEM PROGRAM^ 

* * 
- *************** 



***************** 



.* TRACK ♦. 
LIMIT ♦ 
EXCEEDED 



FIRST 
BLOCK ON 
. TRACK 



D4 ♦. 
.♦EXTENT ♦ 
♦ UPPER 
LIMIT 
♦.EXCEEDED 



**E4******* 



*********** 



X 

***** 
*BB ♦ 
♦ Jl* 



***** 
*BB ♦ 
* Bl* 



IJGFEXTN X 

*****B 5** ******** 
♦SAVE WORK AREA ♦ 

♦ AND DTF TRACK ♦ 

♦ ADDRESSES IN ♦ 

♦ SAVE AREA ♦ 

♦ * 
***************** 



**C5******* 

♦SET END OF ♦ 

♦DTF INDICATORS 

♦ FOR OPEN ♦ 

♦ ROUTINE ♦ 

* * 

*********** 



.♦ ♦. YES 

♦.RDONLY = YES ...... 

♦. ^A2 .♦ 



* 5 ♦ 

* * 
**** 



INSTRUCTION IS A NOP UNLESS 
BLOCKED RECORDS ARE SPECIFIED 
AND THERE IS NO WORK AREA. 



****H2*******^*** 
IJGFNXRC BE 
*_*_*_*_*_*_*_*_* 

GET DATA 
LENGTH OF ♦ 
BLOCK 1 
*************** 



*****j 2********** 
♦IJGFUPDA BE* 
*-*_*_*_*_*_*_*_* 

* MODIFY SEARCH * 

* ARGUMENT ♦ 

* * 
***************** 



*****K2******+*** 

♦ ♦ SVC * * 

♦ ♦ READ ♦ ♦ 

♦ *DATA FIRST * ♦ 
- ' BLOCK 



***************** 



* * 



* * 



***************** 



IJGFRELA 

*****«3****^***^* 
♦IJGFWAIT BC^ 
*_*_*_*_*_*_*_*_* 

* WAIT AND TEST ♦ 

* FOR ERRORS * 

* * 
***************** 



**** 
IJGFEXTN 

*****G4 ********** 

* ♦ 
♦SAVE WORK AREA ♦ 

* AND DTF TABLE ♦ 

* ADDRESSES ♦ 

* * 
***************** 



*****H4********** 



***************** 



*****J4********** 



***************** 



*****K4 ********** 



*****D5*^*^*^*^^ 

♦ ♦ 

♦ SAVE MODULE ♦ 

♦ REGISTERS IN ♦ 

♦ SAVE AREA ♦ 

♦ * 
***** ************ 



*****E5********** 

* ♦ 

* RESTORE USER ♦ 

* REGISTERS ♦ 

* 9-13 ♦ 

* * 
***** ************ 



***** f 5********** 



***************** 



**** £5********* 

♦ SVC 2 FETCH ♦ 

♦ $$BOPEN ♦ 

♦ * 
*************** 



*****H5********** 



***************** 



*****J5********** 



***************** 



************ 



***** 
*BB * 
* A4* 
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Chart BBo SDMODFI: With Truncation, GET Macro (Section 2 of 5) 



*0A * 

* J5* 

* * 



♦A2 

SDMODFI MACRO 
PARAMETER OPTION 
DECISION DOES NOT 
APPEAR IN ASSEMBLY 
LIST ING. 



*****A4*#*******« 

* RESTORE * 

* ADDRESSES OF * 

* WORK AREA AND * 

* DTF TABLE * 

* * 
*********** ****** 



.* FILE * 






.♦ ASSIGNED 


* 


YES 


. TO IGNORE 




*. . .. 


♦ . 


* 




* . .* 






♦ . .♦ 




X 


♦ NO 




***** 

♦ BA * 

* E3* 


* 




* * 
* 


X 


IJGFIORU 



*****ci ********** 

♦ * 
♦SET COUNTER TO ♦ 
♦4 TO CHECK CCHH+ 

♦ OF SEARCH ♦ 

♦ ARGUMENT ♦ 
***************** 



IJGFLOOP 

*****01 ********** 

♦ GET ♦ 

♦ CORRESPONDING ♦ 
♦CHAR FROM SRCH ♦ 

* ARG AND CCHH ♦ 

* CONTROL FIELD ♦ 
***************** 



♦ SEARCH 

ARGUMENT = 

♦. CONTROL . 

♦ .FIELDS 



IJGFDONE 

*****Fi ********** 

♦ UPDATE SEARCH ♦ 
♦ARG CHAR BY ONE^ 
♦AND RESTORE IN ♦ 

♦ SEARCH ARG ♦ 

♦ * 
***************** 



♦ 3 ♦. , 



**** 
IJGFSW03 

**G1 ******* 

♦ SET MULT ♦ 
♦TRACK BIT ON ♦ 

♦ IN READ COUNT 
♦ CCW IN DTF * 

♦ * 
*********** 



****H1 *********** 

IJGFNXRC BE 
*_#_*_*_*_*_*_*_* 

GET DATA 
♦ LENGTH OF ♦ 
BLOCK 1 
***************** 



**** 



♦ H2 + 
♦♦♦♦ 

IJGFSW06 

*****jl ********** 

♦IJGFFACT BE^ 
*_*_*_*_*_*_*_*_* 
♦ESTABLISH BLOCKS 

♦ LIMITS ♦ 

♦ ♦ 
***************** 



**** 

♦ ♦ 

♦ 2 ♦ 

♦ ♦ 
♦♦♦♦ 



***************** 



*****F2********** 

♦ * 

* * 

♦ DECREASE ♦ 
♦COUNTER BY ONE ♦ 

* ♦ 
***************** 

X 
**** 

* * 

* 1 * 

* * 
**** 



**** 

♦ ♦ 

* 2 ♦ 

* * 
**** 

X 

.*. 

E3 *. 

.* *. 

NO .* *. 

...♦. 2 I/O AREAS .♦ 

♦ . .♦ 

♦ . .* 

♦ . .♦ 

♦ YES 



*****F3********** 

♦ EXCHANGE I/O ♦ 
♦AREA ADDRESSES ♦ 

♦ IN READ/WRITE ♦ 

♦ DATA CCW ♦ 

♦ * 
***************** 



****g3*********** 



***************** 



**D4******* 



***** 

♦ DA * 

* G2* 



D5 ♦. 
.*END OF ♦. 
EXTENT ♦ 
SWITCH ON 



+ **+« (''j* ********* 

* IJGFNXRC BE* 
♦_*_♦_*_*_♦_*_*_* 

* GET BLOCK ♦ 

* LIMITS ♦ 

* * 
***************** 



*****P4***: 

♦IJGFFACT at* 
*_*_*_*_*_*_*_*_* 

♦ GET BLOCK ♦ 

♦ LIMITS ♦ 

♦ * 
***************** 



***** 

♦ BC ♦ 

♦ CI* 

* * 



♦YES ♦♦♦♦♦ 

♦ BC ♦ 

♦ Al* 



**H4******* 



*********** 



***** 

♦ BA ♦ 

♦ HI* 
* * 



IJGFCHCK .*. 
H5 



ANY *. NO 
MORE .♦... 
EXTENTS .♦ 



*********** 



*****K3***^****** 



***************** 



***** 

♦ BA ♦ 

♦ B3^ 



♦♦^♦♦♦♦♦♦^ 

♦ RESET ♦ 

♦ EOF SW. IN 
♦ CCB AND SET 

♦ FEOVD 

♦ SWITCH ♦ 
*********** 



IJGFEXTN .X.. 
X 
***** 

♦ BA ♦ 

♦ G4+ 
* * 
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Chart BC. 



SDMODFI : 



With Truncation, GET Macro (Section 3 of 5) 



SDMODFI MACRO PARAMETER 



*A1 


OPTION. DECISION DOES 












BB-G5 


NOT APPEAR IN AN 












BD-E4,F2 


ASSEMBLY LISTING. 












****A1 ********* 

* * 

* IJGFWAIT * 


























* * 














*************** 








**** 

* * 

* 3 * 


















**** * 








* * 






* * 








**** 






** *... 














* Al* .X 














**** X 








X 






IJGFWAIT .*. 








.*. 






Bl *. 


*****Q 2* ********* 






B3 *. 






.* *. 


* * SVC 7 * * 






.* *. 






.* I/O *. NO 


* * WAIT FOR * * 






.* WLR *. NO 






*. COMPLETED .*.... 


...X* * I/O * * 






*. ROUTINE .*... 






*. .* 


* * COMPLETED * * 






♦.SPECIFIED.* 






*. .* 


* * * * 






*. .♦ 


**** 




*. .* 


***************** 






*. .* 


* * 




*YES 








♦ YES 


* 4 ♦ 

* * 




I 










* 
x' 


X** 
( 




X 


) 




.*. 








X 


IJGFDATR .*. 




CI *. 








*****C3********** 


C4 *. 


*****C5 ********** 


.* *. 








* GET ADDRESS * 


.* *. 


* GET ADDRESS * 


.* END *. YES 








* OF USER * 


.* ERROPT *. YES 


* OF USER * 


*. OF FILE .*.... 








* WLR ERROR * 


*. =NAME .*.... 


...X* READ ERROR * 


*. .* 








* ROUTINE * 


*. .* 


* ROUTINE * 


*. .* 








* * 


*. .* 


* * 


*. .* X 








***************** 


*. .* 


***************** 


*NO **** 










*NO 




*BB 


* 










**** '. 


* G5 


* 










* * 


* * 








X 




* 5 *... 


* 








**** 




* * . 


X 








* * 


X 


**** X 


.*. 








* 5 * 


. *. 


.*. 


Dl *. 




*D3 


* * 


DA *. 


D5 *. 


.* *. 


****D2#******** 




BD- 


B2,C2,C5**** 


.* *. 


.* *. 


.* ERROPT *. NO 


* RETURN TO * 






D2,D5,G3 


YES .* ERROPT *. 


.* RDONLY *. NO 


*. SPECIFIED .*..... 


...X* CALLING * 








*. nSh 


CIP .* 

.* 


*. =YES .*.... 


*. *A2 .* 


* ROUTINC * 




*. 


*. *A2 .* 


*. .* 


*************** 








*. .* 


*. .* . 


*. .* 










*. .* 


*. .* X 


/ *YES 








**** I 


♦ NO 


*YES ***** 
*BD * 










* * . 






* B3* 










*♦ *.X. 






* * 










* D3* 






* 


X 








**** 






IJGFRDER 


.*. 


.*. 




IJGFSKIP X 






IJGFRDER X 


El *. 








**E3******* 






***** |=5********** 


.* *. 








* * 






* SAVE MODULE * 


.* RECORD *. NO 


.* USER *. NO 




* SET SKIP * 






♦ REGISTER * 


*. FOUND .*.... 


...X*. ERROR ROUTINE.*. 


"I 




* SWITCH * 
* ON * 






* RESTORE USER ♦ 


*. .* 


♦.SPECIFIED.* 


* REGISTER * 


*. .* 


*. .* 






* * 






* * 


*. .* 


*. .* 


X 




*********** 






***************** 


*YES 


*YES 


**** 
















* 














* 1 


* 












X 


**** 


*x. ......... 










X 






X 

.♦. 




*****F2** ******** 






**F3******* 


*****F4**** ****** 


F5 ♦. 




* GET ADDRESS * 






* * 


♦ PUT ADDRESS * 


.* *. 




* OF USER * 






* SET READ ♦ 


* OF I/O * 


YES .* ERREXT *. 




* READ ERROR * 






* CCW TO * 


* AREA IN *X... 


*. SPECIFIED .* 




* ROUTINE * 






* NOP * 


* USER'S * 


*. *A2 .* 




* * 






* * 


♦PARAMETER LIST * 


* . .* 




***************** 






*********** 


***************** 


*. .* 

♦NO 


**** '. 


' **** 














* * . 


* * 














* 1 *.X. 


..X* 5 * 














* * . 


* * 














**** X 


**** 














.*. 


IJGFDATK .*. 






X 


X 


X 


Gl *. 


G2 *. 






****G3*********** 


*****G4********** 


*****G5********** 


.* *. 


.* *. 






SVC 


* GET ADDRESS * 


* * 


.* ERREXT *. NO 


.* DATA *. YES 




* READ COUNT * 


* OF PARAMETER * 


♦ GET ADDR ♦ 


*. SPECIFIED .* 


...X*. CHECK .* 






NEXT 


* LIST FOR * 


♦ OF I/O ♦ 


*. *A2 .* 


*. .* 






* RECORD * 


* USER * 


♦ AREA ♦ 


*. .* 


*. .* 








* * 


* * 


*. .* 


*. .* 


X 


***************** 


***************** 


***** ************ 


*YES 


*NO 


**** 




. 






**** 


* 


* 








* 


* * 
..X* 2 * 


* 4 
* 


* 
* 








........... .xl 










* * 
**** 


**** 


*x. ......... 








X 


X 






IJGFDATK .*. 


IJGFUNIO .*. 






.*. 




X 


HI *. 


H2 *. 






H3 *. 


*****H4********** 


***** H5********** 


.* *. 


.* *. 






.* *. 


* * SVC 7 * * 


* * BRANCH * * 


.* DATA *. NO 


.* UNRECOG *. YES 




.* I/O *. NO 


* * WAIT FOR * * 


* * TO USER'S * * 


*. CHECK .*.... 


...X*. I/O ERROR .* 






*. COMPLETE .*... 


X* * I/O * * 


* * ERROR ♦ * 


*. .* 


*. .* 


. 




*. .* 


* * COMPLETED * * 


* * ROUTINE * * 


*. .* 








*. .* 


* * * * 


* * * * 


*. .* 


*. .* 


X 




*. .* 


***************** 


***************** 


*YES 


*NO 


**** 


*YES 








**** 


* 


* 










* * . 


* 4 


* 










* 2 *.. . 


* 


* 






X 




* * . 


**** 






***** 




**** X 










*BD * 


X 


IJGFWLRI .*. 






X 




* Bl* 


**jl ******* 


J2 *. 






**J3******* 




* * 


* RESET * 


. * *. 






* RESET * 




* 


* UNRECOG. * 


.* WRONG *. YES 




* READ CCW * 






* I/O ERROR * 


*. LENGTH .*.... 




* TO READ * 






* INDICATOR * 


*. RECORD .* 


. 




* DATA * 









*********** 



****K2********^ 

♦ RETURN TO * 

♦ CALLING * 

♦ ROUTINL ♦ 
*************** 



*********** 



****K3********* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 
*************** 
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Chart BD. SDMODFI: With Truncation, GET Macro (Section 4 of 5) 



*A2 
SDMODFI MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*BC * 
* H5* 



***** 
*BC * 
* D5* 



**** 

* * 

* i * 

* * 
**** 



ERREXT 

SPECIFIED 

*A2 



*****£! ********** 

* RESTORE * 

* MODULE REGS * 

* AND SAVE * 

* USER REGS * 

* * 
***************** 



* WAS 

ERROR DATA 
*. CHECK . 



*****B2********** 
* RESTORE * 

MODULE REGS 
AND SAVE 

USER REGS. 

=p * 

***************** 



.X* 



*.. 



*****C2********** 
* RESTORE * 

MODULE REGS * 
AND SAVE *. 

USER REGS. * 
*■ * 

***************** 



.X* 



*****02******** 
* RESTORE 

MODULE REGS 
AND SAVE 

USER REGS. 
***************** 



.X* 



IJGFRDER X 

*****B3********** 

* SAVE MODULE * 

* REGISTERS * 

* AND RESTORE * 
*USER REGISTERS * 

***************** 



ERREXT 

SPECIFIED 

*A2 



.X* 



*****C4********** 

PUT ADDRESS * 

OF I/O AREA * 

IN USER'S * 

PARAMETER * 

LIST * 

************** 



***** 
*BC * 
* E3* 



*****03********** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



#****D4********** 

* GET ADDRESS * 

* OF PARAMETERS * 

* LIST FOR * 

* USER * 

* * 
***************** 



*****B5********** 

* RESTORE * 

* MODULE REGS * 

* AND SAVE * 

* USER REGS. * 

* * 
***************** 



***** 
*BC * 
* E3* 



SVC 
RETRY 
READ 



Gl *. 

.* WAS *. 

ERROR *. 

UNRECOV 

.I/O ERROR.* 

*. .* 

*. .* 



************* 



***** 
*BC * 
* Bl* 



*****E3********** 

* * BRANCH * * 

* * TO USER'S * * 

* * ERROR * * 

* * ROUTINE * * 

***************** 



ERREXT 

SPECIFIED 

*A2 



*****G3********** 

* RESTORE * 

* MODULE REGS * 

* AND USER * 

* REGS. * 

* * 
***************** 



* SVC 
RETRY 
* READ * 

***************** 



X 

***** 
*BC * 
* Bl* 



* WAS 

ERROR DATA 
*. CHECK . 



.* WAS *. 

ERROR 

UNRECOV 

.1 /O ERROR. 



****G5********* 

* SVC 50 * 

* CANCEL * 

* * 
**** *********** 



***** 
*BC * 
* E3* 



****H1 ********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 
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Chart BE. SDMODFI: With Truncation GET Macro (Section 5 of 5) 



*A1 
SDMODFI MACRO 
PARAMETER OPTION- 
DECISION DOES NOT 
APPEAR IN ASSEMBLY 
LISTING. 



♦♦♦♦El ********* 

♦ ♦ 

♦ IJGFUPDA * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦*♦♦♦♦♦ 



♦♦♦♦A2********* 

♦ ♦ 

♦ IJGFFACT * 

♦ ♦ 
***♦♦♦♦♦♦♦♦♦**♦ 



*GET ADDRCSS OF * 

* IOARLA AND * 
*BLDCK SIZE FROM* 

* READ CLW * 

* ♦♦4c************* 



♦♦♦♦*C 2* ********* 
*SET DLBLOCKING * 

* CDNSIANT WITH * 
*IO*REA ADDR AS * 

* BEGINNING OF * 

* BLOCK * 
♦♦♦♦♦* «**««< ****** 



♦♦♦♦♦02** ******** 



**** ************* 



♦♦♦^♦ E 2********** 

* ♦ 
♦COMPUTE END OF * 

* BLOCK ADDRESS * 

* AND STORE IN * 

* DTF TABLE * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦ 



*SET IDENTIFIER * 
*FRDM COUNT AREA* 

* IN SEARCH * 

* ARGUMENT * 
♦♦♦*♦*#* ♦♦♦♦♦♦♦*♦ 



♦ 1 * 

* * 
♦ *♦♦ 



*****B3** ******** 

♦INCREASE OLOCK * 
*SIZE BY ONE AND* 

* SAVE * 

* * 
***************** 



.* DATA *. NO 
. LENGTH GT .*... 
♦BLOCK SIZE.* 



****A5 ********* 

* ♦ 

* IJGFNXRC * 

* ♦ 
♦♦♦*♦♦♦♦♦♦#*♦** 



*♦*♦***♦♦♦♦♦♦*♦** 



♦♦^♦♦♦♦♦♦^ 

♦ ♦ 

*SET INCORRECT* 

* LENGTH IND ON * 

* IN CCB * 



****P3^^*^^* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
**♦♦♦♦♦♦♦♦♦♦*** 



****[]/,******♦♦♦ 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
********♦♦♦♦♦♦♦ 



*SET DATA LENGTH* 
X* IN READ DATA * 

* CCW * 

* * 
**** #*****♦♦♦♦♦♦♦ 



****04*^******* 

* RETURNING TO * 
♦CALLING ROUTINE* 

* * 
♦♦♦♦**♦♦****♦♦♦ 



♦♦♦♦♦♦♦♦♦♦♦ 



*****C5********** 

♦ ♦ 

♦ SET SEARCH * 
♦ARGUMENT RECORD* 
♦NUMBER TO ZERO ♦ 

♦ ♦ 
♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦ 



**** D5*********** 



♦♦*#♦#******♦*♦** 



*♦♦♦* ^♦♦♦♦♦♦♦♦♦^ 

♦IJGFWAIT BC* 

♦_♦_* _♦_♦_♦_♦_♦_♦ 

* WAIT AND TEST * 

* FOR ERRORS * 

* ♦ 
♦♦♦♦* ♦♦♦♦♦♦♦♦♦♦♦♦ 



**F5 **♦♦*♦* 

* ♦ 
RESET 
READ 

CCW TO 

♦ READ DATA * 
♦*♦♦♦♦♦♦♦♦♦ 



G2 *. 
.♦SEARCH ♦. 
♦ ARGUMENT 

HEAD=CNTRL 

♦. FIELD . 

♦. HD .♦ 

♦ . .♦ 



♦♦H2******* 

♦ * 
SET MULT 
TRACK BIT 

OFF IN READ 

* COUNT CCW * 
*♦♦♦♦♦♦♦♦♦♦ 



♦♦♦*G5********* 

* RETURN TO * 
♦CALLING ROUTINE* 

♦ ♦ 
♦♦♦♦♦♦♦♦♦****** 



* 1 ♦ 

♦ ♦ 
♦ ♦♦♦ 
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Chart BF. SDMODFI: Without Truncation, GET Macro (Section 1 of 4) 



****A1********* 
♦ENTRY FROM GET * 

* MACRO * 

* * 
*************** 



*A2 

SDMODFI MACRO PARAMETER 
OPTION. DECISION DOfcS 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*****B2********** 

* SAVE USER * 
♦REGISTERS 9-14 * 

.X*AND POINTER TO * 

* SAVE AREA * 

* * 
***************** 



*****d ********** 



***************** 



Dl *. *****D2********** 

.* *. * COMPUTE * 

.♦FIRST ENTRY*. YES * BEGINNING AND * 

*. AFTER OPEN .* X*END ADDRESS OF * 

*. .* * I/O AREA * 

*. .* * * 

*. .* ***************** 



IJGCDEBL 

*****Gi ********** 

* GET * 

* DEBLOCKING * 

* CONSTANTS * 



***************** 



*****H i ********** 

* INCREASE I/O * 

* AREA ADDRESS * 
*BY RECORD SIZE * 

* * 

* * 
***************** 



*.END OF BLOCK .*. 



..X*BH * 
* G4* 

X **** 
IJGCTEST .*. IJGCEXTN 
G2 *. 
.* END *. 
.* OF EXTENT *. NO 
*. SWITCH ON .*... 



**H2******* 
* * 

* 
♦RESET SWITCH 

* 
*********** 



***** 

♦! GW 



IJGCEXTN .*. 

J2 ♦. 
.* *. 
.♦2 I/O AREAS*. YES 



**** 

* * 

* 3 * 

* * 
♦ *** 



IJGCGETX .*. 

B3 *. 
.* IS *. 
.* THERE A 
♦. WORK AREA 



*****C3********** 



**************** 



**************** 

**** 

* * 
*BJ * 

* Gl* 
**** 

IJGCIORU X 

*****E3********** 



***************** 



*****P3********** 

* * 

* PUT BLOCK ♦ 

* ADDRESS IN * 

* IOREG * 

* * 
***************** 



****G3********* 

♦ RETURN TO ♦ 
♦PROBLEM PROGRAM* 

* * 
*************** 



* ***«55********** 

* * ' * * 

* * SVC 7 * ♦ 
.X* * rfAIT FOR * *. 

* I/O COMPLETE* ♦ 

* * * * 
***************** 



*****C4********** 
♦ END ♦YES 



*****04-********** 
* * 

*NO 



ERROPT 

SPECIFIED 

*A2 



E4 *. 
* 
RECORD 



FA *. 

.* USER *. 

EllROR *. 

ROUTINE 

.SPECIFIED.* 

*. .* 

*. .* 



FEOVD *. 


YES 


= YES *A2 . 


*. . .. 


.♦ 




* . .♦ 




*. .* 


X 


*NO 


***** 




*BG * 




* A5* 




* * 






IJGCCHCK 


.*. 




D5 *. 




.* WRONG ♦. 




LENGTH ♦. 


NO 


RECORD 


*. . .. 


. ERROR .♦ 




*. .* 




*. .* 


X 


*YES 


***** 




*BH * 




* C3+ 




* * 




* 


I.IGCADD1 


X 




**E5******* 





*********** 



***** 

*BH * 
* C3* 



* GET ADDRESS * 
X* OF USER READ * 

* ERROR ROUTINE * 

* * 
***************** 



***** 
*BG * 
* Dl* 



*****H4*****: 
* 

* ERREXT 

* SPECIFIED 

* *A2 



IJGCDATK .♦. 



H5 ♦. 
.* *. 
.* 
•X*. DATA CHECK 
*. 

* . .* 



*YES ***** 
*BJ * 
* B4* 

X * * 

*BG * IJGCWLRI 

* Bl* 

* * 

* 

IJGCDATE 



*. .* 






*. .♦ X 


*NO 






*NO **** 
**** . **** * * 

* * . * **3* 

* 1 ♦.X.X.^ JB ♦ ♦ ♦ 

* * . * ki* **** 

**** . **** IJGCWLRI 


X 






IJGCRD1 X 


*****«! ********** 


****K2********^^ 


* SAVE NEW 




* 


* SVC 3 * 


♦ADDRESS OF 


I/O 


* 


READ 


♦ AREA 




* 


♦ DATA BLOCK ♦ 



***************** 

X 

**** 

* * 

* 2 * 

* * 
**** 



***************** 



**«4******* 

♦ SET OFF * 

♦ UNRECOV I/O 
♦ ERROR 

♦ INDICATOR 

* * 
*********** 



***** * 

*BG ♦ 

* B1*IJGCDATE IJGCWLRI 



***** 
*BJ * 
* B4* 
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Chart BG. SDMODFI: Without Truncation, GET Macro (Section 2 of 4) 



*A2 
BF-J3,H5»K4 
BJ-G5 



**** 

* * 

* 1 * 



***** 
*BF * 
* C5* 

* * 



*****B4 ********** 

* RESTORE * 

* MODULE REGS * 
X* AND * 

* SAVE USER * 

* REGS * 
***************** 



.* ANY *. 

MORE 

*. EXJENTS .* 



*****C1 ********** 

* GET * 

* ADDRESS OF * 

* USER * 

* READ ERROR * 

* ROUTINE * 
***************** 

**** 



RDONLY 

= YES 

*E2 



IJGCRDEV 

*****E 1 ********** 

* SAVE MODULE * 

* REGS AND * 

* RESTORE * 

* USER REGS * 

* * 
***************** 



***** 
*DH * 
* B3* 



*****£ 3 ********** 

* RESTORE * 

* MODULE REGS * 

* AND * 

* SAVE USER * 

* REGS * 
***************** 



***** 
*BH * 
* C3* 



*D2 
BE- F5 
UJ-H5 



*E2 
SDMODFI MACRO 
PARAMETER OPTION. 
DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



IJGCRET .*. 

D3 *. 

.* *. 

.* WAS * 


YES 


....X 


****Q4** ******** 
IJGCRTRY 
**_*_*_*_*_*_*-** 


*. CHECK .* 
*. .* 
*. .* 
*NO 


) 


< * RETRY * 
READ 
***************** 


X 

.*. 

E3 *. 

.* WAS *. 

.* ERROR * 

*. UNRECOV I/O 

*. ERROR .* 


YES 

*. .. 




X 

***** 

*BF * 

* B4* 

* * 

* 

IJGCRELA 



ERREXT 

SPECIFIED 

*E2 



*****G1 ********** 

* GET ADDRESS * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****F2********** 

* PUT ADDRESS * 

* OF I/O * 
X* AREA IN * 

* USER PARAM * 

* LIST * 
*******#***#***** 



*****G2********** 

* * 

* GET ADDRESS * 

* OF PARAMETER * 

* LIST * 

* * 
***************** 



**D5******* 

* * 
RESET 

EOF SWITCH 
IN CCB 

* * 
*********** 



**E5******* 

* * 
SET 

EOV SWITCH 
FOR OPEN 

* * 
*********** 



***** 
*BH * 
* G4* 



****P3********* 

* SVC 50 * 

* CANCLL * 

* * 
*************** 



*****Hl ********** 

* * BRANCH * * 

* * AND LINK * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 
***************** 



Jl *. 




*****J2********** 


* * 




* RESTORE * 


ERREXT 


*. NO 


* MODULE REGS * 


SPECIFIED 


.*.... 


....X* AND * 


*E2 


* X * SAVE USER * 


*. .* 




* REGS * 


*. .* 




***************** 


*YES 




X 

***** 


X 




*BH * 


. *. 




* B3* 


Kl *. 




* * 


* * 




* 


ERET 


*. YES 


IJGCSKIP 


= SKIP 


.*.. . 





**** 

* * 

* 1 * 

* * 
**** 
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Chart BH. SDMODFI: Without Truncation, GET Macro (Section 3 of U) 



***** 

*BG * 
* Dl* 



**** 

* * 

* 1 * 



*****A4**** ****** 
♦SET COUNTER TO * 

* 5 TO CHECK * 

* CCHHR OF * 

* SEARCH * 

* ARGUMENT * 
***************** 



*A5 
BF-D5»E5 
BG-B2»B4 
BJ-B4.G4 



IJGCRDEV X 


*B2 


IJGCSKIP X 


*****B1 ********** 


SDMODFI MACRO PARAMETER 


**B3******* 


* SAVE MODULE * 


OPTION. DECISION DOES 


* * 


* REGS AND * 


NOT APPEAR IN AN 


* SET SKIP * 


* RESTORE USER * 


ASSEMBLY LISTING. 


* SWITCH * 


* REGS * 




* ON * 


* * 




* * 


***************** 




*********** 

**** * **** 

* * . * * 
*2 * ** * 

* * . * A5* 


X 




**** . **** 


.*. 




IJGCADD1 X 


CI *. 


*****C2********** 


*****C3********** 


.* *. 


* PUT ADDRESS * 


* GET ADDRESS * 


.* ERREXT *. YES 


* OF I/O AREA * 


* OF I/O AREA * 


♦ . SPECIFIED .*..... 


. ..X* I N USER'S/ * 


* FROM READ * 


*. *B2 .* 


* PARAMETER * 


* CCW * 


*. .* 


* LIST * 


* * 


*. .* 


***************** 


***************** 



IJGCLOOP 

*****B4********** 

* GET * 

* CORRESPONDING * 

* CHAR FROM * 
♦SEARCH ARG. AND* 
*CCHHR CNTRL FLD* 

• ***************** 



C4 *. 

.*SEARCH * 

ARGUMENT= 

CONTROL 

. FIELD 

*. .* 

*. .* 



*****Ol ********** 

* * 

* GET * 

* ADDRESS OF * 

* I/O AREA * 

* * 
***************** 



**** #02 ********** 

* * 

* GET ADDR * 

* OF PARAMETER * 

* LIST * 

* * 
***************** 



*****D3********** 

* STORE IN * 

* DTF AS * 

* BEGINNING * 

* ADDRESS OF * 

* INPUT BLOCK * 
***************** 



IJGCDONE 

*****04** ******** 

* UPDATE SEARCH * 
*ARG. CHAR BY 1 * 
*AND RESTORE IN * 

* SEARCH ARG. * 



**** 



********* 



*****E1 ********** 

* * BRANCH * * 

* * AND LINK * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 
***************** 



*X. 



ERREXT *. NO 
SPECIFIED .*... 
*B2 .* 



*****E2********** 

* COMPUTE * 

* ADDRESS OF * 

* END OF INPUT 
*. BLOCK AND * 

* STORE * 
***************** 

* **** 

* * 
..X* 3 * 

* * 
**** 

*****P2********** 

* SAVE USER * 

* REGS AND * 
X* RESTORE * 

* MODULE REGS * 

* * 
***************** 



*****G1 ********** 

* SAVE USER * 

* REGS AND * 

* RESTORE * 

* MODULE REGS * 

* * 
***************** 



IJGCADD2 

*****P3********** 

* COMPUTE END * 

* OF BLOCK ADDR * 

* FOR SHORT * 

* BLOCK AND * 

* STORE * 
***************** 



**G3******* 

* RESET * 

SHORT 

RECORD 

SWITCH 



.* UPPER * 
.EXTENT LIMIT 
♦.EXCEEDED .* 



**F4******* 

* * 

* SET END 
* OF EXTENT 

* SWITCH 

* * 
*********** 

**** 



***** 
*BJ * 
* H2* 



***** 05 ********** 

* SET LOW HEAD * 

* LIMIT * 

* CHARACTER * 

* IN SEARCH * 

* ARGUMENT ♦ 
***************** 



***** E5********** 



***************** 



RDONLY 

= YES 

*B2 



**** 

* * 

* 1 * 

* * 
**** 



*********** 

**** 

* * 

* 3 * 

* * 
**** 



IJGCADD3 

*****H3********** 

* GET LOWER ♦ 
.IGNORE * HEAD LIMIT ♦ 
...... ♦ FROM DTF ♦ 

* TABLE * 



**** 

* * 

* 2 ♦ 

* * 
**** 



******* 



********* 



****jl *********** 

IJGCRIRI Jl 
* -*_*-*-*-*-*_ * 

SVC J X. 
♦ RETRY * 
READ 
***************** 



***** 
*BF ♦ 
* B4* 



J2 *. 
* WAS 
ERROR 
DATA 
CHECK 



K2 ♦. 
.* WAS *. 
YES .* ERROR ♦ 

*. UNRECOG I/O 

♦. ERROR .♦ 



**J3******* 

* MODIFY TO * 

* SET RECORD * 

NUMBER TO * 

* 1 * 

* * 
*********** 

* **** 



****K3********* 

* SVC 50 ♦ 

* CANCEL ♦ 

* * 
*************** 



* SAVE ♦ 

* MODULE ♦ 

* REGISTERS * 

* * 
***************** 



**j4******* 

*SET END OF * 

* EXTENTS * 

* INDICATOR FOR 

*OPEN ROUTINE * 

* * 

*********** 



*****«4********** 

* * 

* RESTORE ♦ 

* USER ♦ 

* REGISTERS ♦ 

* * 
***************** 



*F5 
BF-F2tH2 
BG-B5,C5,E5 



♦ SAVE * 
X* MODULE * 

* REGISTERS ♦ 

***************** 



*****H5********** 

* * 

* RESTORE ♦ 

* USER * 

* REGISTERS * 

* * 
***************** 



***** J5********** 

* * 

* GET ADDRESS ♦ 

* OF DTF ♦ 

* TABLE * 

* * 
***************** 



****K5********* 

* SVC 2 * 

* FETCH ♦ 

* $$BOPEN * 
*************** 



***** 
*BJ * 
* Bl* 

* * 



***** 
*BJ * 
* B2^ 
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Chart BJ. SDMODFI: Without Truncation, GET Macro (Section 4 of 4) 



***** 

* A5* 



*A5 
BF-J3 
BF-H5 



*****0l ********** 

* GET ADDRESS * 

* OF DTF * 

* TABLE * 

* * 
***************** 



*****[) 2* ********* 

* * 

* RESTORE * 

* MODULE * 

* REGISTLRS * 

* * 
***************** 





IJGCGETA .*. 


X 


C2 * 


ci ********* 


.* 


SVC 2 * 


.* SKIP 


FETCH * 


*. SWITCH 


$$BOPEN * 


*. ON 


*********** 


*. 



*****oi ********** 



***************** 



*****£! ********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****F1********** 

* * 

* STORE * 

* POINTER * 

* TO SAVE AREA * 

* * 
***************** 



**C3******* 

* * 
RESET 
SKIP 

SWITCH 

* * 
*********** 



***** 
*BF * 
* G2* 



WRONG 
LENGTH 
RECORD 



*****Q4********** 

* * 

* GET RESIDUAL * 

* COUNT FROM * 

* CCB * 

* * 
***************** 



.* IS *. 

. RESIDUAL 
♦.COUNT = 0.* 



*B5 
SDMODFI MACRO 
PARAMETER OPTION. 
DECISION DOES 
NOT APPEAR IN 
ASSEMBLY LISTING. 



*********** 



****«E2******* 



********* 



***** 
*BF * 
* B3* 



IJGCDECT 

*****E4********** 

* DECR RESIDUAL * 

* COUNT BY RCD * 

* SIZE UNTIL * 

* RESULT IS * 

* OR NEGATIVE * 
***************** 



F4 *. 
.* * 
* RESULT 

ZERO OR 
♦.NEGATIVE 



.*. 




.*. 


Gl ♦ . 




G2 *. 


* FILE *. 




.* END *. 


ASSIGNED * 


YES 


.* OF EXTENT *. YES 


TO 


*.. . . 


*. SWITCH .*.... 


IGNORE .* 




*. ON .* 


*. .* 




*. .* 


*. .* 


X 


*. .* 


*N0 


***** 


*N0 




*BF * 


**** 




* E3* 


* * 




* * 


.X.* BH * 




* 


* F4* 


X 


IJGCIORU 


X **** 


• ♦. 


IJGCSW03 .♦. 


HI *. 




H2 *. 


* *. 




.* *. 


FEOVD * 


NO 


.* 2 *. NO . 


= YES 


♦ .. .. 


♦. I/O .♦..X. 


*B5 .* 




*. AREAS .* 


*. .* 




*. .* 



**G4******* 

* * 

* SET ON 

* SHORT RECORD 

* SWITCH 

* * 
*********** 



X 

***** 
*BH * 
* C3* 



IJGCWLRE .*. 




G5 *. 




.* USER *. 




.* WLR ERROR * 


. NO 


*. ROUTINE 


.♦.. .. 


♦.SPECIFIED.* 




*. .* 




*. .♦ 


X 


♦YES 


***** 




♦BG ♦ 




* Bl* 




* * 




* 




IJGCDATE 


X 




*****H5********** 


♦ GET ADDRESS 


* 


* OF USER 


* 


* WLR ERROR 


* 


♦ ROUTINE 


* 



*****J2********** 

♦ EXCHANGE * 

♦ I/O AREA ♦ 

♦ ADDRESSES ♦ 

♦ IN READ ♦ 

♦ DATA CCW ♦ 
***************** 



***************** 



*BG ♦ 

♦ Dl* 

* * 



♦ 2 ♦ 

* * 
**** 



**K1******* 

* * 

RESET 

FEOV 

SWITCH 



****K2*********** 

♦ SVC ♦ 
READ 
* DATA * 

****** *********** 



**** 

* * 

* 1 * 
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Chart BK. SDMODFO: With Truncation , PUT Macro (Section 1 of 5) 



***** 

*BM * 
* H4* 



****A1********* 

* ENTRY FROM * 

* PUT MACRO * 

* * 
*************** 



*BQ * 
* K4* 
**** 



*A2 
SDMODFO MACRO 
PARAMETER 

OPTION — DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



IJGEPUT 

*****B2********** 

* SAVE USER * 

* REGISTERS * 
...X* 9-14 AND * 

* POINTER TO * 

* SAVE AREA * 
***************** 



* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



* FIRST * 

ENTRY AFTER 
*. OPEN .* 



**E1 ******* 

* SET * 
FIRST 

OPEN SWITCH 
ON 

* * 
*********** 



*****P1 ********** 

* * 

* INITIALIZE * 

* COUNT FIELD * 

* IN IOAREA * 

* * 
***************** 



*****Gl ********** 

* * 

* INITIALIZE * 

* COUNT FIELD * 

* IN IOAREA1 * 

* * 
***************** 



*****H1 ********** 

* INITIALIZE * 

* TRACK * 

* CAPACITY * 

* BUCKET * 

* * 
***************** 



*****jl ********** 

* SET * 

* DATA LENGTH * 

* BUCKET * 

* TO ZERO * 

* * 
***************** 



.* IS * 

.THERE A WORK 

*. AREA .* 



C3 *. 
* IS 
TRUNC 
SWITCH 



*****D3********** 

* GET ADDRESS * 

* OF OUTPUT * 

* AREA, WORK * 

* AREA AND NO. * 

* OF BYTES * 
***************** 



* MOVE RECORD *N 

* TO OUTPUT * 

* AREA * 

* * 
***************** 



* GET * 

* BLOCKING * 

* CONSTANTS * 

* * 
***************** 



*****H3********** 

* ADD RECORD * 

* SIZE TO * 

* BLOCK SIZE * 

* AND STORE * 

* * 
***************** 



*****J3********** 

* UPDATE * 

* I/O AREA * 

* ADDRESS BY * 

* RECORD SIZE * 

* * 
***************** 



*****B4********** 

* * 

* SAVE NEW * 

* I/O AREA * 

* ADDRESS * 

* * 
***************** 

**** 

* * 
*BM * 

* Jl* 
**** 

IJGEIORU 

*****C4********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****D4********** 

* LOAD * 

* IOREG WITH * 

* I/O AREA * 

* ADDRESS * 

* *J4 * 
***************** 



****E4 ********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****A5********* 

* * 

* IJGECALF * 

* * 
*************** 

**** 



**** 
IJGECALF 

*****B5********** 

* GET * 

* REMAINING * 

* CAPACITY * 

* OF TRACK * 

* * 
***************** 



C5 *. 
.* TRACK *. 
.* CAPACITY *. NO 
. LT BLOCK .*.... 
*. SIZE 



RESET 

TRUNCATION 

SWITCH 

* * 

*********** 



INSTRUCTION 
IS A NOP 
UNLESS BLOCKED 
RECORDS AND 
NO WORK AREA 
ARE SPECIFIED. 



.* 



IJGtEOFS 
IJGECALP X 

*****D5********** 

* * 

* RE-INITIALIZE * 

* CAPACITY * 

* BUCKET * 

* * 
***** ************ 



***** E 5********** 
J* SET * 

* RECORD NUMBER * 

* IN SEARCH ARG * 

* BUCKET TO * 

* ZERO * 
***************** 



*****p 5*** ******* 

* GET LOWER * 

* HEAD LIMITS * 

* FROM DTF * 

* TABLE * 

* * 
***************** 



*****G5********** 

* SET COUNTER * 

* TO 4 TO * 

* CHECK CCHH * 

* OF SEARCH * 

* ARGUMENT * 
***************** 



***** 
*BL * 
* Bl* 



FEOVD 


*. 


YES 




.* 




WAS 


*. 


YES 


.* END 


= YES 




*..... 


. ..X* 


.END 


OF VOLUME. 


*... . 


*. OF BLOCK 


*A2 


.*" 






* 




FORCED 


.* 




*. 


.* 










* 


.* 






*. .1 


*. .* 












*. .* 




X 


*. .* 


*NO 












*NO 




***** 
*BL * 


*NO 


Ix. . . 
















* C4* 
* * 




X 














X 


**** 
















* 


**** 


* * 


















* * 


* 1 * 


















* 2 * 


* * 


















* * 


**** 


















**** 
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Chart BL. SDMODFO: With Truncation, PUT Macro (Section 2 of 5) 



***** 

*BK * 
* G5* 



IJGELOOP X 

*****B1********** 

* GET * 

* CORRESPONDING * 

* CHAR FROM * 
*SEARCH ARG AND * 

* CNTRL FLD * 
* **************** 



.♦SEARCH ARG * 
*.CHAR=CONTROL 
*.FLD CHAR .* 



*D2 
SDMODFO MACRO 
PARAMETER OPTION 
- DECISION DOfcS 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*****C 2** ******** 

* SET LOW HEAD * 
♦LIMIT CHARACTER* 

X* IN SEARCH * 

* ARGUMENT * 

* * 

***#***#********* 



IJGEENCY X 

*****A3********** 
♦UPDATE DYNAMIC * 

* DISK FILE * 

* ADDRESS WITH * 

* SEARCH ARG * 

* * 
***************** 



X 
** * **B 3 ** ******** 
♦INCREASE RECORD* 

* NUMBER IN * 

♦ SEARCH ARG * 

♦ BUCKET BY 1 ♦ 

* * 
***************** 



TUPR .*. 
C3 *. 
.♦EXTENT * 
.♦ UPPER 
LIMIT 
♦.EXCEEDED 



**** 

* * 

* 3 * 



***** 
*BM * 
* E5* 



IJGEDONE X 

*****Di ********** 

♦ UPDATE SEARCH ♦ 

♦ ARGUMENT CHAR ♦ 

♦ BY 1 AND * 

♦ RESTORE IN * 

♦ SEARCH ARG ♦ 
***************** 

**** 



*BK * 
* C5* 
**** 

IJGEEOFS 



*.EOF SWITCH ON.*. 



*****D2*** 



***************** 



D3 *. 
.♦END OF ♦. 
.♦ FILE OR ♦. NO 
.PARTIAL BLOCK.*... 
♦.SWITCH ON.^ 



**** 

* * 

* 3 * 

* * 
**** 



* 1 * 

* * 
**** 



♦GET BLOCK SIZE ♦ 

* * 

* * 
**************#** 



*****Gi ********** 

* COMPUTE * 

* EFFECTIVE * 
♦LENGTH OF BLOCKS 

* ON TRACK ♦ 

* * 
***************** 



IJGEVRRF 

*****H1 ********** 
♦DECR REMAINING ♦ 

♦ NO. OF BYTES ♦ 

♦ ON TRK BY ♦ 
♦EFFECTIVE LNGTH* 

♦ AND STORE ♦ 
***************** 



♦ . 

.* *. 

.* *. NO 

*. 2 I/O AREAS .*.. 
♦ . .♦ 

♦ . .♦ 

*. .* 
*YES 



*****«! ********** 
*IJGfcWAIT BN* 

*_*_*_*_*_*_*_*_* 

* WAIT AND TEST * 

* FOR ERRORS * 

* * 
***************** 



F3 ♦. 
.♦ *. 
.* ♦. N 

♦.EOF SWITCH ON.^. 

"♦. .♦" 
*. .* 
♦YES 



**j3******* 

* * 
RESET 
FEOV 

SWITCH 

* * 
*********** 



****|<3********* 

SVC 9 * 

RETURN TO * 

B-TRANSIENT * 

*************** 



*****D4** ******** 

♦ * 

♦ SAVE ♦ 

♦ MODULE ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



*****E4********** 

♦ RESTORE ♦ 

♦ USER ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



*****P4********** 



************** 



****G4********* 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ >$$BOPEN ♦ 
*************** 



*****H4**** ****** 



************ 



***** ************ 



**D5******* 

* SET END ♦ 
♦ OF DTF ♦ 

♦ INDICATOR FOR 
♦OPEN ROUTINE ♦ 

* * 
*********** 



***** £5********** 

* * 

* RESTORE ♦ 

* USER ♦ 

* REGISTERS ♦ 

* * 
***** ************ 



***** p5********** 



***************** 



****G5***+^**++ 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



*****H5********** 

* SAVE USER ♦ 

* REGISTERS AND * 

* POINTER TO ♦ 

* SAVE AREA ♦ 

* * 
***************** 



***** j 5********** 



***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart BM, SDMODFO: With Truncation, PUT Macro (Section 3 of 5) 



* EXCHANGE I/O * 
♦AREA ADDRESSES * 

* IN WRITE CCW * 

* * 
***************** 



***** *BL-J5,H4 

* * 

* * * 
* * 



* FILE * 

ASSIGNED TQ 
*. IGNORE .* 



**** 

* * 

* 1 * 

* * 

**** 



****C1 *********** 



***************** 



DI 



.* 



*. 



*. 2 I/O AREAS .*. 

*. .* 

*. .* 

*. .* 

♦ NO 



*****£!********** 

♦IJGEWAIT BN* 
*_*_*_*_*_*_*_*-* 

* WAIT AND TEST * 

* FOR ERRORS * 

* * 
***************** 



*****p i ********** 
♦UPDATE I/O AREA* 

* ADDRESS BY 8 * 
*AND SAVE IN DTF* 

* AS CURR DATA * 

* ADDR * 
***************** 



*****Gi ********** 

* * 
♦COMPUTE ADDRESS* 

* OF END OF I/O ♦ 
♦AREA AND STORE * 

* * 
***************** 



♦ RESET DATA ♦ 

♦ LENGTH BUCKET * 

* TO ZERO * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



****J2********* 

♦RETURN TO CLOSE* 

X* ROUTINE * 

* * 

*************** 



***** 
*BK * 
* C4* 



IJGEIORU 
NO 



**E4******* 

* * 
RESET 

EOF 
SWITCH 

* * 
*********** 



*****G4**** ****** 

* INITIALIZE * 
♦DEBLOCKER WITH * 

* ADDR OF DATA * 

* AREA * 

* * 
***************** 



*****H4********** 



************** 



♦J3 
SDMODFO MACRO 
PARAMETER OPTION. 
DECISION DOES 
NOT APPEAR IN 
ASSEMBLY LISTING. 



***** 

♦ BK * 

* B3* 



***** 
*BL * 
* C3* 



***** £5********** 

* SET RECORD * 

* NUMBER IN * 

* SEARCH ARG * 

* BJCKET TO 1 * 

* * 
***** ************ 



1JGESW03 X 

**»**p«j ********** 

* UPDATE COUNT * 

* I IELD IN I/O * 

* AREA WITH * 

* SLARCII ARG AND * 

* ULOCK SIZE * 
****«********#*** 



*****G5********** 

* * 

* UPDATE COUNT * 
♦FIELD IN WRITE * 

* CCW BY 8 * 

* * 
***************** 



*****H5********** 

* * 

* SAVE CURRENT * 

* I/O AREA ADDR * 

* * 

* * 
****************** 

X 
**** 

* * 

* 2 * 

* * 
**** 



***** 
*BK * 
* C4* 
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Chart BN. SDMODFO: With Truncation, PUT Macro (Section 4 of 5) 



****A1 ********* 



*A2 
SDMODFO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* IJGEWAIT 


* 


* 




* 


*************** 


**** 




**** 


* * 


* 


* 








* * 


* 


.11* 


**** 


X 


**** 


IJGEWAIT 


. *. 




Bl 


*. 




.* 


* 




.* 


[/0 


*. 


*. COMPLETED 


.* 


*. 




.* 


*. 


.* 




* 


. .* 
*YES 





ERROPT *. NC 
SPECIFIED .*... 
*A2 .* 



.* ERREXT *. NO 
*. SPECIFIED .*... 
*. *A2 .* 



* 4 * 

* * 
**** 



.X* 



*****B2********** 
* * SVC 7 * * 

WAIT FOR * * 
I/O * *. 

COMPLETE * * 



* * 
***************** 



****C2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*** ************ 



DATA 

CHECK 

ERROR 



*****C3********** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****D3********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



* * 3 * 

* * . * 

* **** 



.X* 



*Q4********** 

PUT ADDR * 

OF I/O * 

AREA IN * 

PARAMETER * 

* LIST * 

***************** 



*****C4********** 

* GET ADDR * 

* OF USER'S * 

* PARAMETER * 

* LIST * 

* * 
***************** 



DATA *. 
CHECK 
ERROR .* 



**E2******* 

* RESET * 

* UNRECOVER. 
* I/O ERROR 

* INDICATOR ' 

* * 
*********** 



ERREXT *. NO 
SPECIFIED .*... 
*A2 .* 







**** 


m 


X 




* * 


X 


IJGEUNIO .*. 




* 2 * 


.*. 


Fl *. 




* * 


F3 *. 


.* * 




**** 


.* *. 


.* UNRECOV 


*. NO 




.* ERET *. 


*. I/O ERROR 






*. OPTION .* 


*. 


* 




*. .* 


*. .* 




**** 


*. .* 


*. .* 




* * 


*. .* 


*YES 




* 3 * 


♦RETRY 


**** 




* * 




* * . 




**** 




* 2 *. .. 








* * 




x. 




**** X 








.*. 






X 


Gl *. 




X 


*****G3********** 


.* * 




****G2********* 


* RESTORE * 


.* ERROPT 


*. NO I 


* RETURN TO * 


* MODULE REGS * 


*. =NAME 


.*.... 


* CALLING * 


* AND SAVE * 


*. 


* 


* ROUTINE * 


* USER REGS * 


*. .* 




*************** 


* * 


*. .* 






***************** 


*YES 









*****E4********** 

* RESTORE * 
MODULI: REGS * 

AND SAVE *. 
USER REGS * 

* * 
***************** 



.X* 



*****P4********** 
* RESTORE * 
MODULE REGS * 

AND SAVE *. 

USER REGS * 

V * 

***************** 



.X* 



****P5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
**** *********** 



IJGEERR1 X 

*****Hl ********** 

* GET ADDRESS * 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 



****H3*********** 

* SVC * 
RETRY 
* WRITE * 

***************** 



**** 

* * 

* 1 * 

* * 
**** 



* RDONLY * 


YES 


=YES .*. 




*. *A2 .* 






*. .* 






*. .* 




X 


*NO 




***** 

*BP * 

* Bl* 

* * 

* 


X 






,H,*Kl ********** 




SAVE MODULE 
REGISTERS AND 


* 




* 




RESTORE USER 


* 




REGISTERS 


* 





ft**************** 



* A * 

* * 
**** 
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Chart BP. SDMODFO: With Truncation, PUT Macro (Section 5 of 5) 



*A2 
SDMODFO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*BN * 
* Jl* 



*****B1 ********** 

* SAVE MOD * 

* REGISTERS * 

* AND RESTORE * 

* USER REGS * 

* * 
***************** 



ERREXT 

SPECIFIED 

*A2 



• X* 



*****C2********** 

* PUT ADDRESS * 

* OF I/O * 
AREA IN * 

PARAMETER * 

* LIST * 
***************** 



*****Di ********** 

* * 

* GET ADDRESS * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****02********** 

* GET ADDRESS * 

* OF PARAMETER * 

* LIST FOR * 

* USER * 

* * 
***************** 



*****E1 ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 



**********: 



** 



ERREXT *. NO 
SPECIFIED .*... 
*A2 .* 



.X* 



*****P2********** 

* SAVE USER * 

* REGISTERS * 
AND RESTORE * 

* MODULE * 

* REGS * 
***************** 



*****Gi ********** 

* SAVE USER * 

* REGISTERS * 

* AND RESTORE * 

* MODULE * 

* REGS * 
***************** 



****G2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****H2********* 

* RETURN TO * 
.X* CALLING * 

* ROUTINE * 
*************** 



****jl *********** 

* SVC * 

RETRY 
* WRITE * 

***************** 



***** 
*BN * 
* Bl* 
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Chart BQ. SDMODFO: With Truncation, Close Routine, TRUNC Macro 



ENTRY FROM 
$$B0SDC1 OR 
$$B0SDEV. 



****A1 ********* 

* IJGECLOS * 

* *A2 * 

* $$B0SDEV * 
*************** 



RDONLY 

= YES 

*A5 



* 1 * 

* * 
**** 



FEOVD *. YES 
=YES .*.... 
*A5 .* 



SET 

WRITE EOF 

SWITCH 

*********** 



*A5 
SDMODFO MACRO 
PARAMETER OPTION- 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



SET WRITE 

EOF 

SWITCH 

* * 

*********** 



**B5******* 



********** 



* SAVE USER * 

* AND LINKAGE * 

* REGISTER * 

* * 

***************** 



IJGECLOS 

*****C2********** 

* SAVE USER * 

* REGISTERS * 

* AND POINTER * 

* TO * 

* SAVE AREA * 
***** ************ 



**C3******* 

* * 
SET WRITE 

EOF SWITCH 
ON 

* * 
*********** 



WAS 
EOF JUST 
. WRITTEN 



El *. 
.* FIRST *. 
ENTRY *. 
AFTER .* 
OPEN 



*. 



.* 



*****P1 ********** 

* * 

* INITIALIZE * 

* TRACK * 

* CAPACITY * 

* * 
***************** 



RESET 

FEOV 

SWITCH 

*********** 



****P2********* 

* SVC 9 * 

* RETURN TO * 

* B-TRANSIENT * 
*************** 



*****03*«c******** 
♦IJGECALF BK* 

*_*_*_*_*_*_*_*_* 




* SET UP TO * 

* WRITE EJF * 

* RECORD * 
***************** 


**** 
* 
* 2 

* 




**** 




X 


X 

*****£3********** 

* SET DATA * 

* LENGTH TO * 

* ZERO IN * 

* IOAREA COUNT * 

* FIELD * 
***************** 


.*. 
E4 * 
.* 
.* RDONLY 
*. =YES 
*. *A5 
*. 

*. .* 



*****ei ********** 

* * 

* GET IOAREA * 

* ADDRESS AND * 

* DATA LENGTH * 

* * 
***************** 



**J1******* 

* * 
* SET SWITCH * 

* TO WRITE * 

♦PARTIAL BLOCK* 

* * 
*********** 



*****Kl ********** 

♦IJGECALF BK* 

*_*_*_*_*_*_*_*_* 

* WRITE PARTIAL * 

* BLOCK * 

* * 
***************** 



***#P3******** 

* SVC 
WRITE EOF 
* RECORD 

***************** 



FEOVD 

= YES 

*A5 



*****H3********** 
*IJGEWAIT BN* 
*_*_*_*_*_*_*_*_* 

* TEST FOR * 

* ERRORS * 

* * 
***************** 



**j3******* 



*****P4********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



***** p 5********** 

* * 

* RESTORE * 

* USER * 
♦REGISTERS 9-14 * 

* * 
***************** 



****G4********* 

* SVC 9 * 

* RETURN TO * 

* B-TRANSIENT * 
*************** 



****H4********* 

* ENTRY FROM * 

* TRUNC * 

* MACRO * 
*************** 



RESET 
SILI 
BIT 

* 
*********** 



SET 

EOF 

SWITCH 

* * 

*********** 



* DATA 
LENGTH 
BUCKET 



**K4******* 

* * 
SET 

TRUNCATION 
SWITCH ON 

* * 
*********** 



****K5********* 

* RETURN * 

* TO USER * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 
.* 2 * 

* * 
**** 
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Chart ER. SDMODFO: Without Truncation, PUT Macro (Section 1 of 4) 



**** 

* * 

* i * 

* * 
**** 



♦ A2 
ENTRY FROM 
PUT MACRO. 



XX. 



****A1 ********* 

* IJGDPUT * 

* *A2 * 

* * 
*************** 



.*. IJGDPUT 

Bl *. *****B2********** 

* *. * SAVE USER * 

RDONLY *. YES *REGISTERS 9-14 * 

= YES .* X*AND POINTER TO * 

*D2 .* * SAVE AREA * 

*. .* * * 

*. .* ***************** 



IJGDSW02 - . 

A3 *. 
.* IS ♦ . 
.♦ THERE A 
*. WORK AREA 



.* BS * 

* D5* 

**** 



***************** 



*****B3***#*#**>e<* 

* GET ADDR OF * 

* OUTPUT AREA * 

* WORK AREA AND * 
♦NUMBER OF BYTES* 

* TO BE MOVED * 
***************** 



* MOVE RECORD * 
♦FROM WORK AREA * 
*TO OUTPUT AREA * 

* * 
***************** 



****A4********* 

* * 

* IJGDEXCH * 

* * 
*************** 

**** 



**** 
IJGDEXCH X 

*****B4********** 

* * 

* EXCHANGE I/O * 
*AREA ADDRESSES * 

* IN WRITE CCW * 



.* FIRST ♦ . 
* ENTRY 
AFTER OPEN 



**E1 ******* 



*********** 



*****P1 ********** 

* * 

* INITIALIZE * 
♦COUNT FIELD IN * 

* IOAREA * 

* * 
***************** 



*****Gl ********** 

* * 

* INITIALIZE * 
*COUNT FIELD IN * 

* IOAREA1 * 

* * 
***************** 



*D2 
SDMODFI MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



****P2********* 

* * 

* IJGDBUFF * 

* * 
*************** 



FEOVD 

= YES 

*D2 



WAS END 

OF VOLUME 

. FORCED . 



♦NO 

.xl 

X 
**** 



**** 






* * 






** *.. 






♦ E2 + 


X. 




**** > 






IJGDBUFF .' 






G2 


* 




.* 




*. 


NO .♦ 






...♦. 2 I/O 


AREAS 


*. 




.51 



*****H2**#******* 
♦IJGDWAIT BT+ 
*-*-*-*-*-*-*-*-* 

* WAIT AND TEST ♦ 

♦ FOR ERRORS ♦ 



**********: 



♦ * 



**** 

* * 

* 2 ♦ 

* * 
**** 



***** 
*BS * 
* D3* 



***************** 



*****E3*****«+«* 

* 

♦UPDATE I/O AULA 

* ADDRESS BY 

♦ RECORD SIZL 



*****C4*****^*^* 

♦ UPDATE RECORD ♦ 

♦ NUMBER FROM * 

♦ SEARCH ARG ♦ 

♦ BUCKET BY 1 ♦ 

♦ * 
***************** 



*****Q4 ********** 

♦ STORE UPDATED ♦ 

♦ RECORD NUMBER ♦ 
♦IN IOAREA COUNTS 

* FIELD ♦ 

* * 
***************** 



♦ MOVI l-CHU I IUIM ♦ 

♦ SLAKCH AlU.UMl Nf ♦ 

♦ I3UCKI I II) (.DUN l« 

♦ I ll.t.1) ♦ 



*****G3********** 



***************** 



**** 
IJGDIORU X 

♦♦♦♦♦^♦♦♦♦♦♦♦♦♦+ 



*****G4********** 

♦ PUT KEY AND ♦ 
♦DATA LENGTH IN ♦ 

♦ IOAREA COUNT ♦ 

♦ FIELD ♦ 

♦ * 
***************** 



IJGDWROT X 

***** A5********** 
♦SET SEARCH ARG ♦ 

♦ BUCKET IN ♦ 

♦ DYNAMIC ♦ 

♦ DISK/FILE ♦ 

♦ ADDRESS ♦ 
***************** 



NO .♦ERREXT AND 
...♦. ERROPT 

♦.SPECIFIED. 



*****C5********** 

♦ SAVE CURRENT ♦ 
♦RECORD ADDR AND+ 

♦ I/O AREA ♦ 

♦ ADDRESS ♦ 

♦ * 
***************** 



.♦ EXTENT ♦. NO 
*. UPPER LIMIT .♦... 
♦.EXCEEDED .♦ 



* + **[;(,**«< + *♦*♦♦ 



****F 5** ********* 



***************** 



*****G5********** 

* * 

* GET ADDR OF * 

* IOAREA AND ♦ 

* DATA AREA ♦ 

* * 
***************** 



♦ RESTORE USER ♦ 


NO .♦ ♦. 


.* END ♦. NO 


♦ REGISTERS ♦ 


...♦. END OF FILE .♦ 


♦. OF FILE ...... 


* * 


♦ . .♦ 


♦ . .* 


* * 


*. .* 


*. .* 


***************** 


X ♦. .♦ 


*. .* X 




**** *YES 


*YES ***** 




* * 


♦ BS ♦ 




* 3 * 


♦ El* 




* * 


* * 




**** 


♦ 
X IJGDENCY 


X 


X 


.♦. 


*****J3********** 


*****j4********** 


J5 ♦. 


* * 


* * 


.♦ ♦. 


♦LOAD IOREG WITH^ 


♦SET DATA LENGTHS 


.♦ FEOVD ♦. NO 


* BLOCK ADDRESS ♦ 


♦IN IOAREA COUNTS 


♦. = YES .♦.. .. 


* * 


♦ FIELD TO ZERO ♦ 


♦. ^D2 .♦ 


* ♦ 


♦ * 


♦ . .♦ 


***************** 


***************** 


♦ . .♦ X 
♦YES ***** 




* **** 


*BS * 




* * 


* Bl* 




..X* 3 * 


* * 




* * 


♦ 




**** 


X 

*****«5********** 


X 




****K3********* 




♦IJGDWAIT BT* 


* RETURN TO ♦ 




*_*-*-*_*_*-*_*-* 


♦PROBLEM PROGRAM^ 




* TEST FOR * 


* * 




* ERRORS ♦ 


*************** 




* * 
***************** 

'. IJGDSTKY 
X 
***** 










*BS ♦ 






♦ Al* 
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Chart BS- SDMODFO: Without Truncation, PUT Macro (Section 2 of 4) 



***** 

*BR * 
* K5* 



**** 

* * 

* 5 * 

* * 
**** 



* 4 * 

* * 
**** 



* RESET SILI 
* BIT AND 

* EOF SW 

* * 

*********** 

**** 



*BR 
* J5* 
**** 



*****gl 4********* 



***************** 



****C1 ********* 

* SVC 9 * 

* RETURN * 

* TO $$BOSDCI * 

*************** 



SDMO 
UPT1 
NOT 
ASSE 



DFO MACRO PARAMLTERS 
ON-DECISION DOES 
APPEAR IN AN 
MBLY LISTING. 



B3 *. 
.♦EXTENT *. 
♦UPPER LIMIT*. 
EXCEEDED .* 



*BR * 
* Jl* 
**** 



***** 
*BR * 
* H5* 



♦GET LOWER HEAD * 
♦LIMITS FROM DTF* 

* TABLE * 

* * 
***************** 



*****P1 ********** 
*SET COUNTER TO * 

* 5 TO CHECK * 
*CCHR OF SEARCH * 

* ARGUMENT * 

* * 
***************** 



* l 



**** 
IJGDLOOP 

*****Gl ********** 

* GET * 

* CORRESPONDING * 

* CHAR FROM * 
♦SEARCH ARG AND * 

* CONTROL FIELD * 
***************** 



.♦SEARCH ♦. 

ARG CHAR ♦. YES 
= CNTRL FLD .*.... 
. CHAR .* 



FEOV 

SWITCH 

ON 



F2 ♦. 
.♦ NEXT *. 
♦ EXTENT 
ON NEW VOL. 



* 5 * 

* * 
**** 



****G2********* 

* SVC 9 RETURN * 

* TO $$BOSDCl * 

* * 
*************** 



.X* 



IJGDDONE 

*****jl ********** 

* UPDATE SEARCH * 

* ARGUMENT CHAR * 
*BY 1 AND STORE * 

* IN SEARCH ARG * 



************* 



*** 



*****H2********** 
* SET LOW HEAD * 
*LIMIT CHARACTER* 
IN SEARCH * 
ARGUMENT * 



***************** 



*****j2********** 

* * 

* DECREASE * 

* COUNTER BY 1 * 

* * 

* * 
***************** 



**** 

* * 

* 1 * 



***************** 



*****P3********** 



*********** 



*****G3********** 



***************** 



****H3********* 

* SVC 2 FETCH ♦ 

* $$BOPEN * 

* * 
*************** 



*****j3********** 



***************** 



**** 

* * 

* 4 * 

* * 
**** 



********** 



***************** 



**C4******* 

* SET END * 
* OF DTF * 

* INDICATOR FOR 
♦OPEN ROUTINE ♦ 

* * 
*********** 



*****D4********** 



***************** 



*****E4********** 



***************** 



****P4** ******* 

* SVC 2 FETCH * 

* $$BOPEN * 

* * 
*************** 



*****G4********** 

* SAVE USER * 

* REGISTERS AND * 
♦POINTER TO SAVE* 

* AREA * 

* * 
***************** 



*****H4********** 



***************** 



♦ FILE ♦ 

ASSIGNED TO 
*. IGNORE .♦ 



**C5******* 

* * 

* * 
♦RESET FEOV BIT ♦ 

* , * 

* * 
*********** 



4*05******* 

* * 

* * 
* RESET * 

* EOF SWITCH * 

* * 
*********** 



***** 

*BR ♦ 

♦ A3* 

* * 



* END ♦. 
OF FILE ♦. YES 
SWITCH ...... 



*N0 ***** 
*BR ♦ 
* B4^ 

X'. IJGDEXCH* 



G5 ♦. 
.♦ ♦. 
* *. 

2 I/O AREAS .♦ 



*****H5****^***** 
♦IJGDWAIT BT^ 
*_*_*_*_*_*_*_*_* 

* WAIT AND TEST ♦ 

* FOR ERRORS ♦ 

* * 
***************** 



.* PARTIAL *. 

BLOCK 

♦ .SWITCH 0N.+ 



***** 
*BR ♦ 
* H3* 



****K5**** 
♦RETURN TO CLOSED 

♦ ROUTINE ♦ 

* * 
*************** 
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Chart BT. SDMODFO: Without Truncation, PUT Macro (Section 3 of 4) 



*BU * 

* C3* 

* * 



****A1********* 

* * 

* IJGDWAIT * 

*************** 
**** 



**** 
IJGDWAIT .*. 
Bl * 



*****B2******* 

* * SVC 7 

* * WAIT FOR 
.X* * I/O 

* * COMPLETE 



.* ERROPT 
. SPECIFIED 
*. *H2 



ERREXT *. NO 
SPECIFIED .*... 
*H2 .* 



**#*C2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



DATA *. 
CHECK 
ERROR .* 



**** 
* * 






**** 
* « 


* 4 * 






* 5 * 


* * 






* * 


**** 


1 




**** 


X 






X 


B3 *. 


*****34********** 


*****B5********** 


.* *. 


* PUT ADDR * 


* 


SAVE PREV * 


ERREXT *. YES 


* OF I/O AREA * 


* 


ADDRESSES * 


SPECIFIED .* 


..X* IN PARAMETER * 


* 


AND RESTORE * 


*H2 .* 


* LIST * 


* 


CURRENT * 


*. .* 


* * 


* 


ADDRESSES * 


*. .* 


***************** 




*** ************ 


*N0 






X 

**** 

* * 


X 


X 




* 1 * 


**C3*****f**** 


*****C4********** 




* * 


* 


* * 




**** 


GET ADDRESS * 


* GET ADDR * 






OF I/O * 


* OF PARAMETER * 






AREA * 


*> LIST * 







***************** 



**************** 



DATA 

CHECK 

ERROR 



**** 

* * 
..X* 3 * 

* * 
**** 

**E2******* 

* RESET * 

* UNRECOV * 
.X* I/O ERROR * 

* INDICATOR * 

* * 
*********** 



.X.. 
X 

**** 



****#D3********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



ERREXT *. NO 
SPECIFIED .*... 
*H2 .* 



*****E4********** 
* RESTORE * 
MODULE REGS * 
AND SAVE *. 
USER REGS * 



***************** 



.X* 



IJGDUNIO .*. 


* 2 * 


.*. 






Fl *. 


* * 


F3 *. 


*****p 4 *« *******>< 


.* *. 


**** 


.* *. SKIP 


* RESTORE i 


.* UNRECOV *. NO 




.* ERET *. IGNORE 


* MODULE REGS < 


*. I/O ERROR .*.... 




*. UPTION .* 


.X* AND SAVE * 


*. .* 




*. .* 


* USER REGS i 


*. .* 


**** 


*. .* 


* n 


*. .* 


* * 


*. .* 


***************** 


*YES 


* 3 * 


♦RETRY 




**** 


* * 








* * 


**** 








* 2 *... X 










* * . .. 


..........X. 






X. . . • .. 


**** X X 






.*. 




X 






Gl *. - 


X 


*****G3********** 


X 


.* *. 


****G2********* 


* RESTORE * 


****G4********* 


.* ERROPT *. NO . 


* RETURN TO * 


* MODULE REGS * 


* RETURN TO * 


*. =NAME .*.... 


* CALLING * 


* \HD SAVE * 


* CALLING i 


*. .* 


* ROUTINE * 


* USER REGS * 


* ROUTINE i 


*. .* 


*************** 


* * 


******* 


******** 



IJGDERR1 

*****Hl ********** 

* GET ADDRESS * 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 



RDONLY 
= YES 

*H2 



*H2 
SDMODFO MACRO PARAMETER 
0PTI3N. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*BU * 
* Bl* 



*****Ki ********** 

* SAVE * 

* MODULE REGS * 

* AND RESTORE * 

* USER REGS * 

* * 
***************** 



***************** 



*****H3********** 

* SAVE CURRENT * 

* RCD ADDRESS * 

* AND CURRENT * 

* I/O AREA * 

* ADDRESS * 
***************** 



*****J3********** 

* RESTORE PREV * 

* ADDRESSES * 

* TO RETRY * 

* WRITE * 

* OPERATION * 
***************** 



****K3*********** 

* SVC * 
RETRY 
* WRITE * 

***************** 



**** 

* * 

* 4 * 

* * 
**** 
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Chart BU. SDMODFO: Without Truncation, PUT Macro (Section 4 of 4) 



***** 

*BT * 
* Jl* 



**** 

* * 

* 1 * 



*****B1 ********** 

* SAVE MODULE * 

* REGISTERS * 

* AND RESTORE * 

* USER REGS * 



****#**** 



******* 



ERREXT 

SPECIFIED 

*E2 



*****D1 ********** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****E1 ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



.X* 



*****C2********** 

* PUT ADDR * 

* OF I/O * 
AREA IN * 

PARAMETER * 

* LIST * 
***************** 



****Q3** ********* 
SVC 
* RETRY * 
WRITE 
OP * 



*****C3********** 

* SAVE PREV * 

* ADDRESSES * 

* AND RESTORE * 

* CURRENT * 

* ADDRESSES * 
***************** 



*****02********** 

* * 

* GET ADDRESS * 

* OF PARAMETER * 

* LIST * 

* * 
***************** 



***** 
*BT * 
* Bl* 



*E2 
SDMODFO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



ERREXT 

SPECIFIED 

*E2 



*****G ]_********** 

* SAVE USER * 

* REGISTERS * 

* AND RESTORE * 

* MODULE * 

* REGISTERS * 
***************** 



.X* 



*****P2********** 

* SAVE USER * 

* REGISTERS * 
AND RESTORE * 

* MODULE * 

* REGS * 
***************** 



*****jl ********** 

* SAVE CURR * 

* RCD AND I/O * 

* AREA ADDR. * 

* RESTORE PREV * 

* ADDRESSES * 
***************** 



****J2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart BV. SDMODFO: Without Truncation , Close File Routine 



****A1 ********* 

* IJGDCLOS * 

* *A2 * 

* * 
*************** 



*A2 
ENTRY FROM 
$$B0SDC1. 



**** 

* * 

* 1 * 

* * 
**** 

X 
**A3******* 

* * 
SET PARTIAL 

LOCK SWITCH 

* * 
*********** 



IJGDCLOS 

*****B2********** 

* SAVE USER * 
. YES * REGISTERS AND * 
.* X*POINTER TO SAVE* 

* AREA * 

* * 
***************** 



***************** 



Dl 



*. 



*. 2 I/O AREAS .*. 

*. .* 

*. .* 

*. .* 

*YES 



*****E1 ********** 

♦IJGDWAIT BT* 

*-*-*-*-*-*-*_*-* 

* WAIT AND TEST * 

* FOR ERRORS * 

* * 
***************** 



*D2 
SDMODFO MACRO 
PARAMETER OPTION. 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



*****03********** 

* * 
*GET DATA LENGTH* 

* AND STORE IN * 

* CCW * 

* * 
***************** 



*****E3********** 



***************** 



**D5******* 



*********** 



.* EOF *. 

JUST 

*. WRITTEN .* 



***** 

*BR * 

* G2* 

* * 



* PARTIAL *. NO 

BLOCK TO BE .*... 
*. WRITTEN .* 



*****G1 ********** 

* STORE * 

* DATA LENGTH * 

* IN IOAREA * 

* COUNT FIELD * 

***************** 



**** 
IJGDFLIP X 

**G3******* 

* * 
* SET SUPRESS * 

* LENGTH BIT ON 
*IN WRITE CCW * 

* * 
*********** 



*SET SUPPRESS * 

.X* LENGTH BIT IN 

* CCW * 

* * 

*********** 



**G4******* 



*********** 



**F5******* 



*********** 



****G5********* 

* SVC 9 RETURN * 
*TO B-TRANSIENT * 

* * 
*************** 



**H3******* 



**jl ******* 



*********** 



*********** 



*****«! ********** 

* * 

* UPDATE DATA * 
♦LENGTH BY 8 AND* 
♦STORE IN WRITE * 

* CCW * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****K3********** 

* * 
♦RESTORE LINKAGE* 

* REGISTER TO * 

* USER * 

* * 
***************** 



* 3 * 

* * 
**** 
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Chart BW. SDMODFU: With Truncation, GET Macro and CLOSE Routine (Section 1 of 10) 



****A1 ********* 

* ENTRY * 

* FROM GET * 

* MACRO * 
*************** 



RDONLY 

= YES 

*D2 





*BX-F3,G3 




***** 


**** 


* * i 


* * ' 


# * * 


* 1 * 


* * 



.X. 



IJGGGET 

*****B 2*** ******* 

* SAVE USER * 

* REGISTERS * 
...X* 8-14 AND * 

* POINTER TO * 

* SAVE AREA * 
***************** 



* SAVE USER * 

* AND LINKAGE * 

* REGISTERS * 

* * 
***************** 



**D1 ******* 

* SET * 
UPDATE 
SWITCH 

ON 

* * 

****: 



* FIRST * 

ENTRY AFTER 
*. OPEN .* 



SDMODFU MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN ASSEMBLY 
LISTING. 



**** 

* * 

* 3 * 

* * 
**** 



*****f ^ ********** 

* * 

* GET * 

* DEBLOCKING * 

* CONSTANTS * 

* * 

***************** 



*****Gl ********** 

* UPDATE * 

* I/O AREA * 

* ADDRESS * 

* BY RECORD * 

* SIZE * 

***************** 



***** 

*BY * 
* E2* 



.* IS 

THERE A 
*.WORK AREA. 



*****C3********** 

* * 

* GET * 

* ADDRESS OF * 

* WORK AREA * 

* * 
***************** 



*****03********** 
♦IJGGGENM CF* 
*_*_*_*_*_*_*_*_* 

* MOVE RECORD * 

* TO WORK * 

* AREA * 
***************** 



* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****P3********** 

* LOAD * 

* IOREG * 

* WITH BLOCK * 

* ADDRESS * 

* * 
***************** 



****G3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



**** 

* * 

* 2 *. .. 

* * 
**** X 

.*. 
H3 



IJGGSW02 X 

**«**Q/ t ********** 

* STORE * 

* READ COUNT * 

* MULTI-TRACK * 

* CODE * 

* * 
* ******** ******** 



*****C4 ********** 

* SET RECORD * 

* NUMBER IN * 

* SEARCH ARG * 

* TO ZERO * 

* * 
***************** 



*****D4********** 

* GET ADDRESS * 

* OF I/O AREA * 

* AND STORE IN * 

* DEBLOCKING * 

* CONSTANTS * 
***************** 



*****E4********** 

* COMPUTE * 

* ADDRESS OF * 

* END OF * 

* I/O AREA * 

* AND STORE * 
***************** 



FEOVD 
= YES 

*D2 



.* WAS 
*. END OF VOL 
*. FORCED . 



*****A5********** 
*IJGGFACT CF* 
*_*_*_*_*_*_*_*_* 

* ESTABLISH * 

* BLOCK LIMITS * 

* * 
***************** 



IJGGADD3 X 

*****B5********** 

* EXCHANGE * 

* I/O AREA * 

* ADDRESSES * 

* IN READ/ * 

* WRITE CCW * 
***************** 



*****C5********** 

* * 

* SAVE OLD * 

* I/O AREA * 

* ADDRESS * 

* * 
***************** 



****Q5*********** 

IJGGWRT BZ 
* -*_*_*_*_*-*- * 

WRITE 
* BLOCK * 
***************** 



JGGEOFF .*. 






E5 *. 






.* * 




.* 


EOF 


*. NO 


*. 


SWITCH 


.*.... 


* 


ON 


.* 




*. .* 






*. .* 


X 




♦YES 


***** 
*BX * 




* 


* Bl* 

* * 

* 




X 


JGGADD2 




.*. 






F5 *. 






.* * 




.* 


FEOVD 


*. YES 


*. 


= YES 


- .*.. .. 


* 


*D2 
*. .* 


.* 




*. .* 


X 




*NO 


***** 
*CD * 








* A5* 








* * 








* 








IJGGCHCK 




X 






(t*G5******* 


* 




* 


* 


RESET 


* 


* 


EOF 


* 


* 


SWI1 


rcH 


* 



***** 
*BX * 
* D3* 



*****H4 ********** 
*IJGGNXRC CE* 
*_*-*_*_*_*_*_*_* 

* GET DATA * 

* LENGTH OF * 

* BLOCK 1 * 
***************** 

**** 



*********** 



X 

***** 

*CE * 

* B3* 

* * 



*****K1 ********** 

* * 

* SAVE NEW * 

* RECORD * 

* ADDRESS * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*************** 



**** 

* * 

* 2 * 



**J3** 

*SET Sir 

* OFF 
* FETCh 

* EXTE 
* 

****** 


t***** 
JITCH * 

TO * 
i NEW * 

NT * 

* 
****** 


) 
*****«3*^ 
*IJGGEXTf 

*_*_*_*_:( 


********* 

i CE* 
*_*_*_*_* 


* FE 

* NE 

* EXT 
********* 


rcH * 

<T * 
ENT * 
********* 



IJGGRD1 

****j4*********** 
IJGGREAD BY 
*_*-*_*_*_*_*_*-* 
READ 
* DATA * 

***************** 



* 4 



**** 
IJGGRELA 

*****K4********** 

*UGGWAIT CA* 
*_*-*_*_*-*_*_*_* 

* WAIT AND * 

* TEST FOR * 

* ERRORS * 
***************** 
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Chart BX. SDMODFU: With Truncation, GET Macro (Section 2 of 10) 



***** 

*BW * 
* E5* 



*********** 



* ♦IJGGETA 



IJGGADD2 X 

*****Bl ********** 

* STORE SEARCH * 
♦ARGUMENT BUCKET* 

* FOR WRITE * 

* ROUTINE, * 

* * 
***************** 



*****Cl ********** 

* SAVE DATA * 

* LENGTH BUCKET * 

* FOR WRITE * 

* ROUTINE * 

* * 
***************** 



*****D1 ********** 

* PUT COUNT ID * 

* FIELD IN * 

* DYNAMIC * 

* DISK/FILE * 

* ADDRESS * 
***************** 



*. , 



* * * 



*CD-A5,B5,D5 



**** 
IJGGEXT 

**C3******* 

* SET * 

* EXTENT AND 
* EOV SWITCH 

* OFF 

* * 
*********** 



*BW * 
* G4* 
**** 



**** 

* * 

* 5 * 

* * 
**** 



*****03********** 
*IJGGEXTN CE* 
*_*_*_*-*_*_*_*_* 

*GET NEW EXTENT * 

* * 

* * 
***************** 



JGGADD4 .*» 






X 


El *. 




**E3******* 


.* UPPER *. 




*SET RECORD * 


.*HEAD LIMIT *. NO 




* NUMBER IN 


*. EXCEEDED .*.... 




* SEARCH ARG TO 


*. .* 




* ZERO 


*. .* 




* * 


*. .* X 




*********** 


*YES ***** 






*BY * 






* Bl* 






* * 
* 






X 




X 


.*. 


[JGGSW05 


.*. 


Fl • *. 


*****F2********** 


F3 *. 


.* MULT1 *. 


* * 


.* *. 


.* TRACK *. NO 


* STORE READ * 


NO .* FEOVD * 


*. BIT OFF .* 


. .X* COUNT COMMAND * 


...*. =YES *K3 


*. .* 


* CODE * 


*. .* 


*. .* 


* * 


*. .* 


*. .* 


***************** 


*. .* 


*YES 




....... ...X. 


♦ YES 


( • 




X 

***** 


• 


X 




*BY * 


X- 


.*. 




* Bl* 


.*. 


Gl *. 




* * 


G3 *. 


.* FIRST *. 




* 


.* *. 


.* RECORD *. NO 




IJGGSW06 


NO .* FEOV * 


*. ON TRACK .*... 






<...*. SWITCH ON 



***** * 


*BW * 


* B4* 


* * 


* 


IJGGSW02 



.* LAST *. 

TRACK 

OF EXTENT 



**H3******* 



*********** 



♦RESENT EXTENT* 

.X*AND FIRST OPEN *... 

* SWITCH * 

* > * 

*********** 



*GET LOWER HEAD * 
♦LIMITS FROM DTF* 

* TABLE * 

* * 
***************** 



*****04********** 

* SET * 

* COUNTER TO * 

* 4 TO CHECK * 

* CCHH OF * 

* SEARCH ARG * 
***************** 



IJGGLOOP 

*****E4********** 
'* GET * 

* CORRESPONDING * 

* CHAR FROM * 

* SEARCH ARG * 

* AND CNTRL FLD * 
***************** 



.♦SEARCH *. 

ARG CHAR * 
= CNTRL FLD 
. CHAR .* 



IJGGDONE 

*****G4********** 

» UPDATE * 

* SEARCH ARG * 

* CHAR BY 1 * 

* AND RESTORE * 

* IN SEARCH ARG * 
***************** 

**** 



* 4 



**** 
IJGGSW03 

**H4******* 

* SET * 

* RECORD 

* NUMBER IN 

* SEARCH ARG 

♦ TO ZERO ♦ 
*********** 



*****P5********** 

* SET LOWER ♦ 

* HEAD LIMIT * 
X* CHAR IN * 

* SEARCH ARG ♦ 



*****G5 ********** 

* * 

* DECREASE ♦ 

* COUNTER ♦ 

* BY 1 * 

* * 
***************** 



Jl. *. 




**J2******* 


**j3******* 


*****j4********** 


.* *. 




* * 


* * 


* STORE READ * 


.* *. 


NO 


* SET FETCH * 


* RESET FEOV * 


* COUNT * 


. 2 I/O AREAS 


*..... 


...X* EXTENT SWITCH * 


* SWITCH * 


* MULTI TRACK * 


*. .* 




* ON * 


* * 


* COMMAND * 


*. .* 




* * 


* * 


* CODE * 


*. .* 




*********** 


*********** 


***************** 


♦ YES 




" **** 

* * 
..X* 4 * 

* * 


X 

***** 




X 




**** 


*BW * 




.♦. 






* J4* 


X 


Kl *. 




*****«2********** 


* * 


*****K4** ******** 


.* *. 




* * 




*IJGGNXRC CE* 


.♦HOLD = YES * 


YES 


* PUT READ DATA * 


IJGGRD1 


*_*_*_*-*_*_*-*_* 


*K3 


* 


. ..X*COMMAND CODE IN* 


♦K3 


* GET * 


♦ . .* 




♦READ/WRITE CCW * 


• SDMDDFU MACRO 


* DATA LENGTH * 


♦ . .* 




* * 


PARAMETER 


* BLOCK 1 * 


*. .* 




***************** 


OPTION—DECISION 


***************** 


*NO 






DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 


'. IJGGSW06 


X 




X 




X 


**** 




**** 




***** 


* * 




* * 




*BY * 


* 1 * 




* 1 * 




* Bl* 
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Chart BY. SDMODFU: With Truncation, GET X4acro (Section 3 of 10) 



***** 
* * * 

* A2* 



****d *********** 
IJGGREAD BY 
*_*_*_*_*_*_*_*_* 

READ 
* DATA * 

***************** 

**** 

* * 
*BX * 

* A4* 
**** 

IJGGGETA 

**01 ******* 
♦SET SWITCH * 

* FOR NOT 

* FIRST ENTRY 

* AFTER 
* OPEN * 

*********** 



SKIP 

SWITCH 

ON 

*. .* 



**E2******* 

* * 

* SET 

.X* SKIP SWITCH 

* OFF 

* * 

*********** 



***** 
*BW * 
* J2* 



* GET * 

* DEBLOCKING * 

* CONSTANTS * 

* * 
***************** 



X 
***** 
*BW * 
* B3* 



****A3********* 

* * 

* IJGGREAD * 

* * 
*************** 



IJGGREAD 

*****B3 ********** 

* MODIFY * 

* READ/WRITE * 

* CCW TO * 

* READ DATA * 

* * 
***************** 



*****C3********** 

* SET * 

* COMMAND * 

* CHAINING BIT * 

* ON IN READ * 

* DATA CCW * 
***************** 



*****D3********** 

* SET * 

* COMMAND * 

* CHAINING BIT * 

* OFF IN READ * 

* COUNT CCW * 
***************** 



*****E3********** 

* SET * 

* READ COUNT * 

* COMMAND * 

* CODE IN * 

* CCW * 
***************** 



*****p 3** ******** 

* PUT COUNT * 

* 10 FIELD * 

* IN SEARCH * 

* ARGUMENT * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*. HOLD = YES 



*A5 
SDMODFU MACRO PARAMETtR 
OPTION — DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



****B5*********** 



SVC 

READ 

DATA 



******** 



.* TRACK 
HOLD 
♦.SPECIFIED. 



****C5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



IJGGHOLD 

****D5*********** 
SVC 35 
* READ * 

...X ■ RECORD 

* AND HOLD * 

TRACK 
******* ********** 



****E4*********** 

* SVC * 
READ 
* RECORD * 

***************** 



****F4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



FEOVD 

= YES 

*A5 



NO .* ONE 
...*. BYTE KEY 
*. AREA 



**** 

* * 

* 1 * 



* UPDATE * 

* DATA * 

* LENGTH * 

* * 
***************** 



ANY *. 
MORE 
EXTENTS .* 



**K4******* 

* * 
SET EOV 

SWITCH FOR 
OPEN 

* * 
*********** 



.X.X.. 
X 

**** 

* * 

* 1 * 

* * 
**** 
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Chart BZ. SDMODFU: With Truncation, GET Macro (Section 4 of 10) 



****A2********* 

* * 

* IJGGWRT * 

* * 
*************** 



IJGGWRT 

*****B2********** 
*SAVE SEARCH ARG* 
*AND DATA LENGTH* 

* IN STORAGE * 

* BUCKETS * 

* * 
***************** 



NO .* 

...*. HOLD = YES 
*. *A3 



*A3 
SDMODFU MACRO 
PARAMETER 

OPTION — DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



****D1 ********* 

* * 

* IJGGWRT1 * 

* * 
*************** 



****D3********* 

* RETURN TO * 
.* CALLING * 

* ROUTINE * 
*************** 



**B4******* 

* RESET * 

PUT 
COMMAND 
SWITCH 

* * 
*********** 



**C4******* 

* SET * 

* COMMAND 
CHAINING 

* BIT OFF IN 

* WRITE CCW * 
*********** 



*****Q4********** 

* SET STORED * 

* DATA LENGTH * 



************** 



IJGGWRT 1 

*****E2********** 

* SET WRITE * 

* DATA COMMAND * 

* CODE IN * 

* READ/WRITE * 

* CCW * 
***************** 



*****P2********** 

* SAVE SEARCH * 

* ARGUMENT * 

* IN SEARCH * 

* ARGUMENT * 

* BUCKET * 
***************** 



*****G2********** 

* SET SAVED * 

* SEARCH ARG * 

* BUCKET IN * 

* SEARCH ARG * 

* FIELD * 
***************** 



YES . 


* 


PUT *. 


NO .* * 




...*. 




COMMAND .*X... 


*. HOLD = YES 


* 


• 


* 


ISSUED .* 
*. .* 


#. *A3 .* 
*. .* 




X 




*. . * 


*. .* 




**** 




*NO 


*YES 




* * 










* 1 * 






. 




* * 










**** 




X 


X 

.*. 

J2 *. 




****J1 ********* 


.* *. 




* 




RETURN TO * 


.* PUT * 


r 


* 




CALLING * 


*. COMMAND 


* 


* 




ROUTINE * 


*. ISSUED .* 




*************** 


*. .* 





**** 

* * 

* 1 * 

* * 
**** 



_*_*_*_*_* 



***************** 



****K3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



**P4******* 

* SET * 
READ COUNT 
CCW COMMAND 

CODE TO 

* NOP * 
*********** 



**G4******* 

* SET * 
COMMAND 

CHAINING 
ON IN 

* WRITE CCW * 
*********** 



**H4******* 

* SET * 
SLI AND 

CC BITS ON 
IN READ 

* COUNT CCW * 
*********** 



*****j4********** 

* * 

* INITIALIZE * 

* VERIFY * 

* CCW * 

* * 
***************** 



****K4*********** 

* SVC * 
WRITE 
* i BLOCK * 

***************** 



***** 
*CA * 
* Bl* 
* * 



Sequential Access Charts 177 



Chart CA. SDMODFU: With Truncation , GET Macro (Section 5 of 10) 



****A1 ********* 

* * 

* IJGGWAIT * 

* * 
********* ****** 



* A2* 
**** 
IJGGWAIT 



*A2 
BZ-K4 
CC-C2,H5 



*A3 
SDMODFU MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN ASSEMBLY 
LISTING. 



*****B 2*** ******* 
* * SVC 7 * * 

WAIT FOR * * 
I/O * * 

COMPLL-TED * * 

***************** 



.X* * 



* 2 * 

* * 
***# 



**B5******* 

* * 
SET FIRST 

TIME SWITCH 
OFF 

* * 
*********** 



.* RETURN 
. TO CLOSE 
*. ROUTINE: 



***** 
*CB * 
* B1*IJGGSW0F 



*****£ 5********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



RDONLY 

= YES 

*A3 



****D5********* 

* SVC 9 * 

* RETURN TO * 

* $$B0SDC1 * 
*************** 



2 
I/O 

AREAS 



IJGGKETH 

**£2******* 

* MODIFY * 

* INSTRUCTION * 
...X* IJGGTOM * 

* TO NOP * 



*********** 



* l * 

* * 
**** 



LAST 
BLOCK 
WRITTEN 



**E4******* 

* * 
SET SWITCH 

TO WRITE 
LAST BLOCK 

* * 
*********** 



**P1******* 

* MODIFY * 
INSTRUCTION 
AT IJGGTOM 

TO BRANCH 

* IF ONES * 
*********** 



**G1******* 

* * 
SET CLOSE 

SWITCH 
OFF 

* * 
*********** 



X 
***** 
*CB * 
* Gl* 



IJGGKETH 

**P3******* 

* RESET * 

* SWITCH TO 
* WRITE LAST 

* BLOCK 

* * 
*********** 

**** 



**** 
IJGGTOM X 

**G3******* 



SET CLOSE 

SWITCH 

OFF 



X 

***** 
*CB *- 
* Gl* 
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Chart CB. SDMODFU: With Truncation, GET Macro (Section 6 of 10) 



***** 

*CA * 
* CI* 



*A3 
SDMODFU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



IJGGSWOF .*. 

Bl *. 
.* FETCH * 
.* EXTENTS 
*. SWITCH 



*. 



ON 



**** 

* * 

* 1 * 

* * 
**** 



HCLD 

=YES 

♦ A3 



*****Dl ********** 
♦IJGGFREE CF* 
*_*_*_*_*_*_*_*_* 

* FREE * 

* TRACK * 

* * 
***************** 



ERREXT 

SPECIFIED 

*A3 



DATA 

CHECK 

ERROR 



.* DATA *. 
.X*. CHECK 

*. ERROR .* 



*YES **** 
**** * 

* * * 3 
..X* 4 * * 

* * **#* 



. ***** 
*CD * 
* Dl* 



**C3******* 

* SET OFF * 
UNRECOV 

I/O ERROR 
BIT 

* * 
*********** 



* 4 * 

* * 
**** 



*****C4********** 

* GET ADDRESS * 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 

**** 

* * 

* 5 *. . 

* * 
**** 



RDONLY 

= YES 

*A3 



***** 
*CD * 
* Bl* 



X 

***** 

*cc * 

* B3* 



*********** 



*****P1 ********** 
♦IJGGEXTN CE* 
*-*-*-*-*-*-*_*_* 

* FETCH NEW * 

* " EXTENT * 



.* WRONG *. 
.LENGTH RECORD. 
*. ERROR .* 



.* WLR *. 
.ERROR ROUTINfc. 
♦.SPECIFIED.* 



***************** 


**** 


**** 


* * 


* * 




.. ..* 1 * 


* H3* 


* * 


**** 


X **** 


JGGEOFT 


.*. 


Gl 


*. 


.* 


*. 


.* 


EOF *. 


*. RECORD .* 


*. 


.* 


*. 


.* 


* 


. .* 




*NO 



HOLD 

= YES 

*A3 



+****P3«**+****** 

*IJGGM<LL CF* 

♦_♦_*_♦_♦_♦ _*_*_* 

* rmc * 

* TRACK * 

* * 
***************** 



* 4 * 

* * 
**** 



IJGGRDER 

*****E4********** 

* SAVE * 

* MODULE REGS * 

* AND RESTORE * 

* USER REGS * 



ERROPT 

SPECIFIED 

♦ A3 



***** 
*CD * 
* A3* 



***** 
*CD * 
* HI* 



*****G2********** 

* GET ADDRESS * 

* OF USER * 

* WLR ERROR * 

* ROUTINE * 

* * 
***************** 



**** 

* * 

* 5 * 

* * 
**** 



***** 
*CD * 
* HI* 



************ 



ERREXT 

SPECIFIED 

*A3 



*** 



*****G4** ******** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****H4********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



*****P5********** 

* PUT I/O * 

* AREA ADDR * 
.X* IN PARAMETER * 

* LIST * 

* * 
***** ************ 



*****G5********** 

* * 

* GET ADDRESS * 

* OF PARAMETER * 

* LIST * 

* * 
***** ************ 



**** 

* * 

* 2 * 

* * 
**** 



J2 *. 

.* *. 
.* USER *. NO 
♦.ERROR ROUTINE.*.. 
♦.SPECIFIED.* 
*. .* 
*. .* 
♦ YES 

♦ 

. ♦ 

* 

X 


X 

**** 

2 * 
* 
**** 


- 


.* 
*. 
* 


J4 *. 
* *. 
ERREXT *. NO 


***** J5********** 

* RESTORE * 

* MODULE REGS * 


*A3 .* 
*. .* 
*. .* 
*YES 

X 

.*. 


* USER REGS * 

* * 
***************** x 

***** 

*CD * 

* Bl* 

* * 

* 

IJGDRDWR 


*****«2**^******* 

* GET ADDRESS ♦ 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
**** ************* 






*****K3********** 

* RESTORE * 

* MODULE REGS * 


SKIP .* 


K4 *. 
* *. 

ERET *. IGNORE 


*****K5********** 

* RESTORE * 

* MODULE REGS * 
..X* AND SAVE * 


♦USER REGISTERS ♦ 
* * 
***************** 


* 


.* 
*. .* 
*. .* 
* 


* USER REGS * 

* * 
***** ************ 


X 

**** 

* * 

* 5 * 

* * 






I IJGGRDWR 

X 

***** 

*CD * 

♦ Bl* 

* * 




I RETRY 
X 
***** 

*cc * 

* Bl* 
* * 


IJGGSKIP+4 '. 

X 

***** 

*CD * 

* Dl* 

* * 
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Chart CC. 



SDMODFU: 



With Truncation, GET Macro (Section 7 of 10) 



*A4 
SDMODFU MACRO PARAMETER OPTION. 
DECISION DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*****Q1 ********** 

* RESTORE * 

* MODULE REGS * 

* AND SAVE * 

* USER * 

* REGISTERS * 
***************** 



IJGGRDER X 

*****Q3********** 

* SAVE * 

* MODULE REGS * 

* AND RESTORE * 

* USER REGS * 

* * 
***************** 



* WAS 

ERROR DATA 
*. CHECK . 



SVC 

RETRY I/O 

OPER. 



ERREXT 

SPECIFIED 

*A4 



*****D3********** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



****E1********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 



*****E3*********# 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



*****C4********** 

* PUT ADDR * 

* OF I/O AREA * 
•X* IN PARAMETER * 

* LIST * 

* * 
***************** 



*****04********** 

* * 

* GET ADDR * 

* OF PARAMETER * 

* LIST * 

* * 
***************** 



*****F2********** 

* SAVE USER * 

* REGISTERS * 

* AND RESTORE 

* MODULE REGS 

* * 
***************** 



*X. 



ERREXT 

SPECIFIED 

*A4 



***** 
*CD * 
* Bl* 



*****G3********** 

* SAVE USER * 

* REGS AND * 

* RESTORE * 

* MODULE * 

* REGS * 
***************** 





.*. 


IJGGRET 




H3 *. 






* *. 




SKIP .* 


ERET *. RETRY 


.*" 


. . .*. 


OPTION .* 


. . .X*. E 


* 


.* 
*. .* 


*. 


X 


*. .* 




***** 


♦IGNORE 




*CD * 






* Bl* 






* * 


X 




* 


***** 




I JGGRDWR 


*CD * 

* Dl* 

* * 






I JGGSKIP+4 


. ** 



WAS 

ROR DAT 

CHECK 



SVC 

RETRY I/O 

OPER. 



***************** 



***** 

*CA * 

* Bl* 

* * 



****K4*#******* 
SVC 50 * 
CANCEL * 
* 

*************** 
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Chart CD. SDMODFU: With Truncation, GET Macro (Section 8 of 10) 



***** 

*DW * 
* F5* 



*A1 
CB-B5i J5,K3 
CC-F2.H3 



*A2 
SDMODFU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* CURRENT * 

OPERATION A 
*. WRITE .* 



SET SKIP 

SWITCH 

ON 

* * 

*********** 



**** 






* 


* 






* 


* 


*. . 




* 


n?* 




X 


**»* 


X 






.*. 






51 




.* 






.* 


HOLD 


* 




=YES 




*. 


* 


\'l 



_*_*_*_*_* 



***************** 



*C2 

CB-B5.K5 
CC-H3 



D2 



NO 


* 


HOLD 


* 








= YES 




* 




* 


*A2 
*. .* 
*. .* 
*YES 

X 

.*. 

B3 *. 

* * 


.* 






* 


TRACK 


* 


NO 


* 




HOLD 




*. ... 




* 


SPECIFIED 
*. .* 
*. .* 
*YES 

X 


.* 




*****C3#********* 


. * 


* 


SVC 36 


* 


* 


* 


♦FREE TRACK 


* 


* 


* 


* 


HELD FOR 


* 


* 


* 


*EOF RECORD 


* 


* 


* 


* 


READ 


* 


* 


***************** 






. . .X 


X. .. 



















X..* 1 * 
IJGGCHCK .*. * * 
A5 *.**** 
.* *. 
.* ANY *. NO 
*. MORE .*... 
*. EXTENTS .* 



PUT *. 


NO 


.* LAST 


COMMAND .* 




*. VOLUME 


. ISSUED .* 




*. 


*. .* 




*. .* 


*. .* 


X 


*. .* 


*YES 


***** 
*CE * 
* B3* 
* * 
* 
IJGGEXTN 


*NO 


X 




X 


**C4******* 




**C5******* 


- * 




* 


SET EOF * 




* RESET 


SWITCH i 




* EOF 


ON * 




* SWITCH 


* 




* 


*********** 




*********** 



« * 

< 1 * 
t * 

**** 



I/O AREAS 
"*. .** 
**YES 



YES .* FEOVD 
....*. =YES 
*. *A2 



****D4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



**[)5******* 

* * 

* SET 

* EOV SW FOR 

* OPEN 

* * 
*********** 

!x 



***** 

*CE * 

* B3* 

* * 



* CURRENT *. YES 
OPERATION A .*... 
*. WRITE .* 



HOLD *. NO .* PUT *. NO 

= YES .* X*. COMMAND .*... 

*A2 .* *. ISSUED .* 



*****G1 ********** 




G3 *. 


♦IJGGNXRC CE* 


*G2 


.* *. 


*-*-*-*-*_*_*_*_* 


CB-E3,F3,H1 


.* PUT *. 


* GET COUNT * 




*. COMMAND .* 


* OF FIRST * 




*. ISSUED .* 


* RECORD * 




*. .* 


***************** 




*NO 


**** ! 






* * .X.......... 






* * *. • . 




* G2* 






**** X 






IJGGFAC1 .*. 




X 


HI *. 




*****H3#*#******* 


.* *. 


****H2********* 


*IJGGWRT1 BZ* 


.* EOF *. NO 


* RETURN TO * 


*_*_*_*_*_*_*_*_* 


*. SWITCH .*... 


....X* CALLING * 


* FREE * 


*. ON .* 


* ROUTINE * 


* TRACK * 


*. -.* 


*************** 


* * 



***************** 



FEOVD *. 


YES 




=YES .* 






*A2 .* 






*. .* 






*. .* 


X 




*NO 


* 


* 






* 1 








* 








**** 


X 






**«i ******* 






* 






SET * 






EOF SW * 






IN CCB * 






* 






*********** 






. IJGGEXTN 




X 






***** 






*CE * 






* 


J3* 







NO 


* 


FEOVD 


. . • * 




= YES 




*. 


*A2 




* 




X 




*. .* 


***** 




* 


*CE * 






* B3* 






* * 












IJGGEXTN 







**H4**#**** 

* * 
SET 

EOF 
SWITCH 

* * 
*********** 



****j4********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



FEOVD 

= YES 

*A2 



PUT 
COMMAND 
ISSUED 



SET 

EOF SW 

ON 

* 

********** 



**** 

* * 

* 2 * 

* * 
**** 



**K5********* 
RETURN TO * 
CALLING * 
ROUTINE * 

************* 
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Chart CE. SDMODFU: With Truncation, GET Macro (Section 9 of 10) 













*BW-G5 
CD-B<t,E3,J3iKl 


****A1* 
* 

* UGGr 
* 
******* 


******** 
* 

>JXRC * 
* 

******** 




****A3********* 

* * 

* IJGGEXTN * 

* * 
*************** 








( 

if***** 

FY * 
rfRITE * 
rrw * 


*B2 
SDMDDFU MACRO 
PARAMETER 

OPTION -- DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 


*x. 






IJGGNXRC ) 

**B1* 

* MOD 

* READA 

* DATA 


X 

.*. 
B3 *. 
.* *. 
.* *. YES 
*.RD0NLY = YES .*.... 


IJGGEXTN 
*****B/ t * 

* SA\ 
...X* MUDl 


********* 

/E * 
JLE * 
iTERS * 


* TO NOP * 


*. *B2 .* 


* REGI 



*********** 



**C1 ******* 
♦SET SLI AND* 

* CC BIT ON * 
IN READ/WRITE 

* DATA CCW * 
* *D2 * 

*********** 



**D1******* 

* SET * 

* COMMAND 
CHAINING BIT 

* OFF IN READ = 

* COUNT CCW * 
*********** 



**01 ******* 

* SET MULT. * 
TRACK BIT 

ON IN READ 
COUNT 

* CCW * 
*********** 



****F i *********** 

* SVC * 
READ 
* COUNT * 

***************** 



*D2 
SLI - SUPPRESS 

LENGTH INDICATOR 
CC - COMMAND CHAINING 



*****G2********** 

* * SVC 7 * * 

* * WAIT FOR * * 
I/O * *. 

COMPLETED * * 



.X* * 



* * 
***************** 



****H1 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



* SAVE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****D3********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 



*****E3********** 

* * 

* GET * 

* ADDRESS OF * 

* DTF TABLE * 

* * 
***************** 



****P3********* 

* SVC 2 * 

* FETCH * 

* $$BDPEN * 
*************** 



*****G3********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****H3********** 

* SET * 

* RECORD * 

* NUMBER IN * 

* SEARCH ARG * 

* TO ZERO * 
***************** 



***************** 



**C4******* 

* SET END * 
OF DTF 

INDICATOR 
FOR OPEN 

* ROUTINE * 
*********** 



*****04 ********** 

* * 

* RESTORE * 

* USER * 

* RCGISTERS * 



*****E4********** 

* * 

* GET * 

* ADDRESS OF * 

* DTF TABLE * 

* * 
***************** 



****P4********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



*****G4********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****H4********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****J4********** 

* SET RECORD * 

* NUMBER * 

* IN SEARCH * 

* ARG TO * 

* ZERO * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 



*****B5 ********** 
♦IJGGNXRC CE* 
*_*_*_*_*_*_*_*_* 

* GET DATA ♦ 

* LENGTH OF * 

* RECORD 1 * 
***************** 



****C5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart CF. 



SDMODFU: 



With Truncation, GET Macro (Section 10 of 10) 



****A1 ********* 

* * 

* IJGGGENM * 

* * 
*************** 



* SET * 

* CONSTANT * 

* TO 256 * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



****A3********* 

* * 

* IJGGFREE * 

* * 
*************** 



.* TRACK *. NO 
HOLD .*... 
♦.SPECIFIED.* 



* DECREASE * 

* RECORD SIZE * 

* BY 256 * 

* * 
***************** 



* FIRST * 

ENTRY AFTER 
*. OPEN .* 



* UPDATE * 

* RECORD SIZE * 

* BY 255 * 

* * 
***************** 



*****P1********** 

* * 

* MOVE BLOCK * 

* OF UP TO * 

* 255 BYTES * 

* * 
***************** 



****S1 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****02********** 

* * 

* MOVE BLOCK * 
X* OF * 

* 256 BYTES * 

* * 
***************** 



* UPDATE * 

* POINTERS BY * 

* 256 * 

* * 
***************** 



**** 

* * 

* 1 * 



****B4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



**++**+*«++ 



**** p 3* ***** *** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



**** A5********* 

* * 

* IJGGFACT * 

* * 
*************** 



IJGGFACT 

*****B5********** 

* GET ADDRESS * 

* OF I/O AREA * 

* AND BLOCK * 

* SIZE FROM * 
♦READ/WRITE CCW * 
***************** 



*****C5 ********** 
*SET DEBLOCKING * 

* CONSTANT WITH * 

* I/O AREA ADDR * 

* AS BEGINNING * 

* OF BLOCK * 
***************** 



*****D5 ********** 

* DECREASE * 

* BLOCK SIZE * 

* BY 1 * 

* * 
***************** 



i*** I •,*«******** 

(.(IMPUTE * 

l.NU 01 II LOCK * 

AOUIU SS * 

AND SI ORE * 

***** ************ 



*F'. 
SOMUDI II MACRO 
PARAMLILK 
OPTION -- DCCISI 
DOLS NUT APPLAR 
IN AN ASSEMBLY 
LISTING. 



.* 
* 
HOLD 



*F4 

.* 

**YES 



*_*_*_*_*_*_*_*_ 



***************** 



****H5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart CG. SDMODFU: With Truncation r PUT Macro 



****A1 ********* 

* IJGGPUT * 

* *A2 * 

* * 
*************** 



SET 

PUT SWITCH 

ON 

* * 

*********** 



**C1 ******* 

* * 

* SET * 
* UPOATE SWITCH * 

* ON * 

* * 
*********** 



*A2 
ENTRY FROM 
PUT MACRO. 



*A4 
SDMODFU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



FEOVD *. YES 
= YES .*.... 

*A4 .* 



.* IS THERE 
A WORK 
*. AREA 



*****P1 ********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****Gi ********** 

* GET ADDRESS * 

* OF OUTPUT * 

* AREA AND * 

* RECORD SIZE * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



****E3********* 

* SVC 50 * 

* ILLEGAL * 

* AFTER FEOV * 
*************** 



****F2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 

X 

*****C4********** 

* * 

* GET ADDRESS * 

* OF WORK AREA * 

* * 

* * 
***************** 



*****04********** 
♦IJGGGENM CF* 
*-*-*_*-*-*_*_*-* 

* MOVE RECORD * 
♦FROM WORK AREA * 
*T0 OUTPUT AREA * 
***************** 



*****E4********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



****F4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart CH. SDMODFU: Without Truncation, GET Macro and CLOSE Routine (Section 1 of 9) 



**** 

* * 

* i * 

* * 
**** 



****A1 ********* 

* IJGBGET * 

* *A2 * 

* * 
*************** 



*A2 
ENTRY FRDM 
GET MACRO 



***** 

*CK * 

* Gl* 

* * 



* 4 * 

* * 
**** 


* 2 * 

* * 
**** 


X 
*****A4********** 
*IJGBWRT1 CR* 
***************** 

* WRITE BLOCK * 

* * 

* * 
***************** 


X 
***** A 5 ********** 
*IJGBNXRC CQ* 
*-*_*-#_*-*_*_*_* 

...* FIND DATA * 

* LENGTH OF * 

* RECORD 1 * 
***************** 


**** 

* * 
*CJ *... 

* F5* .X 




**** X 
IJGBRD1 .*. 





ROONLY 

= YES 

*C5 



IJGBGET X 

*****C2********** 

SAVE USER 



* SAVE USER AND * 


* 


REGISTERS AND * 


* LINKAGE * 


♦POINTER TO SAVE* 


* REGISTERS * 


* 


AREA * 


* * 


* 


* 


***************** 

Ix. .......... . 


***************** 


X 

**D1 ******* 






* * 






* SET UPDATE * 




*D2 


* SWITCH ON * 




CJ-C5,D5 


* * 






* N * 






*********** 






**** l 






* * . 






** *... 






* D2* 






**** X 






.*. 






El *. 


*****££*♦♦♦♦♦♦♦*♦ 


.* *. 


* 


COMPUTE * 


.♦FIRST ENTRY*. YES 


* 


BEGINNING AND * 


*. AFTER OPEN .* 


...X*END ADDRESS OF ♦ 


*. .* 


* 


I/O AREA * 



***************** 



*****Gi ********** 

* * 

* INCREASE I/O * 
♦AREA ADDRESS BY^ 

* RECORD SIZE ♦ 

* * 
***************** 



***************** 



FEOVD 

= YES 

*C5 



.*. 

G2 *. 

.* WAS *. 

END 

OF VOLUME 

. FORCED . 



***** 
*CJ * 
* B5* 



*****C3********** 

* GET * 

* ADDRESS OF * 

* WORK AREA * 

* * 

* * 
***************** 



*****D3********** 
*IJGBGENM CM* 
*_*-*-*-*-*-*-*-* 
♦MOVE RECORD TO ♦ 

♦ WORK AREA ♦ 

* * 
***************** 



***************** 



*****F3*******A*« 

* LOAD 10 * 

* REGISTER WITH ♦ 

* ADDRESS OF ♦ 

* BLOCK ♦ 

* * 
***************** 



****G3********* 

♦ RETURN TO ♦ 
♦PROBLEM PROGRAM^ 

* * 
*************** 



**C4******* 

* SET * 
*FETCH EXTENT * 

* SWITCH * 
* OFF ♦ 

* * 
*********** 



*****04********** 
♦IJGBEXTN CR* 
*-*-*-*_*-*_*_*_* 

♦ FETCH NEXT ♦ 

♦ EXTENT ♦ 

♦ * 
***************** 



* 2 * 

* * 
**** 



♦. .♦ 




***** 




♦ . .♦ 




** * 




♦NO 




* J3^ 

* * 

* 

x! 








X 




X 




IJGBTEST .♦. 




*****K1 ********** 


K2 ♦. 




* 


* 


.♦ ♦. 




♦ SAVE NEW 


4 


.* * 


YES 


♦ADDRESS OF I/O 


* 


*. 2 I/O AREAS 


*.. • . 


♦ AREA 


* 


*. .* 




* 


* 


♦ . .* 




***************** 


*. .* 


X 


• 




*N0 


**** 
* * 


. 




. 


* 3 * 


X 




X 


* * 


**** 




**** 


*#** 


* * 




* * 




* 1 * 




* 4 ♦ 




* * 




* * 




**** 




**** 





_*-*_*_*_* 



***************** 



**** 
IJGBRELA 

*****P4** ******** 
♦IJGBWAIT CM* 



***************** 



***************** 



*****H4**** ****** 
*GET ADDRESS OF * 

* I/O AREA FROM * 

* READ/WRITE ♦ 

* CCW * 

* * 
***************** 



**j4******* 

* SET * 
EOF SWITCH 

IN 
CCB 

* * 
*********** 



***** 
*CJ * 
* Bl* 



*C5 
SDMODFU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*****G5********** 



***************** 



*****H5********** 
♦IJGBWRT CR^ 
*_*_*_*_*_*_*_*_* 

* WRITE RECORD ♦ 

* # 

* * 
***************** 



***** 

♦ CR ♦ 

* CI* 
* * 
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Chart CJ. SDMODFU: Without Truncation, GET Macro (Section 2 of 9) 



.*CL-A4,B4,D't 



*A2 
SDMODFU MACRO 
PARAMETER 

OPTION — DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



IJGBADD2 X 

*****B1 ********** 

* DECREASE * 

* BLOCK SIZE * 

* BY RESIDUAL * 

* COUNT IN * 

* CCB * 
***************** 



**#**d ********** 

* COMPUTE END * 

* OF BLOCK ADDR * 

* FOR SHORT * 

* BLOCK AND * 

* STORE * 
***************** 



*****D1 ********** 

* INCREASE * 

* SHORT BLOCK * 

* SIZE * 

* BY 1 * 

* * 
***************** 



RDONLY 

= YES 

*A2 



*****£ 2********** 
* SAVE * 
BLOCK SIZE * 
IN * 
SAVE AREA * 
v * 

***************** 



.X* 



*****pi ********** 

* SAVE * 

* BLOCK SIZE * 

* IN DTF * 

* TABLE * 

* * 
***************** 



***************** 



IJGBRD3 

*****C3********** 

* SAVE CONTENT * 

* OF SEARCH * 

* ARGUMENT * 

* BUCKET FOR * 

* WRITE RTN * 
***************** 



*****03 ********** 

* GET LOWER * 

* HEAD LIMITS * 

* AND SET * 

* RECORD NO. * 

* TO 1 * 
***************** 



*****E3********** 

* SET * 

* COUNTER TO * 

* 5 TO CHECK * 

* SEARCH * 

* ARGUMENT * 
***************** 

**** 



.*. 


IJGBEXT X 


A4- *. 


**A5******* 


.* *. 


*SET EXTENT * 


EXTENT *. YES 
SWITCH .*.. . • 


* AND FIRST * 


...X* ENTRY AFTER * 


ON .* 


* OPEN SWITCH * 


*. .* 


* OFF * 


*. .* 


*********** 


♦ NO 






**** I 




* * 




*CH *... 




* G2* 




**** 


X 


X 


**Q4******* 


*****B 5 ********** 


* 


♦ IJGBEXTN CR* 


SET EXTENT * 


*_*_*_*_*_*_*-*_* 


SWITCH * 


* FETCH NEXT * 


ON * 


* EXTENT * 



*********** 



HOLD 

= YES 

*A2 



*****Q4 ********** 

* MODIFY * 

* READ/WRITE * 

* COMMAND * 

* CODE TO- * 

* READ DATA * 
***************** 



***** 
*CK * 
* El* 



*****G1 ********** 

* EXCHANGE * 

* I/O AREA * 

* ADDRESSES IN * 

* READ/WRITE * 

* CCW * 
***************** 



* 3 



**** 
UGBLOOP 

*****P3********** 

* GET * 

* CORRESPONDING * 

* CHAR FROM * 
♦SEARCH ARG AND * 
*CCHHR CNTRL FLD* 
***************** 



.♦SEARCH *. 
.* ARG = * 
*. CCHHR CNTRL 
♦. FIELD .* 



* FIRST * 

ENTRY AFTER 
*. OPEN .* 



****Kl *********** 
IJGBWRIT CL 
*_*_*_*-*_*_*_*_* 

WRITE 
* RECORD * 

***************** 



IJGBDONE 

*****H3********** 

* UPDATE ♦ 

* SEARCH ARG * 

* CHAR BY 1 ♦ 

* AND RESTORE * 

* IN SEARCH ARG * 
***************** 



.*SEARCH *. 
.*ARG EXCEED *. NO 
.EXTENT UPPER .*... 
*. LIMIT .* 



*****G4 ********** 

* SET LOWER * 

* HEAD LIMIT * 
X* CHARACTER * 

* IN SEARCH * 

* ARGUMENT * 
***************** 



***** H 4 ********** 



***************** 



**** 

* * 

* 3 * 

* * 
**** 



X 
***** 
*CK * 
* Bl* 



**K4******* 



*********** 



***************** 



FEOVD 

= YES 

*A2 



***** 
*CH * 
* El* 



FEOVD 
SWITCH 

ON 



**E5******* 

* * 
RESET 

EXTENT 
SWITCH 

* * 
*********** 



**P5******* 

* * 
RESET 
FEOV 

SWITCH 

* * 
*********** 



***** 
*CH * 
* B4* 



* 1 * 

* * 
**** 



. IJGBSW03 
X 
***** 

♦ CK * 

* Bl* 
* * 
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Chart CK. SDMODFU: Without Truncation, GET Macro (Section 3 of 9) 



*A1 
CJ-J3.K4 
***** 



****A3********* 

* * 

* IJGBREAD * 

* * 
*************** 



IJGBREAD 

*****B3********** 

* MODIFY * 

* READ/WRITE * 

* COMMAND * 

* CODE TO * 

* READ DATA * 
***************** 



.*. 


*C2 




X 


CI *. 


BRANCH TO— 


**C3******* 


.* *. 


CM-G2 IF RDONLY IS 


* SET * 


.* RETURN *. YES 


NOT SPECIFIED. ■ 


* COMMAND * 


*. TO CLOSE .*.... 


CM-G3 IF RDONLY 


* CHAINING BIT * 


*. ROUTINE .* 


IS SPECIFIED. 


♦OFF IN READ/ * 


*. .* 


**** 


* WRITE CCW * 


*. .* X 




*********** 


*NO ***** 


* 1 * 




* * * 


* * 




* C2* 


**** 




* * 








'. IJGBKETH 






X 






X 


****DL *********** 






*****03********** 


IJGBREAD CK 






* SET SEARCH * 


*_*-*_*_*_*_*_*_* 






* ARGUMENT * 


READ 




*D2 


* BUCKET IN * 


* NEXT * 




CJ-C4.D4 


* DYNAMIC DISK * 


BLOCK 






* FILE ADDRESS * 


***************** 






***************** 


**** '. 








* * 








* * *.. . 








* D2* .X 








**** X 






X 


UGBGETA .*. 




• *. 


El *. 


**E2******* 


L : 3 *. 


.* *. 


* * 


.* *. 


.* SKIP *. YES 


* RESET * 


.* *. 


*. SWITCH .*...... 


• X* SK 


P * 

rcH * 


*- HOLD = YES .* 
*. *D4 .* 


*. ON .* 


* swn 



*D4 
SDMODFU GENERATION 
OPTION ~ DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



. * TRACK 
.X*. IIC1LD 

*. SPECIFIED. 



IJGBGETD X 

**P1******* 

* SET FIRST * 

* ENTRY 

* AFTER OPEN 

* SWITCH 

* ON * 
*********** 



*****G1 ********** 

* * 

* GET * 

* DEBLOCKING * 

* CONSTANTS * 

* * 
***************** 



*********** 



.* 
* 
HOLD 



*04 

.# 
. .* 
*YES 



**G2******* 

* SET ' * 

* FIRST 

* ENTRY AFTER * 

* OPEN SWITCH * 

* ON * 
*********** 



****P3*********** 

* SVC * 
READ 
* DATA * 

***************** 



IJGBHOLD 

****P4*********** 

SVC 35 

* READ * 

RECORD 

* AND HOLD * 

TRACK 

*********** ****** 



* + *+[ I,*********** 

* SVC * 
.X IU AD 
* DA1A * 

******* ********** 



**** P5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****G3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



***** 
*CH * 
* B3* 



***** 
*CH * 
* K2* 
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Chart CL. SDMODFU: Without Truncation, GET Macro (Section 1 of 9) 



****A1 ********* 

* IJGBWRIT * 

*************** 



IJGBWRIT 

*****Q1********** 

* SET SAVED * 

* SEARCH ARC, * 

* BUCKET IN * 

* SEARCH ARG * 

* FIELD * 
ft**************** 



HOLD 

= YES 

*B? 



* PUT 

COMMAND 
*. ISSUED 



**F1******* 

* RESET * 

PUT 
COMMAND 
SWITCH 

* * 
*********** 



*****Gi ********** 

* SET WRITE * 

* DATA COMMAND * 

* CODE IN * 

* READ/WRITE * 

* CCW * 
***************** 



**H1******* 

* SET * 
* COMMAND 

* CHAINING BIT 
♦OFF IN READ/ 

* WRITE CCW * 
*********** 



***** 

* * * 

* A5* 
* * 



ANY 
MORE 
EXTENTS 



*B2 
SDMODFU MACRO 
PARAMETER 

OPTION -- DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LIST ING. 



PUT 
COMMAND 
ISSUED 



**Q3******* 

* SET * 

* COMMAND 
CHAINING BIT 

* ON IN READ/ 

* WRITE CCW * 
*********** 



*****C3********** 



**D2********* 
RETURN TO 

CALLING 

ROUTINL 
************* 



*****£ 2* ********* 
♦IJGBFREE CR* 
*_*_*_*_*_*_*_*_* 

X* FREE TRACK * 

* * 

* * 
***************** 



****F2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



INITIALIZE 


* 


VERIFY CCW 


* 




* 




* 


************** 


** 






* 




* 


* 




..* 3 


* 




* 


* 




**** 


X 




****03*********** 


SVC 


* 


WRITE 




BL( 


DCK 


* 



***************** 



***** 
*CM * 
* Bl* 



**C4******* 

RESET 

EOF 

SWITCH 

* * 

*********** 



SET 

EOV SWITCH 

FOR OPEN 

* * 

*********** 



***** 
*CJ * 
* A5* 
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Chart CM. SDMODFU: Without Truncation, GET Macro (Section 5 of 9) 



*A1 

CL-rD3 

CP-G2.H5 
CR-K3 



*A2 
SDMQDFU MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



****B1********* 

* * 

* IJGBWAIT * 

* * 
*************** 

**** 1 

* * 

** *... 

* Al* .X 




**** X 
IJGBWAIT .*. 

CI *. 
.* *. 
.* I/O *. NO 

*. COMPLETE .* 

*. .* 


*****C2********** 

* * SVC 7 * * 

* * WAIT * * 
...X* * FOR I/O * * 

* * COMPLETED * * 



***************** 



Dl *. 






* 






RETURN 


*. 


NO 


TO 




*.... 


CLOSE .* 




. .* 






*. .* 




X 


*YES 




***** 






*CN * 
* Bl* 

* * 
* 


X 




IJGBSWOF 



**A3******* 

* SET * 
FIRST ENTRY * 
AFTER OPEN * 

SWITCH * 

* OFF * 
*********** 



****A5********* 

* * 

* IJGBGENM * 

* * 
*************** 



*****B4**** ****** 

* * 

* RESTORE * 
X* USER * 

* REGISTERS * 

* * 
***************** 



*****C3********** 

* RESTORE * 

* USER AND * 

* LINKAGE * 

* REGISTERS * 

* * 
***************** 



****D3********* 

* SVC 9 * 

* RETURN TO * 

* $$BOSDCl * 
*************** 



*****D4 ********** 

* * 

* MOVE BLOCK * 

* OF 256 *X 

* BYTES * 

* * 
***************** 



*****E4********** 



***************** 

**** 

* * 

* 3 * 

* * 
**** 

IJGBDECL 

*****C5********** 

* DECREASE * 

* RECORD * 

* SIZE * 

* BY 256 * 

* * 
***** ************ 



YES .*DIFFERENCE * 
......GREATER THAN 

*. .* 



RDONLY 

= YES 

*A2 



UPDATE 

POINTERS 

BY 256 



********* 



l« 2 I/O *. YES 




.* LAST 


AREAS .*... 




*. BLOCK 


*. .* 




*. WRITTEN . 


*. .* 


***** 


* . .* 


*. .* 


*CK * 


*. .* 


*NO 


* CI* 


*YES 




* * 


**** 




* 


* * 
*CK *... 




' xl 


* CI* 






**** 


X 


IJGBKETH X 


IJGBKETH X 


**G1 ******* 


**G2******* 


**G3******* 


MODIFY * 


* MODIFY * 


* RESET 


INSTRUCTION * 


* INSTRUCTION * 


* SWITCH 


AT IJGBTOM * 


*' AT IJGBTOM * 


* TO WRITE 


TO BRANCH * 


* TO NOP * 


* LAST 


IF ONES * 


* * 


* BLOCK 


*********** 


*********** 


*********** 




• 


**** I 
* * . 




X 


* 1 *. .. 




***** 


* * 




*CN * 


**** 


X 


* HI* 


IJGBTOM X 


**H1******* 


* * 


**H3******* 


* 


* 


* 


SET CLOSE * 


IJGBEOFT 


* SET CLOSE 


SWITCH OFF * 




* SWITCH OFF 



**G4******* 

* SET * 
SWITCH 

TO WRITE 
LAST 

* BLOCK * 
*********** 



* UPDATE RECORD * 

* SIZE BY * 

* 255 * 

* * 
***************** 



*****P5********** 

* * 

* MOVE BLOCK * 

* OF UP TO * 

* 255 BYTES * 



****G5********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 



*********** 



*********** 



*****Kl ********** 
♦IJGBFREE CR* 
*_*_*_*_*_*_*_*_* 

* FREE * 

* TRACK * 

* * 
***************** 



*****K3*** ******* 
*IJGBFREE CR* 
*_*_*_*_*_*_*_*_* 

* FREE * 

* TRACK * 

* * 
***************** 
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Chart CN. SDMODFU: Without Truncation, GET Macro (Section 6 of 9) 



*A3 
SDMODFU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 

♦ CM * 

* Dl* 



Dl *. 
* FETCH *. 
EXTENTS * 
SWITCH 

ON .* 



HOLD 

=YES 

*A3 



*****D1 ********** 

* MODIFY * 

* READ/WRITE * 

* COMMAND CODE * 

* TO READ * 

* DATA * 
***************** 



*****£! ********** 

*IJGBFREE CR* 
*_*_*_*..*_*_*_*_* 

* FREE * 

* TRACK * 

* * 
***************** 



**P1******* 

* SET FETCH * 

fcXTENTS 

SWITCH 

OFF 

* * 
*********** 



3 


*.x. 




* 


**** X 




.*. 




D2 * 




* 


.* 


ERREXT 




SPECIFI 


*« 


*A3 



USER *. 
ERROR RTN . 
.SPECIFIED.* 



*****C3 ********** 

* GET ADDR * 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 

'. **** 
. * * 
..X* 8 * 
* * 
**** 



ERKOK RTN 
.SPECIFIED. 



.X* 



* 3 * 

* * 
**** 



*****B5********** 

* GET ADDR * 
OF WLR * 

ERROR * 
ROUTINE * 

* * 

***************** 

* **** 

* * 

..X* 7 * 

* * 
**** 



C5 



*. 



D3 



*. 



.* DATA 
CHECK 
*. ERROR 



*****D4**** ****** 

* GET ADDR * 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 



X 
***** 
*CQ * 
* C2* 



***** 
*CQ * 
* A2* 



.X* 6 * * 



DATA 

CHECK 

fcRROR 



**E3******* 

* SET OFF * 
UNRECOV 

I/O ERROR 
INDICATOR 

* * 
*********** 



.* RDONLY * 


. \ 


CES 


*. =YES 


.* 




*. *A3 .* 






*. .* 






*. .* 




X 


*NO 




***** 


**** 




*CP * 


* * . 




* B3* 


* 8 *. .. 




* * 


* * . 




* 


**** 






JGBRDER X 






*****P4********** 




* SAVE MOD 


* 




* REGISTERS 


* 




* AND RESTORE 


* 




* USER REGS 


* 





* 6 * 

* * 
**** 





*IJGBEXTN 


CR* 




*- 


.*_*_*_*_*. 


.*_*_* 




* 


FETCH 


* 




* 


NEXT 


* 




* 


EXTENT 


* 




***************** 


* 


**** 




**** 


CM 


-G?* 


* 


* * 


CM 


-G4* 


*. . 


..* 1 * 




* 


* * 


* * 




**** X 


**** 




JGBEOFT .*. 








HI * 








.* 


*. 






* EOF 


*. 




*. 


REC 


JRU 


.* 



.X* 



*****G3********** 

* GET * 

* RESIDUAL * 
COUNT FROM * 

CCB * 



***************** 



ERREXT 

SPECIFIED 

*A3 



********** 



****** 



***** 

*CQ * 

* C2* 

* * 



***** 
*CQ * 
* B3* 



*****H4********** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****G5********** 

* PUT I/O * 

* AREA ADDR * 
.X* IN PARAMETER * 

* LIST * 

* * 
***** ************ 



*****H5********** 

* * 

* GET ADDR * 

* OF PARAMETER * 

* LIST * 

* * 
***************** 



ERROPT 

SPECIFIED 

*A3 



**** 

* * 

* 2 * 

* * 
**** 



**K2******* 

* SET ON * 

SHORT 
RECORD 
SWITCH 

* * 
*********** 



IJGBDECR X 

*****j3********** 

* DECR RESIDUAL * 

* COUNT BY RCD * 

* SIZE UNTIL * 

* RESULT IS * 

* ZERO OR NEG- * 
***************** 



RESULT *. 
ZERO OR 
•NEGATIVE .* 



X 

***** 
*CP * 
* Bl* 



*********** 



***** 
*CQ * 
* C2* 
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Chart CP. SDMODFU: Without Truncation, GET Macro (Section 7 of 9) 



*A1 
CN-H4,H5 
***** 



***** 
*CN * 
* E4* 



SDMODFU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



#****Bl ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



IJGBRDER X 

*****B3********** 

* SAVE MOD * 

* REGS AND * 

* RESTORE USER * 

* REGS * 

* * 
***************** 



ERREXT 

SPECIFIED 

*A4 



.X* 



*****C2********** 
* RESTORE * 

MODULE RfcGS * 

AND SAVE *. 

USER REGS * 



******* 



*****Q2********** 

* RfcSTORE * 

* MODULE REGS * 
X* AND SAVE *. 

* USER REGS, * 

* * 
***************** 



X 

***** 
*CQ * 
* A2* 



*****D3********** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****F1 ********** 

* RESTORE * 

* MODULE REGS * 

* AND SAVE * 

* USER REGS * 

* * 
***************** 



* WAS 

ERROR DATA 
*. CHECK . 



*****E2********** 

* RESTORE MOD * 

* REGS AND * 
X* SAVE USER * 

* REGS * 

* * 
***************** 



***** 
*CO * 
* C2* 



***** L3«"» *****♦♦♦ 

* * BRANCH * ♦ 

* * TO USER ♦ 

* * ERROR ♦ * 

* * ROUTINE * * 

* * * * 
***************** 



*****C4 ********** 

* PUT I/O * 

* AREA ADDR * 
X* IN PARAMETER * 

* LIST * 

* * 
***************** 



*****D4***# ****** 

* * 

* GET ADDR * 

* OF PARAMETER * 

* LIST * 

* * 
***************** 



F3 *. 


*****P4 ********** 


.* *. 


* 


SAVE USER * 


.* ERREXT *. NO 


* 


REGISTERS * 


*. SPECIFIED .* 


...X* 


AND RESTORE * 


*. *A4 .* 


* 


MODULE * 


*. .* 


* 


REGS * 


*. .* 


***************** 


*YES 




X 
***** 
*CQ * 


X 




* B2* 


*****G3********** 




* * 


* SAVE USER * 




* 


* REGISTERS * 




IJGBSKIP 


* AND RESTORE * 






* MOD REGS * 







***************** 



***************** 



IJGBRET .*. 

H4 *. 
.* WAS 
.* ERROR 
...X*. DATA 
*. CHECK 



IJGBRTRI 

****H5*********** 

SVC 
* RETRY * 
...X I/O 
X * OPER * 



****jl********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 



******* ********** 



***** 
*CM * 
* Bl* 



***** *IGNORE 
*CQ * 
* A2* 

* * X 

* ***** 

IJGBRDWR *CQ * 
* C2* 



****K4 ********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 
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Chart CQ. SDM0DFU: Without Truncation, GET Macro (Section 8 of 9) 



***** 
** * 

* Al* 



*A1 
CN-C5 
CP-C2,D2,J3 



*B1 
CN-C5,G2,J2 t K2,K4 
CP-E2,J3 



IJGBRDWR .*. 


A2 *. 


.* *. 


.* CURRENT *. YES 


*. OPERATION .*... 


*. A WRITE .* 


*. .* 


*. .* 


*N0 


**** 


* * 




*CP *.. 




* F4* 




**** 




IJGBSKIP X 


**B2******* 


* SET * 


* SKIP * 


* SWITCH * 


* ON * 


* * 


*********** 


**** 




* * 




** *.. 




* Bl* 




**** > 





***** 
*CN * 
* HI* 



*****D1 ********** 

* * 

* SAVE * 

* MODULE *X 

* REGISTERS * 

* * 
***************** 



*****£}********** 



HOLD 

= YES 

*K1 



.* READ *. 
NO .* ONLY 
...*. SPECIFIED 
*. *K1 



SVC 36 
FREE 
TRACK 



*****£ 2** ******** 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 



************* 



*****Fl ********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****C3********** 
♦IJGBFREE CR* 

*_*_*_*_*_*_*_*_* 

* FREE * 

* TRACK * 

* * 
***************** 



FEOVD 
= YES 
*K1 



**** /\ 5********* 

* * 

* IJGBNXRC * 

* * 
*************** 



IJGBNXRC X 

*****B5********** 

* FIND DATA * 

* LENGTH. SET * 
*SILI AND CHAIN * 

* BITS. SET TO * 

* READ COUNT * 
***************** 



****C5********* 

* SVC 
READ 
* COUNT * 

***************** 



*****D5********** 



***************** 



*. 




.* 


*. 


****F5**#****** 


2 * 


NO 


* 




2 *. NO 


* RETURN TO 


I/O 


*. ... * 






I/O .*.... 


* CALLING 


AREAS .* 




* 




AREAS .* 


* ROUTINE 


.* 






* 


. .* 


*************** 


*. .* 


X 






*. .* X 




*YES 


***** 
*CR * 






*YES ***** 
*CL * 






* CI* 






* A4* 






* * 






X * * 
**** * 




X 


IJGBEXTN 






* * IJGBCHCK 


.*. 








* 3 * 




3 *. 








* * 




*. 








**** 




HOLD * 


NO 










= YES 


* 











*****Gl ********** 
♦IJGBNXRC CQ* 
*_*-*_*_*_*_*_*_* 

* READ COUNT OF *X. 

* RECORD 1 * 

* * 
***************** 



WRITE 

.* 

**YES 



****jl********* 

* RETURN * 

* . TO CALLING * 

* ROUTINE * 
*************** 



*K1 
SDMODFU MACRO 
PARAMETER OPTION 



FEOVD 

= YES 

*K1 



**K2******* 

* SET * 

EOF 

SWITCH 



***** 
*CR * 
* CI* 



.* PUT 
COMMAND 
*. ISSUED 



**** 

* * 

* 2 * 



***** 

*CR * 

* CI* 

* * 



FEOVD 

= YES 

*K1 



PUT 
COMMAND 
ISSUED 



PUT 
COMMAND 
ISSUED 



*****J3********** 
*IJGBWRIT CL* 
*_*_*_*_*_*_*_*_* 

* FREE * 

* TRACK * 

* * 
***************** 



FEOVD 

= YES 

*K1 



X IJBCHCK*. 



*NO 

.X 

.IJGBEXTN 



***** 
*CR * 
* CI* 



***** 

*CL * 

* A4* 

* * 



****J5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart CR. SDMODFU: Without Truncation, GET Macro (Section 9 of 9) 



♦ Al 
CQ-K3,H4 
CQ-E3.K2 
CH-J5 



♦ A2 
SDMOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



♦♦♦♦A3********* 

* 1JGBFREE * 

♦ ♦ 
*************** 



♦♦♦♦A4****^*** 

♦ ♦ 

♦ IJGBWRT ♦ 

♦ ♦ 
*************** 



****Bl ********* 

♦ * 

♦ IJGBEXTN * 

♦ ♦ 
*************** 





IJGBFREE .♦. 


IJGBWRT X 




B3 ♦ . 


**B4******* 


****B2********* 


.♦ ♦. 


* MODIFY 


RETURN ♦ 


NO .♦ TRACK ♦. 


♦ CCW 


TO CALLING +X.. 


♦. HOLD .♦ 


♦ FOR 


ROUTINE ♦ 


X ♦. SPECIFIED. ♦ 


* WRITE 


*************** 


. *. .♦ 


♦ 



♦*** 






♦ * 






♦♦ 


♦ .. 




♦ Al' 






♦♦♦♦ 


X 




.♦. 




CI * 


.1 




.* 


RDONLY 


♦. 


= fES 


♦ . 


* 


\2 



* SAVE * 

* MODULE * 

* REGISTERS * 

* ♦ 
***************** 



*****EL ********** 

* RESTORE * 

* USER ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



*****P1 ♦♦♦♦♦♦♦♦♦♦ 

♦ GET * 

♦ ADDRESS ♦ 

♦ OF DTF * 

♦ TABLE ♦ 

♦ ♦ 
***************** 



****Gl ********* 

* SVC 2 ♦ 

* FETCH ♦ 

* $$BOPEN * 
*************** 



* RESTORE * 

* MODULE ♦ 

* REGISTERS * 

* * 
***************** 



****jl ********* 

* RETURN * 

* TO CALLING ♦ 

* ROUTINE * 
*************** 



* SAVE * 
X* MODULE * 

* REGISTERS * 

* ♦ 
***************** 



**D2******* 

* SET END * 
OF DTF 

INDICATOR 
FOR OPEN 

♦ ROUTINE * 
*********** 



*****££♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ RESTORE ♦ 

♦ USER ♦ 

♦ REGISTERS * 

***************** 



*****P2********** 

♦ GET * 

♦ ADDRESS * 

♦ OF DTF * 

♦ TABLE * 

♦ * 
***************** 



****G2^+^**^+« 

♦ SVC 2 ♦ 

♦ FETCH * 

♦ $*BOPEN ♦ 
*************** 



*****H2********** 

♦ ♦ 

♦ SAVE ♦ 

♦ USER ♦ 

♦ REGISTERS * 

♦ * 
***************** 



*****J2********** 

♦ * 

♦ RESTORE * 

♦ MODULE * 

♦ REGISTERS ♦ 

♦ * 
***************** 



****« 2****^*^^ 

* RETURN ♦ 

* TO CALLING * 

* ROUTINE * 
*************** 



CURRENT ♦. 
OPERATION .♦ 
. A WRITE .♦ 



*****03********** 

* * * * 

* ♦ SVC 36 ♦ * 

* * FREE * * 

* * TRACK ♦ ♦ 

* ♦ ♦ ♦ 
***************** 



***« E3********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 



**** 

X 
*****P3********* 
* 

* KESTUKL 

* utnr.K 

* LENGTH 

****************: 



*********** 



*****C4 ********** 

♦ MOVE DATA ♦ 

♦ LENGTH ♦ 

♦ TO SAVE ♦ 

♦ BUCKET ♦ 

♦ * 
***************** 



HOLD 

SPECIFIED 

♦A2 



♦♦**C5^+****+^ 

* * 

* IJGBWRT1 ♦ 

* * 
*************** 



IJGBWRT1 

***** 05********** 

♦ SET ♦ 

* WRITE * 
,.X+ COMMAND ♦ 

♦ CODE * 

* * 
***** 



HOLD ♦. NO 
SPECIFIED .♦.. 
*A2 .♦ 



****P4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



NO .* 


RDONLY 


. .*. 


= YES 


*. 


*A2 



VERIFY 

= YES 

♦A2 

♦ . .♦ 

♦ . .♦ 

♦ YES 


♦ . 
.♦ 
.♦ 


YES .♦ WRITE 
...♦. SPEC 
♦ . 

♦ . .♦ 
X ♦. .♦ 
**** *N0 

* * 

* 1 * 

* * 
♦♦♦♦ 


* 
.♦ 


!♦ 


♦ 


.♦ WRITE ♦. 

SPEC 

*. .♦ 

♦ . .♦ 

♦ . .♦ 

♦NO 














X 

s*H3****** 

NOP READ 
COUNT 
FIELD 


**** 
* 
* 
♦ 
* 
♦ 


X 
*****H4 ********** 
♦IJGBFREE CR+ 
*_*_*_*_*-*_*_*_* 

♦ FREE ♦ 

♦ TRACK ♦ 

♦ * 


♦ 
♦ 
♦ 


X 

****H5********* 

RETURN 

TO CALLING 

ROUTINE 

**** *********** 



***************** 



*****J3********** 

* ♦ 

* SET CHAIN ♦ 

♦ AND SILI ♦ 

♦ BITS ♦ 



**************** 



*****K3********** 

* * # * 

* ♦ SVC ♦ ♦ 

* * WRITE ♦ ♦ 

* ♦ BLOCK ♦ ♦ 

* ♦ * ♦ 
***************** 



***************** 



****j4********* 

♦ RETURN ♦ 

♦ TO CALLING ♦ 

♦ ROUTINE ♦ 
*************** 



***** 

♦ CM ♦ 

♦ Al* 
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Chart: CS. SDMODFU: Without Truncation, PUT Macro 



****Al********* 

* IJGBPUT * 

* *A2 * 

* * 
*************** 



IJGDPUT X 

**B1******* 

*SET SWITCH * 

* FOR PUT 
* COMMAND 

* ISSUED 

* * 

*********** 



**d******* 

* * 

* SET UPDATE 
* SWITCH 

* ON 

* * 
*********** 



*A2 
ENTRY FROM 
PUT MACRO. 



* 1 * 

* * 
**** 



***** B2* ********* 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 



****C2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



Dl 



*. 



*. 



D2 



.* FEOVD *. YES .* FEOV *. 

*. = YES .* X*. SWITCH .* 

*. *F3 .* *. ON .* 

*. .* *. .* 

*. .* *. .* 

*NO *NO 

lx.. ! 

x 
.*. 
El *. 
. * IS *. ****£2********* 

.* THERE A *. NO * RETURN TO * 

*. WORK .* X* PROBLEM * 

*. AREA ^* * PROGRAM * 

*. .* *************** 

*. .* 
*YES 



****E3********* 

* SVC 50 * 

* PUT ILLEGAL * 

* AFTER FEOV * 
*************** 



RDONLY 

= YES 

*F3 



*****Gi ********** 

* •* 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****H1 ********** 

* GET ADDRESS * 

* OF CUTPUT * 

* AREA AND * 

* RECORD SIZE * 

* * 
***************** 



*****J1 ********** 

* * 

* GET ADDRESS * 

* OF WORK * 

* AREA * 

* * 
***************** 



*****K1 ********** 
♦IJGBGENM CN* 
*-*-*-*-*-*_*_*-* 

* MOVE RECORD * 

* TO CUTPUT * 

* AREA * 
***************** 



*****F2********** 

* SAVE * 

* USER * 
X* REGISTERS * 

♦AND POINTER TO * 

* SAVE AREA * 
***************** 



SDMODFU MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 
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Chart CT. CNTRL, RELSE Macros: Fixed-Length Record Modules 



****A2********* 

* IJGXCTRL * 

* *A3 * 

* * 
*************** 



*A3 
ENTRY FROM 
CNTRL MACRO. 



NOTE — 

X = 
F - INPUT FILE WITH 

TRUNCATION 
C - INPUT FILE WITHOUT 

TRUNCATION 
E - OUTPUT FILE WITH 

TRUNCATION 
- OUTPUT FILE WITHOUT 

TRUNCATION 
G - UPDATE FILE WITH 

TRUNCATION 
B - UPDATE FILE WITHOUT 

TRUNCATION 



.X* 



*****B3********** 
* * SVC 7 * * 

WAIT FOR * * 
I/O * *. 

COMPLETED 



* * 



* * 
******* 



*A4 
ENTRY FROM 
RELSE MACRO. 



NOTE— 

F - INPUT FILE WITH 

TRUNCATION 
C - INPUT FILE WITHOUT 

TRUNCATION 
G - UPDATE FILE WITH 

TRUNCATION 
B - UPDATE FILE WITHOUT 

TRUNCATION 



*****C2********** 

* SET SYMBOLIC * 

* UNIT ADDRESS * 

* FOR FILE IN * 

* CONTROL * 

* CCB * 
***************** 



*****D2********** 

* * 

* SET COMMAND * 

* CODE IN * 

* CONTROL CCW * 

* * 
***************** 



*****£ 2********** 

* * 

* GET ADDRESS * 

* OF CONTROL * 

* CCB * 

* * 
***************** 



****F2********#* 

SVC 

* CONTROL * 

SEEK/ 

* RESTORE * 

***************** 



****G2##******* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****A5********* 

* IJGXRELS * 

* *A4 , * 

* * 
*************** 



IJGXRELS X 

*****B5********** 

* SET CURRENT * 

* ADDRESS OF * 

* IOAREA WITH * 

* END OF BLOCK * 

* ADDRESS * 
***** ************ 



****C5********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart DA, SDMODVI: GET Macro (Section 1 of 6) 



*DB-F5,H3 
DC-H2,J2 
DE-K5 



****A1 ********* 

* IJGVG030 * 

* *A2 * 

* * 
*************** 



*A2 
ENTRY FROM 
GET MACRO. 



IJGVG040 XX 

****A3*********** 
IJGVG250 DD 
*_*_*_*_*_*_*_*_* 

READ 
* DATA * 



IJGVG030 

*****Q2**** ****** 

* SAVE USLR * 
. YES * REGISTLRS AND * 
.* X*POINTER TO SAVE* 

* AREA * 



****** 

**** 
* 
,J5 * 
* * 
**** 
IJGVG05 



********* 



*A4 
SDMODVI MACRO PARAMETER 
OPTION. DECISION OOES 
NOT APPEAR IN ASSEMBLY 
LISTING 



************ 



*** 



***************** 



TED .*. 
.* 
.* 
* 
ES 



***** Q/ t ********** 

* * * * 

* *SVC 7 WAIT * * 
X* * FUR I/O * *. 

* *COMPLETIQN * * 

* * * * 
***************** 



ANY 

MORE 

EXTENTS 



**** 

* * . 

* 1 *... 

* * .x 


* * 

'. . *DF-C1»D2,C3 

X 
IJGSG030 .*. 

D2 *. 
.* FIRST *. 
,*ENTRY INTO *. NO 
X*. ROUTINE .*.... 


.* 
*. 
* 


* 


**** X 

.*. 
Dl *. 
.* *. 
.* SPANNED *. NO 
*. SPECIFIED .*... 


X 

.*. 

D3 *. 

,* * 

END OF 

FILE 


*. *A4 .* 
*. .* 
*. .* 
*YES 


< *. .* 
*. .* 

*. .* X 
*YES ***** 

♦ DC * 

* Fl* 
* * 

* 


'*. .* 
*. .* 

*N0 


X 

.*. 

El *. 

.* *. 

.* SPANNED *. NO 

*. SPECIFIED .*... 

*. .* 


IJGVG080 

X 

**E2******* 

* * 

♦TURN ON FIRST* 

* ENTRY SWITCH * 

* * 


.* 
*. 
* 


X 

.*. 

E3 *. 

,* * 

ERROPT 

SPECIFIED 

*A4 



IJGSG400 X 

**Fl******* 

* RESET ALL * 
* SPANNED * 

* PROCESSING * 
SWITCHES EXCEPT 

* SKIP * 
*********** 



**Gl******* 

* * 

* TURN ON * 
* SPANNED FIRST * 

* TIME SWITCH * 

* * 
*********** 



**H1******* 



*********** 



*****jl ********** 

♦IJGSG700 DE* 
*_*_*-*-*-*-*-*-* 
♦INITIALIZE RCD * 

* LENGTH AND * 

* SEGMENT PTR * 
***************** 



*********** 



*****P2********** 

* * 

* SET SEARCH * 
♦ARGUMENT RECORD* 
♦NUMBER TO ZERO * 

* * 
***************** 



*****G2********** 

* * 

* SET RECORD * 
♦NUMBER IN COUNT* 

* FIELD TO ZERO * 

* * 
***************** 



**H2+****** 

♦ * 

* TURN ON * 
*MULTIPLE TRACK 

* BIT IN READ * 

* COUNT CCW * 
*********** 



***** 
♦DC * 
* Al* 



ERREXT 

SPECIFIED 

♦ A4 



**E5******* 

* * 
SET EOV * 
SW FOR 

OPEN ♦ 

* * 
*********** 

.*DE-B1 
**** 



**** 
IJGVGUNR .*IJGVG312 
F5 *. 
.* *. 
.* *. YES 

...X*. UNRECOVERABLE.*.... 
*. ERROR .* 



**** 

* * 

* 5 * 

* * 
**** 



**G4******* 

* RESET * 
♦UNRECOVERABLE* 

* I/O ERROR * 
* INDICATOR * 

* * 
*********** 



.♦ WRONG ♦. 
.LENGTH RECORD. ♦ 
♦. ERROR .♦ 



**** * * 

**** 
UGVGERR . 
H3 



***** 
*DB * 
* Bl* 



**** 

* -* 

* 6 ♦ 

* * 
**** 



.* SPANNED *. NO 
. SPECIFIED .*... 
♦. *A4 .* 



♦YES 
.'. *D8-F5,H3 



X 

***** 

♦ DC ♦ 

♦ Al* 



YES .* WAS END 
...♦. OF VOLUME 
*. FORCED . 



***** * 

*DE ♦ 

* B1*IJGVG3L2 



****J3*********** 

IJGVG320 DE 
*_*_*_*_*_*_*_*_* 

READ COUNT OF 
* NEXT RECORD * 

***************** 



* * * 
**** 
IJGSGSKI 



**** 

* * 

* 5 * 

* * 
**** 



**K4******* 

* * 
NO * TURN ON 

*.... * SPANNEO SKIP 
* SEGMENT 

* SWITCH * 
X *********** 

***** . 

*DC * 

* A1*IJGVG070 .X 

* * X 

* **** 

* * 

* 2 * 

* * 
**** 



*****J5********** 
♦GET ADDRESS OF ♦ 

* USER WRONG ♦ 

* LENGTH RECORD * 

* ERROR ROUTINE ♦ 

* * 
***************** 



***** 

♦ DB ♦ 

* CI* 



196 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart DB. SDMODVI: GET Macro (Section 2 of 6) 



***** 

*DA * 
* H3* 



IJGVGUSR X 

*****Bl ********** 

* GET ADDRESS * 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 



*DA * 
* J5* 

**** 



*****A2********** 

* SAVE MODULE * 

* REGISTERS AND * 

* RESTORE USER * 

* REGISTERS * 

* * 
***************** 



****B2*********** 
IJGVG320 DE 
*-*-#-*_*-*_*_*_* 

READ COUNT 
NEXT RECORD * 



* 4- * 

* * 
**** 



IJGVGUSE X 

*****A4**** ****** 

* SAVE MODULE * 

* REGISTERS * 

* AND RESTORE * 
♦USER REGISTERS * 

* * 
***************** 



*****Q3********** 

* SAVE USER * 

* REGISTERS AND * 
♦RESTORE MODULE * 

* REGISTERS * 



ERREXT 

SPECIFIED 

*A5 



*A5 
SDMODVI MACRO 
PARAMETER OPTION. 
DECISION DOES NO! 
APPEAR IN ASSEMBLY 
LISTING. 



*****B5********** 

* PUT I/O * 

* ADDRESS IN * 
X* PARAMETER * 

* LIST * 



***** 

♦ DC * 

* Al* 



RDONLY 

= YES 

*A5 



IJGVGUSE 

*****Oi ********** 

* SAVE MODULE * 

* REGISTERS * 

* AND RESTORE ♦ 
*USER REGISTERS * 

* * 
***************** 



ERREXT 

SPECIFIED 

*A5 



♦ SVC 
RETRY 
♦ READ ♦ 
***************** 



..X*DA ♦ 
♦ B3^ 
**** 

*****E2*****^**** 

* PUT I/O * 

♦ AREA ADDRESS * 
X* INI PARAMETER ♦ 

♦ LIST * 

* * 
***************** 



************ 



C3 *. 
♦ WAS 

ERROR 
A DATA 

CHECK 



*****C4**^******* 

* * 

* GET I/O * 

* AREA * 

* ADDRESS * 

* * 
***************** 



***************** 



*****£ 5********** 

* * 

* GET ADDRESS * 

* OF PARAMETER ♦ 

* LIST * 

* * 
***************** 



****£3********* 

* SVC 50 * 

* CANCEL * 



********* 



*****04********** 

* * BRANCH TO ♦ * 

* ♦USER ERROR ♦ * 

* * ROUTINE ♦ ♦ 

* * * * 

* * * * 
***************** 



ERREXT ♦. NO 
SPECIFIED .*... 
*A5 .* 



.X* 



***** ^5********** 

* SAVE USER * 

* REGISTERS ♦ 
AND RESTORE * 

* MODULE ♦ 

* REGISTERS ■. * 
***** ************ 



*****PX ********** 



***************** 



*****P2********** 

* * 

* GET ADDRESS * 

* OF PARAMETER * 

* LIST ♦ 

* * 
***************** 



*****G1 ********** 

♦ ♦ BRANCH * * 

♦ * TO USER * ♦ 

♦ ♦ ERROR * ♦ 
ROUTINE 





*****P4** ******** 


F5 *. 




♦ SAVE USER ♦ 


.* *. 




♦ REGISTERS ♦ 


YES .* SPANNED *. NO 




♦ AND RESTORE * 


...*. SPECIFIED .*.... 




* MODULE ♦ 


*• .* . 




* REGISTERS * 


* . .* 




***************** 


X *. .* X 
***** * ***** 
*DA * *DA * 
♦ J4* * A3* 
* * * * 
* * 




X 

.*. 
G4 *. 


IJGSGSK1 IJGVG040 


****G3*********** 


****G5*********** 


IJGVG320 DE 


.* ♦. 


IJGVG320 DE 


c- *_*_*_*_*_*_*_* 


SKIP .♦ ERET ♦. IGNORE *-*-*-*-*-*-*-*-* 


READ COUNT X.. 


*. CPTION .♦. 

♦ . .♦ 


X READ COUNT 


NEXT RECORD * 


♦ NEXT RECORD * 



* * 



* * 



***************** 



***************** 



ERREXT *. NO 
SPECIFIED .*... 
*A5 . ♦ 



.X* 



*****H2^******** 

* SAVE USER ♦ 

* REGISTERS ♦ 
AND RESTORE *. 

* MODULE * 

* REGISTERS * 
***************** 



***************** 



***** 

♦ DC * 

* Al* 



*****j2********** 

* SAVE USER * 

* REGISTERS * 
X* ANO RESTORE ♦ 

♦ MODULE * 

♦ REGISTERS ♦ 
***************** 



♦♦♦♦^♦♦♦♦♦♦♦♦♦♦+ 
IJGVG320 DE 
*_*_*_*_*_*_*_*_* 

READ COUNT 

* NEXT * 

RECORD 

***************** 



SPANNED *. NO 


.* ERROR * 


SPECIFIED .*.... 


*. A DATA 


*A5 .* 


*. CHECK -* 


♦ . .♦ 


♦ . .♦ 


♦ . .♦ X 


*. .* 


*YES ***** 


*N0 


*DA ♦ 




♦ A3^ 




X ♦ ♦ 




***** * 




♦DA ♦ IJGVG040 


X 


* J4* 


.*. 


* * 


J4 ♦. 


* 


.♦ *. 


IJGSGSKI 


.* * 




♦.UNRECOVERABLE 




*. ERROR .* 



* J5*********** 

SVC ♦ 
RETRY 

READ * 



***************** 



***** 
*DA ♦ 
♦ B3^ 



**** K 4**#****** 

* SVC 50 ♦ 

* CANCEL * 

* * 
*************** 
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Chart DC. SDMODVI: GET Macro (Section 3 of 6) 



IJGVG070 X 

*****Ai ********** 

* GET ADDRESS * 

* OF INPUT * 

* AREA FROM * 

* READ DATA CCW * 

* * 
ft**************** 



*****m ********** 

* SbT BLOCK * 

* LENGTH IN * 

* DTF * 

* DEBLOCKING * 

* CONSTANTS * 
***************** 



*****C1 ********** 

* UPDATE INPUT * 
♦AREA ADDRESS BY* 
♦4 TO AVAILABLE * 

* AREA FOR USER * 

* AND STORE * 
***************** 



*****Di ********** 

* COMPUTE * 

* ADDRESS OF * 

* END OF INPUT * 
♦AREA AND STORE ♦ 

* * 
***************** 



*****Ei ********** 

* SET RECORD * 

* LENGTH TO ♦ 

* ZERO IN DTF ♦ 

* DEBLOCKING ♦ 

* CONSTANTS * 
***************** 

**** 

* * 
*DA ♦ 

* D2^ 
«*** 

IJGVG080 

*****PX ********** 

* INCREASE ♦ 

* INPUT AREA ♦ 

* ADDRESS BY ♦ 

* RECORD SIZE * 

* * 
***************** 



B2 *. 
.* IS ♦. 

THERE A *. NO 
WORK AREA .*... 



C2 *. 
* ARE ♦. 
RECORDS *. YES 
BLOCKED .♦..X 



*E2 
DA-E3,G5,K3 
DB-B2,G5 



UGVG120 .*. 

A3 *. 

.♦ NECES ♦. 

.♦ TO READ ♦. NO 

...X*. ANOTHER .♦... 

♦. RECORD .♦ 



.♦ 



**H3******* 

* SET ON 
NECESSARY 

TO READ 
NEW RECORD 

* SWITCH 
*********** 



*****C3********** 

* EXCHANGE * 

* I/O AREA * 

* ADDRESS IN * 

* READ DATA ♦ 

* CCW ♦ 
***************** 



***** 03 ********** 

* SAVE OLD ♦ 

* INPUT * 

* AREA * 

* ADDRESS * 

* * 

***«******: 



.* END OF 
BLOCK 
♦. REACHED 



*****Hi ********** 

* SAVE UPDATED ♦ 

♦ INPUT AREA ♦ 

♦ ADDRESS AND * 

* RECORD LENGTH * 



******** 



******* 



NO . 


* 


WORK ♦ 


. . •*« 




AREA 


• 


* 


SPECIFIED.* 
♦ . .* 


X 




*. .* 


**** 




*YES 


* 






L ♦ 




. 


* 




X 


**** 




**** 

* * 

* 3 * 

* * 
**** 



NO .* THERE 
...♦. A WORK 
*. AREA 



ARE 
RECORDS 
BLOCKED 



***** 

*DA * 

* A3^ 

* * 



IJGVG040 

IJGVG131 x 

**«2******* 

* RESET * 

♦ SWITCH 
* TO READ 

♦ BLOCK 

* * 
*********** 



************** 



SPANNED ♦. 

SPECIFIED .♦ 

♦ Af> .♦ 



*N0 ***** 
**** *df * 

* * * bi* 
* DE * * * 

* Jl* * 
***IJGSG410 



****A4********* 

* * 

* IJGSG710 ♦ 

* * 
*************** 



IJGSG710 X 

*****[)/, ********** 

* GET ADDRESS * 

* OF INPUT * 

* AREA AND ♦ 
♦COMPUTE SEGMENT* 

* LENGTH * 
***************** 



*****C4 ********** 

* COMPUTE NO. * 

* OF BYTES TO ♦ 

* MOVE AS * 
♦SEGMENT LENGTH ♦ 

* MINUS 4 ♦ 
***************** 



*****D4** ******** 



************** 



*****E4 ********** 

* UPDATE RECORD * 
♦POINTER IN WORK* 

♦ AREA WITH ♦ 
♦SEGMENT LENGTH ♦ 
*+ STORE IN DTF * 
***************** 



*****P4**** ****** 

♦ INCREASE ♦ 

♦ RECORD LENGTH ♦ 

♦ IN WORK AREA ♦ 

♦ BY SEGMENT ♦ 

♦ LENGTH ♦ 
***************** 



*****G4** ******** 
♦UPDATE ADDRESS ♦ 

♦ OF INPUT AREA ♦ 

♦ BY SEGMENT ♦. 

♦ DESCRIPTOR * 

♦ WORD ♦ 
***************** 



♦ A5 
SDMODVI MACRO 
PARAMETER OPTION. 
DECISION DOES NOT 
APPEAR IN ASSEMBLY 
LISTING. 



IJGVG210 X 

*****F5********** 

♦ GET ADDRESS ♦ 

♦ OF WORK AREA ♦ 

♦ INPUT AREA, ♦ 

♦ NUMBER OF * 

♦ BYTES TO MOVE * 
***************** 



IJGVG220 X 

*****G5**++^^++ 

♦ MOVE RECORD ♦ 

♦ OR SEGMENT TO ♦ 

♦ WORK AREA AND ♦ 
♦UPDATE POINTER * 

♦ * 
***************** 



* RESTORE * 

* USER * 

* REGISTERS * 

* ' * 
***************** 



*****j3********** 

* LOAD IOREG ♦ 

* WITH ♦ 

♦ RECORD ♦ 

♦ ADDRESS ♦ 



SPANNED 

SPECIFIED 

♦A5 



***** 



*** 



X 

***** 

♦DA ♦ IJGVG050 

♦ B3+ 



****«3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM ♦ 
*************** 



****K5+******** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart DD. SDMODVI: GET Macro (Section 4 of 6) 



**** 
* * 

* 6 * 

* * 
**** 



****A1 ********* 

* * 

* IJGVG250 * 

* * 
*************** 



GET BLOCK * 

SIZE FROM * 

DTF TABLE * 

* 

************** 



CI *. 

* BLOCK * 

SIZE GT 

DATA 
LENGTH 



*****01 ********** 

* SET DATA * 

* LENGTH IN * 

* COUNT FIELD * 

* WITH MAX * 

* BLOCK SIZE * 
***************** 



IJGVG262 .*. 

A2 *. 
.* TRACK * 
YES .* UPPER 
...*. LIMIT 
*. REACHED 
*. .,* 
*. .* 



* EXTENT * 

UPPER LIMIT 
*. REACHED .* 



* J4* 
**** 
I JGVG260 



* 1 



**** 
IJGVG261 X 

****P1 *********** 

IJGVG320 DE 
*_*_*_*_*_*_*_*_* 

READ COUNT 
OF 



.* CURRENT * 
.RECORD FIRST 
*.ON TRACK .* 



FIRST *. 
READ 
.OPERATION.* 



**E2******* 
*SET SWITCH * 

* TO INDICATE 

NOT FIRST 

* READ 

* * 

*********** 



**P2******* 

* SET MULT * 
TRACK BIT 

OFF IN READ 
COUNT CCW 

* * 
*********** 



.* ANY *. 

MORE 

*. EXTENTS .* 



**B3#****** 

* * 
SET EOV 
SWITCH 

FOR OPEN 

* * 
*********** 



**** 

* * 

* 3 * 



Gl *. 
.* COUNT *. 
.♦FIELD DATA 
. LENGTH = 



*****Hl ********** 

* SET COUNT * 

* FIELD DATA * 

* LENGTH TO * 



***************** 



FEOVD 

= YES 

*A5 



KL *. 

.* ONE * 

. * BYTE KEY 

IN EOF 

*. RECORD 



* 3 



**** 
IJGVG272 

*****G2********** 

* UPDATE SEARCH * 

* ARGUMENT WITH * 

* COUNT FIELD * 

* ID * 

* * 
***************** 



*****H2********** 

* SET DATA * 

* LENGTH FROM * 

* COUNT FIELD * 

* IM READ DATA * 

* CCW * 
***************** 



****j2*********** 



IJGVG310 

**D3******* 

* RESET * 

* SWITCH TO 
...X* INDICATE NOT 

* FIRST READ 

* OPERATION * 
*********** 



**E3******* 

* SET MULT. * 
TRACK BIT 

ON IN READ 
COUNT CCW 

* * 
*********** 



*****F3********** 

* SET COUNTER * 

* TO 4 TO * 

* CHECK CCHH * 

* FROM COUNT * 

* FIELD ID * 
***************** 



*#***G3********** 

* SET COUNT * 

* FIELD ID IN * 

* SEARCH * 

* ARGUMENT * 

* BUCKET * 
***************** 



*****H3********** 

* * 

* GET HEAD * 

* LOWER * 

* LIMITS * 

* * 
***************** 



SVC 

READ 

DATA 



*. 



********* 



****«2**#****** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



IJGVG350 

*****j3 ********** 

* GET * 

* CORRESPONDING * 

* CHAR FROM * 
*SRCH ARG BUCKET* 
*AND CTRL FIELD * 
***************** 



**** 

* * 

* 5 * 

* * 
**** 



.*SEAKCH * 
ARG CHAR 
= UPPER 
. LIMIT 



*A5 
SDMODVI MACRO 
PARAMETER OPTION - 
DECISION- DOES NOT 
APPEAR IN THE 
ASSEMBLY LISTING. 



*****B5********** 

* SET HEAD * 
LOWER LIMIT * 

CHAR IN * 

SEARCH ARG * 

* BUCKET * 
***************** 



.X* 



*****C4********** 

* UPDATE * 

* SEARCH * 

* ARG CHAR * 

* BY 1 AND * 

* STORE * 
***************** 



*****Q4 ********** 

* SET UPDATED * 

* SEARCH ARG * 

* BUCKET IN * 

* SEARCH ARG * 

* FIELD * 
***************** 



*****E4** ******** 

* SET RECORD * 

* NUMBER TO * 

* ZERO IN * 

* SEARCH ARG * 

* * 
***************** 



.* EXTENT *. NO 
. UPPER LIMIT .*... 
*. EXCEEDED .* 



***** 
*DE * 
* Bl* 



**** 

* * 

* 4 * 



*****C5********** 



**** **** 
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Chart DE. SDMODVI: GET Macro (Section 5 of 6) 



*A2 
SDMODVI MACRO PARAMETER 
OPTION. DECISION DOES NOT 
APPEAR IN ASSEMBLY LISTING. *A3 

ENTRY FROM 
RELSE MACRO. 



RDGNLY *. YES 
= YES .*.... 

*A2 .* 



***** C 1 ******* ** * 

* * 

* SAVE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****D1 ********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****£!********** 



***************** 



****P1********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



*****Gl ********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****Hl ********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****B 2* ********* 

* * 

* SAVE * 
X* MODULE * 

* REGISTERS * 

* * 
***************** 



**C2******* 

* SET END * 
OF EXTENT ■ 
INDICATOR 
FOR OPEN 

* ROUTINE * 
*********** 



*****D2********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
*********** 



*****£ 2********** 



******** 



****P2********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



*****G2********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****H2********** 

* SAVE USER * 

* REGISTERS * 

* AND POINTER * 

* TO SAVE * 

* AREA * 
***************** 



* FILE *. N 
ASSIGNED TO .*. 
*. IGNORE .* 



*****j2********** 

* SET RECORD * 
NUMBER IN * 

SEARCH * 
ARGUMENT * 

* TO ZERO * 
***************** 



.X* 



**** *« 2* *** ****** 

* INITIALIZE * 

* COUNT FILLD * 

* WITH SEARCH * 

* ARGUMENT * 

* CCHHR * 
***************** 



****Q3********* 

* IJGVG320 * 

* * 
*************** 



****A4********* 

* IJGVG370 * 

* *A3 * 

* * 
*************** 



IJGVG370 

*****B/ t ********** 

* SET CURRENT * 

* ADDRESS UF * 

* I/O AREA WITH * 

* END-OF-BLOCK * 

* ADDRESS * 
***************** 



***************** 



**03******* 

* MODIFY * 
READ DATA 
CCW WITH 

READ COUNT 

* CCW * 
*********** 



****E3*********** 



***************** 



*****G3********** 



* * 



* * 



SVC 7 

* * WAIT FOR * * 

* * I/O * * 

* *COMPLETION * * 
***************** 



**H3******* 



*********** 



****J3********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 



SPANNED 

SPECIFIED 

*A2 



**E4******* 



*********** 



****A5********* 

* * 

* IJGSG700 * 

* * 
**** *********** 



INITIALIZE * 

RECORD LENGTH * 

TO 4 BYTES * 

* 

**************** 



***** c 5********** 



***************** 



***** 05********** 



***************** 



***** £5********** 

* INITIALIZE * 

* POINTER TO * 

* SEGMENT AND * 

* STORE IN DTF * 

* TABLE * 
***************** 



****P4********* 

* RETURN TO * 
♦PROBLEM PROGRAM* 

* * 
*************** 


**** F5********* 

* RETURN TO 

* CALLING 

* ROUTINE * 
**** *********** 




**** 

* * 

* 1 *. .. 

* * . 
**** x 

.*. 




G5 *. 
.* *. 
, .* FEOVD *. 
*. = YES 

*. *A2 .* 



.* WAS *. 

.* END OF *. 

VOLUME 

*. FORCED .* 



** j 5******* 

* * 
RESET 
FEOV 

SWITCH 

* * 
*********** 



****** 5*** ******* 

* IJGVG320 DE* 
*_*_*_*_*_*_*_*_* 

* READ COUNT * 

* OF RECORD 1 * 

* * 
***************** 



***** 
*0D * 
* El* 



**** 

* * 

* 1 * 

**** 



***** 
*DA * 
* A3* 
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Chart DF. SDMODVI: Get Macro (Section 6 of 6) 



* GET ADDRESS * 

* OF INPUT * 

* AREA * 

* * 
***************** 



NULL *. YES 

SEGMENT ...... 

.* 

*. .* 

*. .* X 

♦NO ***** 

♦ OA * 

* D2* 



IJGSG430 X 

*****A3********** 

♦ UGSG710 DC* 
*_*_*_*_*_*_*_*_* 

♦MOVE SEGMENT TC* 

* WORK AREA, * 
♦ADJUST LNG.PTR * 
***************** 



*****B3********** 

* * 

* GET ADDRESS * 

* OF INPUT * 

* AREA * 

* * 
***************** 



♦ A4 






SDMODVI 


MACRO PARAMETER 


OPTION. 


DECISION 


DOES 


NOT APPEAR IN ASSEMBLY 


LISTING 


**** 

* * 

* 3 * 

* * 
**** 

X 




IJGSG805 .*. 






84 *. 






* * 




.* 


WLRERR 


♦ . NO 


*. 


= NAME 


.* 


*. 


*. .♦ 
♦ . .* 
♦YES 


* 



.* PREVIOUS 
RECORD 
♦. SKIPPED 



* RESET SKIP 
* SEGMENT 

* SWITCH 

* * 

*********** 



*****Gi ********** 
♦IJGSG700 DE* 
*_*_*_*_*_*_*_*_* 

.* INITIALIZE * 
* RECORD LENGTH * 
♦AND SEGMENT PTR* 
***************** 



♦NO 


***** 




♦ DA ♦ 




* D2* 




* * 




♦ 


X 


IJGSG030 


.*. 




E2 *. 




.* * 




.♦SEGMENT IN 


♦ . YES 


. SEQUENCE 


.♦.. .. 



***♦ 

* * 

* 1 * 

* * 
**** 



UGSG425 

**J1 ******* 

* RESET ♦ 

♦ SPANNED 
..X^ FIRST 

♦ ENT RY 

♦ SWITCH * 
*********** 



ERROPT 
= YES 
♦ A4 



IJGSG800 

*****G2*^*+*^^ 
♦IJGSG710 DC* 
*_*_*_*_*_*_*_*_* 

♦ MOVE SEGMENT ♦ 

♦ TO WORK AREA, ♦ 

♦ ADJUST LENGTH ♦ 
***************** 



*****H2**^******* 

* GET ADDRESS * 

* OF WORK * 

* AREA AND * 

* INPUT AREA * 

* * 
***************** 



* WORD TO ♦ 

* WORK AREA * 
***************** 



LAST/ONLY : 

SEGMENT 

.PROCESSED.^ 



*****D3****^^*** 
* 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****E3********** 

* LOAD RECSIZE ♦ 

* REGISTER WITH ♦ 

* RECORD LENGTH * 

* FOR USER * 

* * 
***************** 



****P3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



IJGSG810 

*****C4********** 

* GET ADDRESS * 

* OF USER ♦ 

* WRONG LENGTH * 

* RECORD ERROR * 

* ROUTINE * 
***************** 



IJGSG910 X 

*****H3******^** 
♦IJGSG700 DE* 
*_*_*_*_*_*_*_*_* 

* INITIALIZE * 

* RECORD LENGTH * 
♦SEGMENT POINTERS 
***************** 



ERROR *. 
SEGMENT 
.1ST/ONLY .♦ 



*****£ 5********** 

* * 
♦GET ADDRESS OF * 

* USER ERROR ♦ 

* ROUTINE * 

* * 
***************** 



*****04*« ******** 

* LOAD RECSIZE * 

* REGISTER * 

* WITH RECORD * 

* LENGTH FOR * 

* USER * 
***************** 



*****E4 ********** 

* SAVE MODULE * 

* REGISTERS AND * 

* RESTORE USER * 

* REGISTERS * 

* * 
***************** 



ERREXT 

= YES 

*A4 



*****G4 ********** 

* LOAD ADDRESS * 

* OF WORK * 

* AREA IN * 

* REGISTER L ♦ 

* * 
***************** 



***** F5********** 

♦ MOVE ADDRESS ♦ 

* OF WORK AREA * 
.X* TO PARAMETER ♦ 

♦ LIST * 

* * 
***** ************ 



*****G 5** ******** 

* PUT ADDRESS * 

* OF PARAMETER * 

* LIST IN * 

* REGISTER 1 * 

* * 
***** ************ 



**** 

* * 

* 1 * 



*****H4********** 

* * BRANCH TO * * 

* * USER * * 

* * ERROR * ♦ 

* * ROUTINE * * 

* * * * 
***************** 



*****J4** ******** 

* LOAD MODULE * 

* REGISTERS AND * 

* SAVE USER * 

* REGISTERS * 

* * 
***************** 



***** 
*DA * 
* D2* 



RDONLY 

= YES 

♦ A4 



**+**)<•;********** 



***************** 
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Chart DG. SDMODVO: PUT Macro (Section 1 of 11) 



*DH-H2 
DK-F1 
UQ-K't 



****A1 ********* 

* IJGVP030 * 

* *A2 * 

* * 
*************** 



RDONLY 
= YES 

*H2 



IJGVP030 

***#*B2********** 

* SAVE USER * 

* REGISTERS AND * 
...X* POINTER TO * 

* SAVE AREA * 



***************** 



**A3******* 

* * 
*TURN ON FIRST* 

*REC0RD ON FIRST* 
*VOLUME SWITCH* 

* * 
*********** 



**** 

X 
*#***B3********** 
*SET DATA LENGTH* 

* INDICATOR IN * 

* DTF BUCKET TO * 

* ZERO * 

* * 
***************** 



***************** 



SPANNED 

SPECIFIED 

*H2 



**** 

* * 

* 3 * 

* * 
**** 



**E2******* 



*FIRST ENTRY*. NO 


* 


TURN ON * 


INTO ROUTINE .*.... 


* 


FIRST TIME * 


*. .* 


* 


SWITCH * 


*. .* 




* * 


*. .* X 




*********** 


*YES **** 






* * 






* 1 * 






* * 






**** 






X 




X 


**Fi******* 


*****F2********** 


* * 


*SET DATA LENGTH* 


TURN ON * 


* 


BUCKET IN DTF * 


FIRST TIME * 


* 


TABLE TO * 


SWITCH * 


* 


ZERO * 



*********** 



***************** 



**** 

* * 

* 2 * 

* * 
**** 



**Hl******* 



*********** 



**jl******* 



*********** 



FEOVD 

= YES 

*H2 



*H2 
SDMODVO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLY 
LISTING. 



FEOVD 

= YES 

*H2 



**K2******* 



*********** 



*****E3********** 

*IJGVP530 DP* 
*_*_*_*_*_*_*_*_* 

* FETCH NEW * 

* EXTENT * 

* * 
***************** 



*****P3********** 

*IJGVP120 DJ* 
*_ *_*_*_*_*_*_*_* 

* INITIALIZE * 

* DEBLOCKER * 

* LIMITS * 
***************** 



*****G3********** 



***************** 



**H3******* 



*********** 



J3 

.* 

' SPA....,_ 
SPECIFIED 



*NO ***** 
*DO * 
* Bl* 
X * * 

**** * 

* * 

* 3 * 

* * 
**** 



***************** 



*****C4 ********** 

* * 

* GET CURRENT * 

* ADDRESS OF *X 

* IOAREA * 

* * 
***************** 



SAVE CURRENT * 

RECORD LENGTH * 

IN DTF TABLE * 

* 

********* 



******* 



NO .* SPANNED 
,..*. SPECIFIED 

*. *H2 



*****G^**** ****** 

* * 

* SET CONTROL * 
*FIELD IN IOAREA* 

* TO ZERO * 

* * 
***************** 



.*. 

H4 *. 

.* BLOCK *. 

* SIZE GT 

CURRENT 

*- RECORD . 

♦.SIZE .* 

*. .* 

*NO 



*****j4** ******** 

* * 
♦MODIFY CURRENT * 

* RECORD LENGTH * 
♦WITH BLOCK SIZE* 

* * 
***************** 



*****K4 ********** 

* INCREASE * 
*CURRENT IOAREA * 

* ADDRESS BY * 
♦CURRENT RECORD * 

* SIZE * 
***************** 



FEOVD 

= YES 

*H2 



***** D5********** 
*IJGVP530 DP* 
*_*_* _*_*_*_*_*_* 

* FETCH NEW ♦ 

* EXTENT * 

* * 
***************** 



***** £5********** 

♦ IJGVP120 DJ* 
*-*-*-*-*-*-*-*-* 

♦ INITIALIZE ♦ 

♦ DEBLOCKER * 

♦ LIMITS * 
***************** 



***** p5********** 



***************** 



**G5******* 



*********** 
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Chart DH. SDMODVO: Put Macro (Section 2 of 11) 



* i * 

* * 
**** 



IJGSPCHO X 

* INCREASE * 

* DATA LENGTH * 

* BY CURRENT * 

* RECORD SIZE * 

* AND STORE * 
***************** 



.* DATA *. 


.* *. 


.♦LENGTH + 4 *. NO 


.* OUTPUT 


*. GT TRACK .*.... 


*. BLOCK 


♦.CAPACITY .* 


♦.EXCEEDED . 


*. .* 


*. .* 


♦ . .♦ X 


*. .♦ 


*YES **** 


*YES 


* * 




* 1 * 




* * 




**** 
X 
IJGVP200 .*. 




X 


D2 *. 


**03******* 


.♦ *. 


* SET ON 


.* BLOCKING *. NO 


* SWITCH FOR 


*. SPECIFIED .*.... 


* OUTPUT BLOCK 


*. .* 


* EXCEEDED 


*. .* 


* 


*. .* X 


*********** 


*YES ***** 




*DK * 




* Bl* 




* * 




* 


Ix.... 


IJGVP230 X 


IJGVP210 X IJGVP060 .*. 



*****E2********** 

* DECREASE DATA * 

* LENGTH BY * 
♦CURRENT LOGICAL* 

* RECORD SIZE ♦ 

* AND RESTORE ♦ 
***************** 



**G2^***^** 

* SET ON * 

* SWITCH FOR * 
*TRACK CAPACITY 

* OVERFLOW ♦ 

* * 
*********** 



*****H2**^***^^* 
♦IJGVP520 DP^ 
*_*_*_*_*_*_*»*_* 

X^ INITIALIZE ♦ 
♦TRACK CAPACITY ♦ 
* * 

***************** 



«■ «**#«* «* ««** * 



***************** 



*♦♦♦♦ 

♦ DJ ♦ 

* Gl* 
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Chart DJ. SDMODVO: PUT Macro (Section 3 of 11) 



*A5 
SDMODVO MACRO 
PARAMETER OPTION 
DECISION DOES NOT 
APPEAR IN 
ASSEMBLY LISTING. 





**** 






* * 






* 1 * 






* * 






**** 






X 






.*. 






Bl *. 






.* *. 






♦TRUNCATION 


♦ . 


♦" 


SPECIFIED 


.* 




*. 


* 




*. .* 






*. .* 






*NO 




**** 




* 


* 


♦ DU- 


F3 


* 


*. . 


DK- 


D5 


* 


* * 






**** 






IJGVP090 X 




*****C1 ******* 


*** 


* 


UPDATE 


* 


* 


DATA 


* 


* 


LENGTH BY 4 


* 


* 


AND R 


ESTORE 


* 



IJGVP100 

**B2******* 
* RESET * 

* SWITCH 
. ..X* FOR 

* TRUNCATION : 



****** 



***************** 



**** 

* * 

* 2 * 



*****03 ********** 

* GET ADDRESS * 

* OF DATA ARuA * 

* IN I/O * 

* AREA * 

* * 
********* ******** 



_*_*_*_* 

* MOVE CURRENT * 

* DATA I/O AREA * 
' * TO OTHER AREA * 

***************** 



**** 

* * 

* 4 * 

* * 
**** 



El *. 
.* DATA *. 
LENGTH GT ♦ . NO 
TRACK .*.. 
.CAPACITY 



*. 



• ♦ 



*****pi ********** 

♦IJGVP520 DP* 
*_*,.*_*_*_*_*_*_* 

* REINITIALIZE * 

* TRACK * 

* CAPACITY * 
***************** 

**** 

* * 
*DH * 

* H3* 
**** 

IJGVP080 

*****G1 ********** 
♦CALCULATE SPACE* 

* LEFT ON TRACK * 

* FOR DEVICE * 

* ASSIGNED * 

* * 
***************** 



IJGVP110 

****E2*********** 
IJGVP360 DL 

*_*_*_*_*_*_*_*_* 

WRITE 
* RECORD * 

***************** 



F2 *. 

.* *. 

I/O AREAS 

**. .*" 
*. .* 
*NO 



*****G2********** 
♦IJGVP150 DM* 
*_*_*-*-*-*_*_*_* 

* WAIT FOR * 

* I/O * 
COMPLETION 



****** 



********** 



* 3 



**** 
IJGVP120 

*****D3********** 

* GET ADDRESS * 

* OF NEXT * 

* AVAILABLE I/O * 

* AREA AND * 

* STORE * 
***************** 



*****E3********** 

* CALCULATE * 

* CURRENT * 

* DATA ADDRESS * 

* AND STORE * 

* * 
***************** 



*****F3********** 

* CALCULATh * 

* END OF * 

* OUTPUT AREA * 

* ADDRESS * 

* AND STORE * 
***************** 



*****G3********** 

* INITIALIZE * 

* CAPACITY * 

* OF OUTPUT * 

* AREA * 

* * 
******* 



TRACK 
CAPACITY 
.EXCEEDED 



.* WORK *. YES 

AREA .*..X, 

♦.SPECIFIED.* 



***** H3** ******** 

* * 

* SET DATA * 

* LENGTH * 

* TO ZERO * 

* * 
***************** 



*, 4 * 

* * 

**** 



*NO 


**** 




* 


. 


* 3 


X 


* 


**** 


**** 


* * 




* 2 * 




* * 




**** 







,* 


TRACK 


* 


YES 


* 




CAPACITY 








'* 


EXCELDED 
*. .* 
*. .* 
♦ NO 

X 


.* 


X 

***** 
*DK ♦ 
♦ Bl* 
* * 
* 
IJGVP230 


IJGVP130 .*. 










C4 *. 










* * 








.* 


RETURN 


'* 


YES 


* 




TO CLOSE 




*.'... 




'* 


ROUTINE 
*. .* 
*. .* 
*NO 

X 

.*. 

D4 *. 

.* * 


.*' 


X 

***** 

*DT * 

* B2* 

* * 

* 

IJGVP331 


NO 


,* 


FEOVD 


* 




...* 




= YES 




.* 




** 


*A5 


.* 





WAS 

EOV 

FORCED 



SPANNED *. NO 
SPECIFIED .*... 
*A5 .* 



**** p 5********* 

♦ RETURN ♦ 

♦ TO CALLING ♦ 

♦ ROUTINE * 
**** *********** 



X 
***** 
*DK * 
* G2* 



***** 
*DK ♦ 
* B3* 
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Chart DK. SDMODVO: PUT Macro (Section U of 11) 



.* OUTPUT 
AREA 
*. EXCEEDED 



**ci******* 

* RESET * 

* SWITCH 
FOR OUTPUT 

* AREA 

* EXCEEDED * 
*********** 



*****Dl ********** 
*IJGVP520 DP* 
*-*_*-*_*_*_*_*_* 

* REINITIALIZE *X. 
♦TRACK CAPACITY * 

* * 
***************** 



***** 
*DH * 
* B3* 



WORK *. 
AREA 
.SPECIFIED.* 



*****B2********** 
*UGVP440 DL* 
*_*_*_*_*_*_*_*_* 

*MOVE DATA FROM * 

* WDRK AREA TO * 

* OUTPUT AREA * 
***************** 



**** 

* * 

* 1 * 



*****C2********* 

* SAVE ADDRESS 

* OF NEXT 

* AVAILABLE 

* RECORD IN 

* OUTPUT AREA 
**** ************ 



*****D2********** 

* COMPUTE * 

* LENGTH OF * 
♦AVAILABLE SPACE* 

* REMAINING IN * 

* OUTPUT AREA * 
***************** 



*DJ * 
* G4* 
**** 
IJGSP130 



SDMODVO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN 
ASSEMBLY LISTING. 



B3 *. 

END 
OF 
TRACK 

**. .** 
*NO 



**** 

* * 

* 3 * 

* * 
**** 



**B4******* 

* * 
RESET END 
OF TRACK 

SWITCH 

* * 
*********** 



***♦ 

* * 

* 3 * 

* * 
**** 



A5 *. 
♦5/MORE * 

BYTES 
LEFT ON 

TRACK 



**B5******* 

* * 
*TURN ON TRACK* 

* TRUNCATION * 
* SWITCH * 

* * 
*********** 



♦TURN ON TRACK* 

* TRUNCATION * 

* SWITCH * 



***** 
*DJ * 
* CI* 



.* TRACK 
. CAPACITY 
♦.EXCEEDED 



X 
***** 
*DH * 
* E3* 

* * 



IJGVP060 
-IJGVP260 X 

**Pl******* 

* RESET * 

* SWITCH FOR 
* TRACK 

* CAPACITY 

* EXCEEDED * 

*********** 



***** 
*DG * 
* A4* 



SPANNED 

SPECIFIED 

*A4 



*H1 
DJ-F4.G4 
DP-G3 



***************** 



*****H2********** 

* LOAD IOREG * 

* WITH ADDRESS * 

* OF AVAILABLE * 

* OUTPUT AREA * 

* * 
***************** 



*****J2********** 

* LOAD VARBLD * 
♦WITH LENGTH OF * 
♦AVAILABLE SPACED 

* REMAINING IN ♦ 

* OUTPUT AREA * 
***************** 



****K2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



.* OUTPUT *. 

BLOCK 

♦.TRUNCATED.* 



***************** 



F2 *. 


**|. )+***** + 


F't *• 


*«**«P5***** 


.* *. 


♦ HfSLT * 


. * * . 


* 




.* SPANNED *. YES 


* uuicur * 


.* END *. NO 




GET 


*. SPECIFIED ...... 


* BLOCK *... 


♦. Or RECORD .* 


...X* 


I/O AREA 


♦ . .* 


* 1KUNLAI1UN * 






AUURLSS 


* . .* . 


* SWITCH + 


*. .* 


♦ 




*. .# X 


*********** 


*. .* 


<■♦* 


+ » * ***** * 


*NO **♦* 




*YES 






**** * * 










* * * i * 










. ..* * * * * 








X 


....... ...X. * HI* **** 








♦ ♦♦♦* 


**** 


• 00 * 


IJGVP310 X 


.*. 


IJGSP110 X 




♦ c?+ 


*****G2********** 


G3 *. 


**G4******* 




* ♦ 


* * 


.♦5/MORE *. 


* RESET * 




* 


* RESTORE * 


► .♦BYTES LEFT ♦. YES 


♦FI.RST RECORD * 




UGSPUVj 


* USER * 


.X*. IN OUTPUT .♦..X 


* ON VOLUME * 






* REGISTERS * 


♦. AREA .♦ 


* SWITCH * 






* * 


♦ . .* 


* * 







********** 



**H3******* 

* TURN ON * 
SWITCH FOR 
TRUNCATION 

OF OUTPUT 

* BLOCK * 
*********** 



*****H4********** 



***************** 



****j4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart DL. SDMODVO: PUT Macro (Section 5 of 11) 



****A1 ********* 

* * 

* IJGVP360 * 

* * 
*************** 



WRITE 

SWITCH 

ON 



*****C1 ********** 
*IJGVP150 DM* 
*_*_*_*_*_*_*_*_* 

* WAIT FOR * 
*I/Q COMPLETION * 

* * 
***************** 



*****A2********** 

* SET CONTROL * 

* FIELD IN * 

* OUTPUT AREA * 

* TO ZERO * 

* * 
***************** 



*A3 
SDMODVO MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN ASSEMBLY 
LISTING. 



*****Di ********** 

* * 

* EXCHANGE * 

* OUTPUT AREA * 

* ADDRESSES * 

* * 
***************** 



*****£!********** 

* * 

* PICK UP * 

* DATA * 

* LENGTH * 

* * 
***************** 



*****F}*«******** 

* SET SEARCH * 

* ARGUMENT * 

* BUCKET IN * 

* SEARCH * 
*ARGUMENT F I CL * 
***************** 



*****Gl ********** 
*IJGVP560 DN* 
*_*_*_*_*_*_*_*_* 

* INCREASE RCD * 

* NO. IN SEARCH * 

* ARG BCKT BY 1 * 
***************** 



*****H1 ********** 

* SET RECORD * 

* ADDRESS * 

* IN COUNT * 

* FIELD IN * 

* OUTPUT AREA * 
***************** 



*****J1 ********** 

* SET KEY * 

* LENGTH AND * 

* DATA LENGTH * 

* IN COUNT * 

* FIELD * 
***************** 



*****K1 ********** 

* I NI T I At IZE * 

* BLOCK LLNGTH * 
♦FIELD IN OUTPUT* 
*AREA WITH DATA * 

* LCNGTH * 
***************** 



C2 *. 
* WAS 
f.OV 
rORCED 



*****02******* 

* INCRLASE 

* DATA 

* LENGTH 

* BY ONE 
* 
***********#** 



*****£ 2********* 

* SET DATA 

* LLNGTH IN 

* WR ITL CCW TO 

* BLOCK LENGTH 

* PLUS 8 
**************** 



SPANNED 
SPIClf ILD 

*A3 



**** 
IJGVP380 

****G2********* 

* SVC 
WRITE 
* RECORD * 

***************** 



**H2******* 



****[]/, ********* 

* * 

* IJGVP450 . * 

* * 
*************** 



****A5********* 

* IJGVP440 * 

* * 
*************** 



UGVP440 X 

*****[)5*** ******* 

* GET ADDRESS * 

* OF OUTPUT * 

* AREA AND * 

* WORK AREA * 

* * 
***************** 



IJGVP450 X 

*****C5********** 

* GET NUMBER * 

* OF BYTES * 

* TO BE * 

* MOVED * 

* * 
***** ************ 



* 3 *. .. 

* - * 
**** 

IJGVP460 X 

***** 05********** 

* DECREASE * 

* NUMBER OF * 

* BYTES BY * 

* 256 * 

* * 
***************** 



*****E4 ********** 

* MOVE * 

* BLOCK * 

* OF 256 *X. 

* BYTES * 

* * 
***************** 



*****F4***« ****** 

* * 

* UPDATE * 

* PCINTERS * 

* BY 256 * 

* * 
***************** 



* 3 * 

* * 
**** 



TURN ON 

SWITCH FOR 

WRITE 

* * 

*********** 



****j2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



.* SAVE 


*. NO 




*. COUNT 


.*..X 




*. 


* 




*. .* 






*. .* 


X 


*YES 


**** 




* 






* 2 












**** 


IJGVP390 X 




**H3******* 


* 


* 


* RESET SAVL 


* 


* COUNT 


* 


* SWI 


rcH 


* 





NO .* RESULT 



UGVP470 X 

*****F5********** 

* MOVE * 

* BLOCK OF * 

* UP TO * 

* 255 BYTES * 

* * 
***************** 



****G5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*********** 



***** J3********** 

* STORE * 

* COUNT * 

* FOR POSSIBLE * 

* REREAD * 

* * 
***************** 



*****K3********** > 

* STORE ADDRESS * 

* OF EXTENT * 

* FOR POSSIBLE * 

* REOPEN * 

* * 
***************** 



* 1 * 

* * 
**** 
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Chart DM. SDMODVO: PUT Macro (Section 6 of 11) 



****A1********* 

* * 

* IJGVP150 * 

* * 

*************** 
**** 



IJGVP 
YES . 



##*##C1 ********** 

* * SVC 7 * * 

* * WAIT * * 

* * FOR I/O * *. 

* * COMPLETED * * 



* * 



* * 



***************** 



SPANNED *. NO 
SPECIFIED .*... 
*A5 .* 



**F1 ******* 

* * 
SET ON 

REREAD OK 
SWITCH 

* * 
*********** 



**Gi******* 

* * 

RESET 

WRITE 

SWITCH 

*********** 



.* ERROPT 


*. YES 


. SPECIFIED 


.* 




*. *A5 


* 






*. .* 








*. .* 






X 


*NO 






**** 


**** 






* 


* . 






* 3 


2 *.X. 






* 


* 






**** 


****~ 








X 








****J1 ********* 




RETURN TO 




* 




CALLING 




* 




ROUTINE 




* 





**** 

* * 

* 3 * 

* * 
**** 



ERREXT *. NO 
SPECIFIED .*... 
*A5 .* 



SDMODVO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLY 
LISTING. 



* 2 * 

* * 
**** 



SPANNED 
SPECIFIED 

*A5 



**** 

* * 

* 6 * 

* * 
**** 



**C2******* 

* RESET * 

♦UNRECOVERABLE* 

* I/O ERROR * 

* INDICATOR * 



SPANNED ♦ . YES 
SPECIFIED .♦... 
*A5 .* 



**** 

* * 

* 5 * 

* * 
**** 



**D3******* 

* * 

* SET OFF 

* READ OK 

* SWITCH 

* * 
*********** 

**** 

* * 

* 5 * 



USI'R *. 

iUJUTINI 

.spr.cn i Li). • 



**** 

* * 

* 6 * 

* * 
**** 



SPANNED 
SPECIFIED 

*A5 



**** 

* * 

* 2 * 



**** 

* * 

* 5 * 



.* *. YES 








♦.UNRECOVERABLE.*.. .. 








*. ERROR .* 








*. .* 






**** 


*. .* X 






* * 


*NO **** 






* 7 * 


* * 






* * 


* 4 * 






**** 


* * 








**** 








X 








.*. 






X 


D4 *. 


*****D5********** 


.* *. 


* 


* 


BRANCH * * 


.* SPANNED *. NO 


* 


* 


TO USER * * 


*. SPECIFIED .*.... 


* 


* 


ERROR * * 


*. .* 


* 


* 


ROUTINE * * 



*****F2********** 

* SAVE * 

* MODULE * 

* REGISTERS *X 

* AND RESTORE * 

* USER REGS * 
***************** 



*****G2********** 

* * 

* GET ADDRESS * 

* OF USER ERROR * 

* ROUTINE * 

* * 
***************** 



*****G3#********* 

* SAVE * 

* MODULE * 

* REGISTERS AND * 

* RESTORE USER * 

* REGS * 
***************** 



*****H3********** 

* GET * 

* ADDRESS * 

* OF USER ERROR * 

* ROUTINE * 

* * 
************ 



ERREXT 
SPECIFIED 

*A5 • . 



****H4** ******* 

* RETURN TO * 
♦CALLING ROUTINE*X. 

* * 
*************** 



*****j4#********* 

* PUT ADDRESS * 

* OF I/O AREA * 
X* IN PARAMETER * 

* LIST * 

* * 
.***************** 



***************** 



IKREXT *. YES 
!»I»LCIFIED .*... 
*A5 .* 



♦ ♦♦*♦» 'j********** 

♦ SAVE USER * 
NO* IUGISTERS * 
. .* AND RESTORL * 

* MODULE * 

* RLGISTERS * 
***************** 





* ERET * 


. 


*. 


OPTION 

*. .* 

* . .* 

*. .* 

♦ SKIP 


.* 






IGNORE 






> 






*****H5********** 


* 


RESTORE 


* 


* 


MODULE 


* 


* 


REGISTERS 


* 


* 


AND SAVE 


* 


* 


USER REGS 




** 


c******:| 


********* 



***** J 5 ********** 

* RESTORE ♦ 

* MODULE ♦ 

* REGISTERS 

* AND SAVE * 

* USER REGS ♦ 
***************** 



♦ X. 



*****K3********** 



***************** 



***************** 



****«5*********** 

* SVC * 

RETRY 
* WRITE * 

***************** 
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Chart DN. SDMODVO: PUT Macro (Section 7 of 11) 



*A2 
SDMODVO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING, 



****A4********* 

* * 

* IJGVP550 * 

* * 
*************** 



ERREXT 

SPECIFIED 

*A2 



*****q 2** ******** 

* PUT ADDR * 

* OF UO * 
X* AREA IN * 

* PARAMETER * 
LIST 



******** 



******* 



****B3********* 

* * 

* IJGVP560 * 

* * 

*************** 



IJGVP550 X 

*****B4 ********** 

* INITIALIZE * 

* TO UPDATE * 

* SLAKCH * 

* ARGUMENT * 

* * 
***************** 



*****Cl ********** 

* * 

* GET ADDR * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****C2*« ******** 

* # 

* GET ADDR * 

* OF PARAMETER * 

* LIST * 

* * 
***************** 



*****Di ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 
ROUTINE 



* * 



* * 



***************** 



***************** 



IJGVP570 X 

*#***D4********** 

* GET * 

* CORRESPONDING * 

* CHAR OF SRCH * 

* ARG AND * 
*CCHH CNTRL FLD * 
***************** 



ERREXT *. NO 
SPECIFIED .*... 
*A2 .* 



.X* 



*****E2********** 

* SAVE USER * 
REGS AND * 

RESTORE * 

* MODULE * 

* REGS * 
***************** 



*****pi********** 

* SAVE USER * 

* REGS AND * 

* RESTORE * 

* MODULE * 

* REGS * 
***************** 



****H1*********** 

* SVC * 
RETRY 
* WRITE * 

*********** 



.* SEARCH *. NO 
.ARG LT CNTRL .*... 

*. FIELD .* 



IJGVP580 X 

*****P4********** 

* INCREASE * 

* SEARCH ARG * 

* CHAR BY 1 * 

* AND STORE * 

* * 
***************** 



****G4** ******* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



.X* 



*****E5********** 
* SET LOWER * 
LIMIT CHAR * 
IN SEARCH * 
ARGUMENT * 



***************** 



*****P5********** 



***************** 



****H2******** 

* RETURN TO 

* CALLING 

* ROUTINE 
************** 



***** 
*DM * 
* Bl* 



208 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart DP. SDMODVO: PUT Macro (Section 8 of 11) 



* * 

* IJGVP520 * 

* * 
*************** 



IJGVP520 

*****B1 ********** 

* INITIALIZE * 

* TRACK * 

* CAPACITY * 

* BUCKET * 

* * 
***************** 



*****Cl ********** 
♦IJGVP550 DN* 
*_*_*_*_*_*_*_*_* 

*UPDATE CURRENT ♦ ' 

* TRACK NUMBER * 

* BY 1 * 
***************** 



*****D1 ********** 

* SET RECORD * 

* NUMBER TO * 
♦ZERO IN SEARCH * 

* ARGUMENT * 

* BUCKET * 
***************** 



**** 




**** 








* * 




* * 








* 1 * 




* 2 * 








* * 




* * 








**** 




**** 

x! 








X 


X 


X 


.*. 




.*. 


IJGSP530 




.♦. 


A2 *. 




A3 ♦ . 


*****A4********** 


A5 *. 


* * 




.* *. 


* 


* 


.* *. 


SPANNED 


♦ . NO 


.* *. NO 


* GET 


* 


.♦ *. NO 


SPECIFIED 


.*... 


♦.RDONLY = YES ...... 


....X* ADDRESS OF 


* 


*. FEOVD = YES .*... 




* i 


< *. *K4 .* 


* DTF TABLE 


* 


*. *K4 .* 


♦ . .* 




*. .* 


* 


* 


*. .* 


*. .* 




. *. .* 


*************** 




♦ . .♦ 


*YES 




*YES 


**** " 
* * . 




♦ YES 


• 






* 3 *... 

* * . 




* 


X 






**** X 




X 


.*. 




'. IJGSP530 X 


.♦. 




.*. 


B2 *. 




**Q3******* 


B4 *. 




B5 *. 


* * 




* SET LIST * 


.* *. 




.* *. 


CLOSE 


'♦. YES 


* END * 


.* CLOSE * 


. YES 


.♦ FEOV *. NO 


SWITCH 


.*... 


* INDICATOR * 


*. SWITCH 


.*.. . 


*. BIT SET .*..X 


ON 


,* 


* FOR OPEN * 


*. ON .* 




♦ . .* 



*****C2*#******** 

* * 

* SAVE OPEN * 
♦COMMUNICATIONS * 

* BYTE * 

* * 
*********** 



IS 
THIS A 
RE-OPEN 



.* EXTENT * 
. UPPER LIMIT 
♦.EXCEEDED .♦ 



♦ SAVE ♦ 

♦ MODULE ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



*****H1 ********** 

♦ * 

♦ RESTORE ♦ 

♦ USER ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



SPANNED 

SPECIFIED 

*K4 



*****Kl ********** 

♦ GET ADDRESS ♦ 

♦ OF DTF ♦. 

♦ TABLE ♦ 

♦ * 
***************** 



**** 

* ♦ 
.X^ 2 ♦ 

* * 
**** 



****[: 2********* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 

***********#*** 



*****P2********** 

* ♦ 

♦ SAVE ♦ 
X* MODULE ♦ 

♦ REGISTERS ♦ 

* * 
***************** 



SPANNED ♦. 

SPECIFIED . 

*K4 .♦ 



**H2******* 

♦ SET LIST ♦ 

END 
INDICATOR 
FOR OPEN 

* * 
*********** 



*****J2********** 

♦ ♦ 

♦ RESTORE ♦ 

♦ USER ♦ 

♦ REGISTERS ♦ 

♦ ♦ 
***************** 



*****«2********** 

* * 

♦ GET ADDRESS ♦ 
.* OF DTF ♦ 

♦ TABLE * 

* ♦ 
v**************** 



*********** 



*****C3********** 

♦ * 

♦ RESTORE ♦ 

♦ USER ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



*****D3********** 

* * 

* GET ♦ 

♦ ADDRESS OF *. 

♦ DTF TABLE ♦ 



IS NEXT 
EXTENT ON 
. NEW VOL . ; 



NO.* DOES ♦ 
..♦. RECORD SPAN 
♦. VOLUMES .♦ 



****C4*****++*+ 

♦ SVC 2 ♦ 

♦ FETCH $$BOPEN ♦ 

♦ * 
*************** 



♦ SAVE 

♦ USER 

♦ REGISTERS 
* 
***#********** 



*****E4********** 

♦ * 

♦ RESTORE ♦ 

♦ MODULE ♦ 

♦ REGISTERS * 

♦ * 
***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* ♦ 

* 4 * 

* ♦ 
**** 



FILE 
ASSIGNED 
. IGNORE 



SPANNED 

SPECIFIED 

♦ K4 



***** 
*DR ♦ 
* Bl* 



X 

***** 

♦ DK * 

* G3* 



**G^******* 

* * 
SET 

KEY 
TO ZERO 

* # 
*********** 



**C5******* 

* * 
SET 

EOF 
SWITCH 

* * 
*********** 



**D5******* 

* ♦ 
RESET 

EXTENT AT 
CLOSE BIT 

* ♦ 
*********** 



****E5********* 

♦ SVC 9 * 

♦ RETURN TO * 

♦ TRANSIENT ♦ 
*************** 



♦ RESET 
X* EOF 

♦ SWITCH 

* * 

*********** 

**** 

* * 

* 5 *. .. 

* * 
***♦ X 

.♦. 
G5 ♦. 



**** 

* * 

* 6 ♦ 

* * 
**** 



.* THIS 
. EXTENT ON 
♦. NEW VOL . 



****j4********* 
*. NU X ♦ RETURN TO * 

.♦ X*CALLING ROUTINE* 

* * * 

*************** 



*K4 
SDMODVO MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN ASSEMBLY 
LISTING. 



* 3 * 

* * 
**** 



***** j 5********** 

* SAVE EXTENT ♦ 

♦ SEQUENCE ♦ 

♦ NUMBER ♦ 

* * 
***************** 



**K5******* 

* * 

* TURN OFF 
FIRST VOLUME 

* SWITCH 

* ♦ 
*********** 
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Chart DQ. SDMODVO: PUT Macro (Section 9 of 11) 



**** 
* * 

* 4 * 

* * 
**** 



DG-J3 
DS-F5 
***** 



IJGSP040 .*. 

Bl *. 
.* FIRST *. 
YES .* RECORD 



OUTPUT *. 
AREA 
EMPTY .* 



**D1 ******* 

* * 
RESET 

SAVE COUNT 
SWITCH 

* * 
ft********** 



**£!******* 

* RESET * 

* RECORD 

SPANS 

* VOLUMES 

* , SWITCH * 
*********** 



*****Fl ********** 

* STORE * 

* RECORD * 

* LENGTH * 

* IN DTF TABLE * 

* * 
***************** 



*****G1 ********** 

* SET * 

* WORK * 

* AREA * 

* ADDRESS * 

* * 
***************** 



*****H1 ********** 

* GET * 

* SEGMENT * 

* POINTER * 

* AND STORE * 

* IN DTF TABLE * 
***************** 



**J1******* 

* TURN ON * 
LEADING 
SEGMENT 
SWITCH 

* * 
*********** 



*****A2********** 

* GET ADDRESS * 

* OF OUTPUT * 

* AREA AND * 

* RECORD * 

* LENGTH * 
***************** 



**B2******* 

* SET * 

* SEGMENT 
* INDICATOR 

* TO FIRST 

* SEGMENT * 
*********** 



**** 

* * 

* 2 * 

* * 
**** 



UGSP070 X 

****«B3********** 

* SCT LENGTH * 

* IN SEGMENT * 

* DESCRIPTOR * 

* WORD * 

* * 
***************** 



*****q/, ********** 

* INCREASE * 

* OATA LENGTH * 

* BY SEGMENT * 

* LENGTH TO * 

* TOTAL * 
***************** 



*DK * 
* F5* 
**** 
IJGSP045 



*****C3********** 


C4 *. 


* UPDATE * 


.* *. 


* OUTPUT * 


LT .* TOTAL-- *. 


* AREA * 


...*. TRACK .* 


* ADDRESS * 


♦.CAPACITY .* 


* * 


. *. .* 


***************** 


X *. .* 




**** *GT 




* * 




* 4 * 




* * 




**** 


X 


X 


*****03********** 


*****04** ******** 


* GET DATA * 


* SET SEGMENT * 


* LENGTH * 


* TO TRACK * 


* PLUS BLOCK * 


* CAPACITY * 


* DESCRIPTOR * 


* DATA LENGTH * 


* WORD * 


*AND BLK DES WRD* 


***************** 


***************** 



IJGSP050 

*****E2********** 

* COMPLETE * 

* SPACE * 

* AVAILABLE *. 

* IN OUTPUT * 

* AREA * 
***************** 



*****F 2* ********* 

* GET BLOCK * 

* SIZE * 
..X* MINUS * 

* B D W * 

* * 
***************** 



**F3******* 

* RESET * 
TRACK * 

TRUNCATION *... 
SWITCH * 

* * 
*********** 



IJGSP060 .*. 

G2 *. 

.* WILL *. 

.* SEGMENT 

*. FIT IN OUT- 

*.PUT AREA . 

*. .* 

*. .* 



**j2******* 

* SET * 
SEGMENT 

INDICATOR 
TO ONLY 

* * 
*********** 



**K2******* 

* SET * 
SEGMENT * 

INDICATOR *... 
TO LAST * 

* * 
*********** 



**H3******* 

* TURN ON 
MULTISEGMENT 

* SWITCH 

* * 

*********** 



** J3******* 

* SET * 
SEGMENT 

INDICATOR 
TO MIDDLE 

* * 
*********** 



*****E4********** 

* STORE * 

* NEW * 

* SEGMENT * 

* LENGTH IN * 

* SEG DES WRD * 
***************** 



**P4******* 

* RESET * 
SEGMENT 

INDICATOR 
TC FIRST/ 

* MIDDLE * 
*********** 



**G4******* 

* * 

* TURN ON 

* MULTISEGMENT 

* SWITCH 

* * 
*********** 



**H4******* 

* TURN ON * 

* TRACK AND 
* SEGMENT 

* TRUNCATION 

* SWITCHES * 
*********** 



* 4 * 

* * 
**** 



IJGSPO80 X 

*****A5********** 

* SET * 

* CONTROL * 

* FIELD IN * 

* SEG DES WRD * 

* TO ZERO * 
***************** 



*****Q5********** 

* COMPUTE NO * 
*OF BYTES TO BE * 

* MOVED EQUALS * 
♦SEGMENT LENGTH * 

* MINUS 4 * 
***************** 



*****C 5********** 

* UPDATE * 

* SEGMENT * 

* POINTER * 

* AND STORE * 

* IN DTF * 
***************** 



***** 05********** 

* COMPUTE * 

* RECORD LENGTH * 

* LEFT TO * 

* MOVE AND * 

* STORE IN DTF * 
***************** 



***** £5********** 



***************** 



**G5******* 

* * 

* TURN ON 
* SAVE COUNT 

* SWITCH 

* * 
*********** 



***** H5********** 

* * 

* UPDATE * 

* I/O * 

* POINTER * 

* * 
***************** 



***** j 5********** 

*IJGVP460 DL* 
*_*_*_*_*_*_*_*_* 

* MOVE SEGMENT * 
*FROM WORK AREA * 

* TO I/O AREA * 
***************** 



**K5******* 

* RESET * 
LEADING 
SEGMENT 
SWITCH 

* * 
*********** 



***** 
*DG * 
* A4* 
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Chart DR. SDMODVO: PUT Macro (Section 10 of 11) 



****A1********* 

* * 

* IJGSP200 * 

* * 
*************** 










**** 


**** 




* * 


* * 






* 1 * 


* 3 * 


**** 




* * 


* * 


* * 




**** 


**** 


*DP *.. 








* F3* 








**** 








IJGSP200 X 


IJGSP203 X 


X 


**B1 ******* 


*****B2********** 


*****B3********** 


* RESET * 


* DECREMENT * 


* SET SEEK * 


* TRACK * 


* VOLUME * 


* ADDRESS IN * 


* TRUNCATION * 


* SEQUENCE * 


* SEARCH * 


* SWITCH * 


* NUMBER BY 1 * 


* ARGUMENT * 


* * 


* * 


* FOR REREAD * 


***** 


****** 


***************** 


***************** 



**C1******* 

* RESET * 

* SWITCH FOR 
* TRUNCATION 

* OF OUTPUT 

* BLOCK * 

*********** 



**D1 ******* 

* RESET * 
RECORD 

SPANS 
VOLUMES 

* SWITCH * 
*********** 



.*. 

EL *. 

* DID * 

RECORD 

SPAN 
EXTENTS 



**Fl ******* 

* TURN ON * 
REOPEN 
SWITCH 

IN DTF 

* * 
*********** 



EXTENT 
ON FIRST 
. VOLUME 



*****H1 ********** 

* DECREASE 1ST * 
*EXTENT SEQUENCE* 

...* NO. ON VOL BY * 
. *1 AND RESET IN * 
. *DTF FOR REOPEN * 
X ***************** 
**** 

* * 

* 1 * 

* * 
**** 

I JGSP202 

**J1******* 
*SET DTF BIT* 

* TO INDICATE * 

* NEW VOLUME ON *X. 

* NhXT EXTENT * 
* * 

*********** 



IJGSP205 

*****E2********** 
*IJGVP530 DP* 
*-*-*-*-*-*-*-*-* 

* OPEN * 

* EXTENT * 

* * 
***************** 



DESIRED 

EXTENT 

REACHED 



.*1ST RECORD 

ON 

♦ . VOLUME . 



.* WRITE *. 

* OPERATION * 

OUTSTANDING 



***** 
*DS * 

* BL* 



************** 



**E3******* 

* SET CCW * 

COMMAND 

CODE TO 

READ DATA 

*********** 



* * I"- J ****** * 

* * 
KFSrT 

CHAINING 
1)1 T IN CCW 

* * 
*********** 



**G3******* 

* * 
TURN ON 
REREAD 
SWITCH 

* * 
*********** 



**** 

* * 

* 4 * 

* * 
**** 

X 

**B4******* 

* * 
RESET 

REREAD 
SWITCH 

* * 
*********** 



**C2******* 


*****C3********** 


C4 *. 


* RESET * 


* SET DATA * 


.* *. 


* OPEN * 


* LENGTH IN * 


.* VERIFY 


♦COMMUNICATIONS * 


* CCW FOR * 


*. SPECIFIED 


* BYTE * 


* REREAD * 


*. 


* * 


* * 


*. .* 


*********** 


***************** 


*. .* 
*YES 


**** * 






* * 






* 2 *... 






* * 






**** 






X 


X 


X 


**D2******* 


*****D3********** 


**D4******* 


♦SET RECORD * 


* GET I/O AREA * 


* RESET 


* NUMBER * 


* ADDRESS AND * 


* CHAINING 


* IN DTF * 


* ADJUST FOR * 


* BIT IN CCW 


* TO ZERO * 


* READ DATA AND * 


* FOR VERIFY 


* * 


♦RESTORE IN DTF * 


* 



*********** 



*****E4********** 

* RESET ADDRESS * 

* OF I/O AREA * 

* FOR REWRITE * 

* AND RESTORE * 

* IN DTF * 
***************** 



ERROR 

IN 

REREAD 



***** 
*DS * 
* Bl* 



* WAIT FOR I/O *. 
*COMPLETION AND * 

* CHECK ERRORS * 
***************** 



**K1******* 
* 
CLOSE * 
FILE * 
IN DTF ' * 

*********** 


X 




**** 
* 

* 2 
* 




**** 



****H3*********** 

* SVC * 
READ 
* DATA * 

***************** 



**J3******* 

* TURN ON * 

WRITE 

OPERATION 

SWITCH 

* * 
*********** 



*****K3 ********** 
*IJGVP150 DM* 
*_*_*_*-*_*_*_*_* 

* WAIT FOR I/O *. 
♦COMPLETION AND * 

* CHECK ERRORS * 
********** 



*****H4** ******** 
♦UPDATE SEGMENT * 

♦ POINTER BY ♦ 

♦ 4 BYTES FOR ♦ 
♦SEG DESCRIPTOR ♦ 

♦ WORD ♦ 
***************** 



**** 

* * 

* 5 * 

* * 
**** 



♦**♦ 

* * 

* 5 ♦ 

* * 

**** 



* GET * 

* SEGMENT * 

* LENGTH ♦ 

* * 
***************** 



*****C5^+ ++^^++* 

* UPDATE ♦ 

* SEGMENT ' * 

* POINTER ♦ 

* TO NEXT ♦ 

* SEG DES WRD * 
***************** 



***** D5********** 

* * 

* GET NEW ♦ 

* DATA ♦ 

* LENGTH ♦ 

* ♦ 
***** ************ 



**F4******+ 


F5 * 


SET CCW * 


.* 


COMMAND * 


YES .* END OF 


TO WRITE * 


X..*. BLOCK 


COUNT, KEY, * 
AND DATA * 


*. 


* . 


*********** 


*. .* 



FIRST ♦ 


. NO 






SEGMENT 


.* 








. REACHED .♦ 










* . .* 










♦ . .♦ 






X 




♦YES 






**** 










* 








* 


4 


* 








* 




* 


.. ..X 








**** 


X 










**H5^******** 










* 








STORE NEW 


* 








DATA LENGTH 


* 








IN [ 


)TF 


* 









***************** 



***** 

*DS ♦ 

* Bl* 

* * 
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Chart DS. SDMODVO: PUT Macro (Section 11 of 11) 



*DR-G2,G4,H5 



* 2 * 

* * 
**** 



****A3*********** 



* RESET * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



*****d ********** 

* DECREASE * 

* RECORD * 

* NUMBER BY 1 * 
♦AND RESTORE IN * 

* DTF * 
***************** 



*****D1 ********** 

* STORE NEW * 

* SEEK ADDRESS * 

* IN SEARCH * 

* ARGUMENT * 

* BUCKET * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



WRITE 

OPERATION 

.OUTSTNDNG. 



*****C2********** 
♦IJGVP150 DM* 
*_*_*_*_*_*_*_*_* 

* WAIT FOR I/O * 

* COMPLETION * 

* AND CHECK * 
***************** 



***************** 



ERROR 

IN 

REREAD 



NO .*1ST RECORD 
,..*. ON 

*. 1ST VOL . 



**Gl******* 

* RESET * 

* 1ST RECORD 
* ON VOLUME 

* SWITCH 

* * 
*********** 



* 3 * 

* * 
**** 



**** 

* * 

* 5 * 

* * 
**** 



*****Hi ********** 



***************** 



*****02********** 

* * 

* GET ADDRESS * 

* OF I/O * 

* AREA * 

* * 
***************** 



*****£ 2********** 

* * 

* UPDATE * 

* RECORD * 

* ADDRESS * 

* * 
***************** 



*****P2********** 

* SET BLOCK * 

* LENGTH AND * 

* CONTROL FIELD * 

* TO ZERO * 

* * 
***************** 



*****G2********** 

* ADD 8 BYTES * 

* TO BLOCK * 

* LENGTH AND * 

* STORE IN * 

* DTF * 
***************** 



WRITE 

NULL 

SEGMENT 



*****j2********** 

* * 

* BUILD * 
.* NULL * 

* SEGMENT * 

* * 
***************** 



X 


IJGSP280 .*. 


**B3******* 


B4 *. 


RESET * 


.* NEXT * 


WRITE * 


.* EXTfcNTION 


OPERATION * 


*. NEW 


SWITCH * 


*. VOL 



*********** 



*****C3********** 
♦IJGVP150 DK* 
*_*_*_*_*_*_*_*_* 

* WAIT FOR I/O * 
♦COMPLETION AND * 

* CHECK ERRORS * 
***************** 



IJGSP260 

*****D3********** 
♦IJGVP550 DN* 
*-*-*-*_*_*-*-*-* 

* INCREASE * 

* TRACK NO. * 

* BY 1 * 
***************** 



*****E3********** 

* SET RECORD * 

* NUMBER * 

* EQUAL TO * 

* ZERO * 

* * 
***************** 



**C4******* 

* * 
RESET 

REOPEN 
SWITCH 

* * 
*********** 



* OPEN * 

* NEXT * 

* EXTENT * 
***************** 



***** e 5********** 

* * 

* GET ADDRESS * 

* OF DATA * 

* AND STORE * 

* * 
***************** 



*****C5********** 



***************** 



***** 05********** 

* INITIALIZE * 

* OUTPUT * 

* BLOCK * 

* CAPACITY * 

* * 
***************** 



*****£ 5********** 



* EXTENT *. YES 

UPPER LIMIT .*.... 
♦.EXCEEDED .* 



IJGSP265 

*****G3********** 

* UPDATE SEEK * 

* ADDRESS IN * 

* SEARCH * 

* BUCKET * 

* * 
***************** 



*****H3********** 

* SET RECORD * 

* NUMBER * 

* EQUAL * 

* TO 1 * 

* * 
***************** 



* 5 



**** 
IJGSP270 

*****J3********** 

* INCREASE DATA * 

* LENGTH IN DTF * 

* BY 4 BYTES * 
*{SEG DESCRIPTOR* 

* WORD) * 
***************** 



**K3******* 

* TURN ON * 

NULL 
SEGMENT 
SWITCH 

* * 
*********** 



* 


NEW *. 
VOLUME .* 


NO 




* 


REACHED .* 
*. .* 




; 




*. .* 




X 




*YES 


* 


**** 






* 


4 






* 


**** 




X 






**F 






* 


RESET * 
NULL * 
SEGMENT * 
SWITCH * 






* 


* 






*********** 







SET DATA 
LENGTH 
TO ZERO 



************* 



*****F5********** 

* * 

* INITIALIZE * 

* TRACK * 

* CAPACITY * 

* * 
***************** 



**** 

* * 

* 1 * 



**G4******* 

* TURN ON * 

* 1ST RECORD 
* ON VOLUME 

* SWITCH 

* * 
*********** 



**H4******* 

* * 
TURN ON 

SAVE COUNT 
SWITCH 

* * 
*********** 



*****J4********** 

* * 

* GET ADDRESS * 

* OF OUTPUT *. 

* AREA * 

* * 
***************** 



**K4******* 

* TURN ON * 

NULL 
SEGMENT 
SWITCH 

* * 
*********** 



***** 
*DQ * 
* Bl* 



* 7 * 

* * 
**** 
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Chart DT. SDMODVO: Close Routine 



*A1 
ENTRY FROM 
$$B05CC1. 



****AL********* 

* IJGVP330 * 

* *A1 * 

* * 
*************** 



***** 
*DJ * 
* C4* 



* GET LENGTH OF * 
♦AVAILABLE SPACE* 

* ON TRACK * 

* * 
***************** 



*A4 
SDMODVO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLY 
LISTING. 



**** 

* * 

* 3 * 

* * 
**** 



***** £5********** 

* IJGVP360 DL* 
*-*-* _*_*_*_*_*_* 

* WRITE EOF * 

* RECORD * 

* * 
***************** 



***************** 



IJGVP330 

*****D1 ********** 

* SAVE USER * 

* REGISTERS AND * 
♦POINTER TO SAVE*X. 

* AREA * 

* * 
***************** 



♦RESET SWITCH * 

* FDR RETURN TO * 

♦CLOSE ROUTINE^ 

* * 

*********** 



* WAIT FOR I/O ♦ 
♦COMPLETION AND ♦ 

♦ CHECK ERRORS ♦ 
***************** 



*****D2********** 
♦IJGVP150 DM^ 
*_*_*_*_*_*_*_*_* 

♦ WAIT FOR I/O ♦. 
♦COMPLETION AND ♦ 

♦ CHECK ERRORS ♦ 
***************** 



*****E2********** 

♦ IJGVP150 DM* 
*_*_*_*-*_*_*_*_* 

.X* WAIT FOR I/O ♦ 
♦COMPLETION AND ♦ 

♦ CHECK ERRORS ♦ 
***************** 



*****Fi ********** 



***************** 



*****G1 ********** 

♦ GET CURRENT ♦ 
♦RECORD ADDRESS * 
♦FROM DEBLOCKING^ 

♦ CONSTANTS * 

♦ * 
***************** 



.* 1 BYTE OR ♦. 

MORE 

*. REMAINING. ♦ 



D3 *. 
♦ HAS ♦. 
EOF ♦. 
BEEN 
WRITTEN .♦ 



**E3******* 

* * 
RESET 

EOF 
SWITCH 

* * 
*********** 



* EXTENT * 

UPPER LIMIT 
*. EXCEEDED .* 



NO 






.♦ 1 BYTE OR ♦. YES 






♦. MORE ...... 






*. REMAINING. ♦ 






♦ . .♦ 


X 




♦ . .♦ 


*** 




♦ NO 


* 


* 


**** . . 


♦ 2 


* 


* * . 


* 


* 


* 2 ♦.X. 


**** 


♦ ♦ 






**** 




IJGVP351 X 






**04******* 






♦SET SWITCH * 


YES 




♦ FOR RETURN ♦ 
♦ TO CLOSE ♦ 

♦ ROUTINE ♦ 
* * 


X 




*********** 


**** 




* 


* 




♦ 4 


* 




* 


* 




**** 








X I 






*****E4********** 






♦IJGVP520 DP^ 






*_*_*_*_*_*_*_*_* 






♦ INITIALIZE ♦ 






♦TRACK CAPACITY ♦ 






♦ * 






***************** 






X I 






**F4******* 






* ♦ 


NO 




♦ Rf-SET SWITCH ♦ 






* FOR RETURN TO ♦ 








♦CLOSE ROUTINES 








* * 








*********** 








xlx 1 











♦SET DATA LENGTH^ 

♦ TO ZERO FOR ♦ 

♦ END-OF-FILE ♦ 

♦ RECORD * 
***************** 



**** 

X 
** E5******* 



*********** 



*****F5********** 



***************** 



****G5^*^^**** 

* RETURN TO ♦ 

* SSBOSDCL ♦ 

* * 
*************** 



♦YES 


**** 




* * 




* 1 * 




* * 




**** 


X 




**KL******* 




* * 




♦SET SWITCH TO + 




♦RETURN TO CLOSED 




* ROUTINE ♦ 




* * 




*********** 


X 




***** 




♦ DH ♦ 




♦ H3*UGVP070 



**«4+****** 

* * 
SET 

EOF 
SWITCH 

* * 
*********** 



.X.. 
X 

**** 

* * 

* 3 * 

* * 
**** 
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Chart DU. SDMODVO: TRUNC Macro 



****A3********* 

* IJGVP320 * 

* *A4 * 

* * 

*************** 



*A4 
ENTRY FROM 
TRUNC MACRO. 



*A5> 
SDMODVO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* FIRST 

ENTRY INTO 
*. ROUTINE . 



DATA 

LENGTH 

ZERO 



****C4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



**D3******* 

* * 
*TURN ON TRACK* 

* TRUNCATION * 
* SWITCH * 

* * 
*********** 



RDONLY 
= YES 
*A5 



*****E4 ********** 

* SAVE USER * 

* REGISTERS * 
•X* AND POINTER * 

* TO SAVE AREA * 

* * 
***************** 



*****P3********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



***** 

*DJ * 

* CI* 

* * 
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Chart DV. SDMODVU: GET Macro (Section 1 of 11) 



****A1 ********* 

* IJGVU030 * 

* *A2 * 

* * 
*************** 



*A2 
ENTRY FROM 
GET MACRO. 



**** 

* * 

* 2 * 



FEOVD 
= YES 
*A5 



E S,. 



*****A4** ******** 

* * 

* GET ADDRESS * 

* OF IOAREA * 

* AND SAVE * 

* * 
***************** 



*A5 
SDMODVU MACRO PARAMETER 
OPTION — DECISION DOES 
NOT APPEAR IN AN - 
ASSEMBLY LISTING. 



.*. 




IJGVU030 






.*. 


X 








Bl *. 




*****B2********** 


B3 *. 


*****B4********** 






.* *. 




* SAVE USER 


* 


.* *. 


* GET ADDRESS * 






.* RDONLY *. YES 


* REGISTERS 


* 


YES .* WAS *. 


* CF DATA * 






*. = YES .* 




..X* AND POINTERS 


* 


...*. EOV .* 


* AREA IN * 






*. *A5 .* 




* TO SAVE AREA 


* 


*. FORCED .* 


* IOAREA AND * 






*. .* 




* 


* 


*. .* 


* SAVE * 






*. .* 




***************** 


X *. .* 


***************** 






*NO 








***** *nq 


















*ED * 


















* Dl* 
* * 
* .X 










IJGVU372 




IJGVU030 X 










IJGVU040 X 


X 






*****C]. ********** 










**C3******* 


*****C4 ********** 






* * 










* TURN ON * 


* * 






* SAVE * 










* SWITCH * 


* SET CURRENT * 






* USER * 










* TO SAVE * 


* RECORD LENGTH * 






* REGISTERS * 










* RECORD * 


* TO ZERO * 






# * 










* COUNT * 


* * 






***************** 










*********** 


***************** 






**** I 
* 
1 * 

* .X. ....... 












X 






**** X 










.*. 








X 


.*. 






Dl *. 








*****D3********** 


D4 *. 




***** 05********** 


.* *. 








*IJGVU290 EC* 


.* *. 




* COMPUTE * 


.NO .* SPANNED *. 




*D2 




*_*_*_*_*_*_*_*_* 


.* 2 *. YES 


* END OF BLOCK * 


....*. SPECIFIED .* 




EE-Cli G1,K3 




* READ * 


*. I/O AREAS .* 




.X* ADDRESS FOR * 


*. *A5 .* 




DW-J2 




* DATA * 


*. .* 




* SECOND * 


*. .* 








* * 


*. .* 




* IOAREA * 


*. .* 








***************** 


*. .* 




***************** 


*YES 










*NO 








'. X 
.*. 




IJGQUOOO 




IJGVU050 X 


X 








El *. 




**E2******* 




*****E3 ********** 


*****E4********** 








.* *. 




* RESET ALL * 




*IJCVU156 DX* 


* COMPUTE * 








.* SPANNED *. YES 


* SPANNED 


* 


YES*-*-*-*-*-*-*-*-* 


* END OF BLOCK * 








*. SPECIFIED .* 
*. .* 




..X* PROCE 


5SING 

:hes 


* 
* 


...* WAIT FOR * 
. * COMPLETION * 


* ADDRESS * 

* FOR IOAREA * 










* SWITC 




*. .* 




*EXCEPT SKIP* 




. * OF I/O * 


* * 








*. .* 




*********** 




x ***************** 


***************** 








*NO 








***** 










**** 










*EA * 










* * 










* H3* 










. ..* * * 










# * 










X. * D2* 










* 

X 










X **** 










IJGQU030 .*. 




X 






.*. 




X 


Fl *. 




**F2******* 




F3* **. 


F4 *. 




*****F5********** 






* * 




.* *. 


.* *. 




* EXCHANGE * 


.* FIRST *. NO 


* RESET WORK 


* 


.* FEOVD *. YES 


.* *. YES 


* IOAREA * 


*. ENTRY INTO .* 




* AREA SWITCH 


* 


*. = YES .*... 


....X*. EOF .*. 




* ADDRESSES * 


*. ROUTINE .* 




* 


* 


*. *A5 .* 


*. .# 




* IM READ CCW * 


*. .* 




* * 




*. .* 


*. .* 




* * 


*. .* 


X 


*********** 




*. .* 


*. .* 


X 


***************** 


*YES 


***** 






*NO 


*NO 


***** 






*DW * 








**** 




*DX * 






* F4* 








* * 




* F3* 






* * 








*DW *... 


X 


* * 


X 




* 








* D5* 


**** 


* 


***** 


'. IJGVU070 






**** X 


* * IJGVU158 


*DW * 


X 




X 




.*. 


* ^ * 




* G4* 


**G1******* 




**G2******* 




G3 *. 


* * 




* * 


* * 




* TURN ON * 




.* *. 


**** 




* 


* TURN ON * 




* SPANNED 


* 


.* END *. YES 






IJGVU075 


* FIRST ENTRY * 




* FIRST ENTRY 


* 


*. OF FILE .*... 








* SWITCH * 




* swn 


rcH 


* 


*. REACHED .* 











*********** 



*****H1 ********** 

* SET RECORD * 

* NUMBER TO * 

* ZERO IN * 

* SEARCH * 

* ARGUMENT * 
***************** 



*****J1 ********** 

* SET RECORD * 

* NUMBER IN * 

* COUNT FIELD * 

* TO ZERO * 

* * 
***************** 



**K1******* 

* RESET * 
SWITCHES 

IN VERIFY 
CCW DATA 

* LENGTH * 
*********** 



**** 

* * 

* 2 * 

* * 
**** 



*********** 



***** 
**** *eo * 

* * * oi* 

* 4 * * * 

* * * 
****IJGVU380 



EF* 



*****H2****** 

*IJG0U017 

*_*_*_*_*_ 

* INITIALIZE * 
*RECORD SIZE AND* 

* SEGMENT PTR * 
***************** 



*****K2********** 
*IJGQUFRE DZ* 
*_*_*-*-*-*-*-*-* 

* CHECK IF *. 

* NECESSARY TO * 

* FREE TRACK * 
***************** 



.* EXCHANGE *. 
*. I/O AREA 
♦.ADDRESSES.* 



** J3******* 

* RESET * 
SWITCH 

TO EXCHANGE 
IOAREA 

* ADDR * 
*********** 



*****K3********** 

* * 

* EXCHANGE * 

* IOAREA * 

* ADDRESSES * 

* * 
***************** 
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Chart DW. SDMODVU: GET Macro (Section 2 of 11) 



*A1 
SDMODVU MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 





AKfcA 

♦.SPECIFIED. 


* . 




*. .* 






*. .* 








>YES 






> 


< 




*****ci ********** 


♦IJGVU250 


EB* 


*- 


-*-*_*_*_*_*_ 


*-* 


* 


MOVE LOGICAL 


* 


* 


RECORD TO 


* 


* 


WORK AREA 


* 


******** 


****** 


*** 






"x.... 





**B2******* 
♦SET SWITCH ♦ 

♦ TO WRITE ♦ 
BLOCK AND 

♦ RETURN TO ♦ 
♦GET ROUTINE* 

*********** 



***** 
*EG * 
♦ E3+ 



IJGVU090 .♦. 

Dl ♦. 
.♦ ♦. 
.♦ 2 
♦. I/O AREAS 

"♦. .♦* 
♦ . .♦ 
♦YES 



El ♦. 
.♦ ♦. 
.♦ NECESSARY 
♦. TO READ 
♦. ANOTHER . 
♦. RCD .♦ 
♦ . .♦ 
♦NO 
**** 



SPANNED 

SPECIFIED 

♦Al 



IJGVU140 

**E2+^^+*^ 

♦ SET ♦ 

♦SWITCHES FOR ' 

...X+ SECOND READ 

♦ AND SAVE 

♦RECORD CNT ♦ 

*********** 



****P2*********** 
IJGVU290 EC 
*_*_*_*_*_*_*_*_* 
READ 
♦ DATA * 

***************** 



**** 
IJGOU010 

*****G2***^***^** 



♦ GET ADDRESS ♦ 
X+ OF RECORD ♦ 

♦ POINTER ♦ 

♦ * 
***************** 



**** 

* * 

* 3 * 

* ♦ 
**** 



HOLD 
h YES 
♦Al 



***** 


**** 




♦ EL ♦ 


* * 




♦ J5* 


* 2 ♦ 




* * 


* * 




* 


**** 




* 


'. X 






.. UGVU152 .♦. 






A5 ♦. 






.* * 






NO .♦ 2 


♦ . 




...♦. I/O AREAS 


.♦ 




♦ . 


* 




♦ . '. ♦ 






X ♦. .♦ 






***** +YES 






♦ DV ♦ 






♦ C3^ 






♦ ♦ 






♦ 






IJGVU040 X 
.♦. 
B5 ♦. 




**Q4******* 




♦ RESET * 


.* * 




♦ SWITCH ♦ 


YES .♦ WAIT 


*. 


...♦ FOR SECOND ♦X. 


♦. FOR SECOND 


.♦ 


♦ GET ♦ 


♦ . GET 


* 


* ♦ 


*. .♦ 




x *********** 


♦ . .♦ 




**** 


♦NO 




DV ♦ 






H3^ 







IJGVU065 

*****C4********** 



NO .♦ HOLD ♦. 




♦ EXCHANGE ♦ 


...♦. = YES •♦ 




.♦ IOAREA ♦ 


♦. ♦Al .♦ 




♦ ADDRESSES ♦ 


♦ . .♦ 




* * 


X ♦. .♦ 


X 


***************** 


**** ^YES 


***** 


* * 


♦DV 


* 


♦ 2 ♦ 


♦ C3* 


* * 


* * 


**** 


* 




X 


IJGVU040 


IJGVU151 .♦. 






D3 ♦. 




**D4******* 


.♦ ♦. 




♦ RESET ♦ 


.♦ SKIP ♦. YES 




♦ SWITCH TO ♦ 


♦. FREE TRACK .♦... 




X+ SKIP FREE ♦ 


♦. ROUTINE .♦ 




♦ TRACK ♦ 


♦ . .♦ 




♦ ROUTINE ♦ 


♦ . .♦ 




*********** 


♦ NO 




x". 






X 






**** 


X 




* * 


IJGVU153 .♦. 




* 2 ♦ 


E3 ♦. 




* * 


.♦ ♦. 




**** 


.♦ TRACK ♦. NO 






♦. HOLD OPTION .♦... 






♦. SPECIFIED. ♦ 






♦ . .♦ 




***** 


*. .* 




*DV * 


♦ YES 




♦ Fl* 



X 

***** 
*DV ♦ 
♦ G3^ 



.♦ NECESSARY 
TO WAIT 
♦.CALL OPEN. 



.♦ NECESSARY ♦. 

TO READ 

♦. ANOTHER .♦ 

♦RECORD. ♦ 



*****F3********** 

♦ SET TRACK ♦ 

♦ ADDRESS IN ♦ 

♦ SEARCH ARG ♦ 

♦ FIELD TO ♦ 

♦ FREE TRACK ♦ 
***************** 



****G3*********** 



♦^^♦♦♦♦♦♦^ 

♦ RESET ♦ 
SWITCH 

FOR SECOND 
GET 

* * 
*********** 



X 
***** 
*DV ♦ 
* E3+ 



END 
OF FILE 
REACHED 



SVC 36 
FREE 
TRACK 



*********** 



**** 

* * 
*DV ♦ 

* F5+ 
**** 

IJGVU075 

*****G4** ******** 

♦UPDATE CURRENT ♦ 

♦ IOAREA ADDR ♦ 

♦ BY CURRENT ♦ 

♦ RECORD LENGTH ♦ 

* * 
***************** 



***** 
*DX * 
* F3^ 



*****H1 ********** 


H2 ♦. 




*****H3********** 


* * 


.♦ ♦. 




* 


RESET ♦ 


♦ RESTORE ♦ 


.♦ NULL ♦. 


NO 


* 


ADDRESS * 


♦ USER * 


♦. SEGMENT 




* 


IN SEARCH ♦ 


♦ REGISTERS ♦ 


♦ . .* 




* 


ARGUMENT ♦ 


* * 


*. .* 




* 


* 


***************** 


*. .* 


X 


***************** 




♦YES 


***** 
♦EE ♦ 
* Bl* 
* * 
* 
IJGQUOll 




X 

**** 
* * 


X 


X 






* 2 ♦ 


*****jl ********** 


**J2******* 






* * 


♦ LCAD ♦ 


* * 






**** 


♦ IOREG ♦ 


♦TURN ON NULL ♦ 








♦ WITH RECORD ♦ 


♦ SEGMENT * 






♦ ADDRESS ♦ 


♦ SWITCH ♦ 









.♦ END 


* 


. YES 


♦. OF BLOCK 




.♦ 




♦. REACHED 


.♦ 






♦ . .♦ 








♦ . .♦ 






X 


♦NO 






**** 
* 

♦ 3 

* 5 
**** 


X 








*****j4******** 


t# 




♦ SAVE 




* 




♦ UPDATED 




* 




♦ I/O AREA 




* 




* ADDRESS 




* 





***************** 



♦♦♦♦Kl ********* 

♦ RETURN TO ♦ 

♦ PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



*********** 



X v 

***** 
*DV ♦ 
♦ Fl* 



***************** 



*****K4 ********** 

♦ PUT LOGICAL ♦ 

♦ RECORD LENGTH ♦ 

♦ IN DEBLOCKING ♦ 

♦ CONSTANTS ♦ 

♦ ♦ 
***************** 



**** 

* * 

* 4 * 

* * 
**** 
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Chart DX. SDMODVU: GET Macro (Section 3 of 11) 



****A1 ********* 

* * 

* IJGVU156 * 

* * 
*************** 



FEOVD 
= YES 
*A5 



*A5 
SDMODVU MACRO PARAMETER 
OPTIOM. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



JGVU156 X 




.*. 


**#**B1 ********** 




B3 *. 


* * 


****& £♦♦♦♦*♦♦♦♦ 


.* *. 


* SAVE * 


* * 


NO .* PUT i 


* LINKAGE * 


* IJGVU160 * 


...*. ISSUED 


* REGISTER * 


* * 


*• • 


* * 


*************** 


*. .* 


***************** 


• 


X *. .* 
**** *YES 


**** I 




* * 


* * 




* 2 * 


** *... 


X 


* * 


* A2* -X 




.. **** .X.... 


**** X 






JGVU160 .*. 




* X 


CI *. 


****«C2********** 


**C3******* 


.* *. 


* * SVC 7 * * 


♦SET SWITCH 


.* I/O *. NO 


* * WAIT FOR * * 


* TO TEST 


*. COMPLETED .* 


...X* * I/O * *.. 


* FOR END 


*. .* 


* * COMPLETE * * 


* OF FILE 



***** 
*ED * 
* Dl* 



***************** 



*********** 



.* ERROPT 
. SPECIFIED 
*. *A5 



****D3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



NO 


* 


END 


...* 




OF FILE 




*. 








*. •> 


1 ' X 




*. .* 


< ***** 




*YES 


*DY * 






* B3* 






* * 




• 



**** 

* * 

* 2 * 

* * 
**** 



IJGVU158 .*. 



.* HOLD *. NO 
*. = YES .*... 
*. *A5 .* 



.* TRACK *. 

HOLD 

♦.SPECIFIED.* 



****H1 ************ 



* SVC 36 
FREE 
* TRACK 

**************** 



FEOVD 

= YES 

*A5 



NO 


.* 


FEOVD * 


...* 




= YES 


* 


* 


*A5 .* 
*. .♦ 


X 




♦ . .♦ 


***** 




♦ YES 


*DY * 






* B3* 






* * 







.♦ ANY ♦. NO 
MORE .♦... 
*. EXTENTS .* 



**** 

* * 

* 2 * 

* * 
**** 



I *. 




**J3******* 


*. 




* 


I/O * 


NO 


* SET EOV SW. 


REAS 


*.... 


♦ FOR OPEN 


.* 




* 


.* 




* 


. .* 


X 


*********** 


♦ YES 


***** 






*ED * 






X. 


* Dl* 






X 


* * 






**** 


* 






* 


IJGVU380 






1 * 




X 


* 




**K3******* 


**** 




♦ RESET 

♦ EOF AND 
* SECOND GET 

* SWITCHES 
* 

*********** 










IJGVU372lx.... 
X 

***** 










*ED * 






* [ 


)1* 
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Chart DY. SDMODVU: GET Macro (Section 4 of 11) 



*A4 
SDMODVU MACRO PARAMETER 
OPTION, DECISION DOES 
NOT APPEAR IN ASSEMBLY 
LISTING. 



***** 








* * 






* * * 






* * 
* 






. *DX-E1,F3 






X 

.*. 


IJGVU161 .*. 




B3 *. 


B4 *. 




.* *. 


.* *. 




.* ERREXT *. NO 


.* DATA *. YES 




*. SPECIFIED .*... 


X*. CHECK .*.... 




*. *A4 .* 


*. .* 






*. .* 


*. .* 






*. .* 


*. .* 






*YES 


*NO 






: 


**** 

* * 
..X* 3 * 

* * 






X 


**** 






IJGVU161 .*. 


UGVUUNR .*. 






C3 *. 


C4 *. 






.* *. 


.* *. 






.* DATA *. NO 


.* UNRECOV *. YES 






*. CHECK .*... 


X*. I/O ERROR .*..X 






*. .* 


*. .* 






*. .* 


*. .* 






*. .* 


*. .* X 




*YES 


*NO **** 
**** . * * 

* * * 1 * 

* 3 *... * * 

* * **** 
**** X 




X 


IJGVUWLR .*. 




**D3******* 


D4 *. 




* RESET * 


.* *. 


****D5********* 


* UNRECOV * 


.* WRONG *. NO 


* RETURN TO * 


* I/O ERROR * 


♦.LENGTH RECORD.* 


.X* CALLING * 


* INDICATOR * 


*. ERROR .* 


* ROUTINE * 


* * 


*. .* 


*************** 


*********** 


*. .* 
*YES 




I **** 






* * 






...» 1 * 






* * 






X **** 


X 




IJGVUOPT .*. 


.*. 




E3 *. 


E4 *. 


***** £5********** 


.* *. 


.* WLR *. 


* GET ADDR * 


YES .* ERROPT *. 


NO .* ERROR *. YES 


* OF USER * 


...*. = SKIP .* 


...*. ROUTINE .* 


.X* MLR ERROR * 


*. .* 


*. SPECIFIED.* 


* ROUTINE * 


*. .* 


*. .* 


* * 


X *. .* 


X *. .* 


***************** 


***** *no 


**** * 




*EA * 


* * 




* H3* 


* 1 * 




* * 


* * 




* 


**** 




IJGVUSKB X 






.*. 




X 


F3 *. 


****P4*********** 


**** F5*********** 


.* *. 


IJGVU240 EB 


IJGVU240 EB 


.* ERROPT *. NO 


*_*_*_*_*_*_*_*_* 


*_*_*_*_*_*_*_*_* 


*. = NAME .*... 


X READ 


READ 


*. .* 


* COUNT * 




* COUNT * 



***************** 



***************** 



.* *. 






****G4********* 


.* RDONLY * 


. YES 


* RETURN TO * 


*. = YES 


* 




* CALLING 


*. *A4 .* 






* ROUTINE i 


*. .* 






*************** 


*. .* 




X 




*NO 




***** 

*EH * 

* Bl* 

* * 




...xl 




* 




IJGVUOPW X 




*****H3********** 






* GET ADDRESS 


* 






* OF USER 


* 






* ERROR 


* 






* ROUTINE 


* 







NO 


* 


RDONLY 


. ..* 




= YES 


• 


* 


*A4 
* . .* 


X 




*. .* 


**** 




*YES 


* 






2 * 






* 




X 


**** 




***** 
*EA * 
* CI* 
* * 
* 
IJGVUSER 



*********** 



**** 



IJGVUSER 

*****j3********** 

* SAVE MODULE * 

* REGISTERS * 

* AND RESTORE * 

* USER * 

* REGISTERS * 
***************** 



***** 
*DZ * 
* Bl* 
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Chart DZ. SDMODVU: GET Macro (Section 5 of 11) 



***** 

*DY * 

* J3* 

* * 




**** 

* * 

* 1 * 

* * 


* 




**** 


X 

.*. 

BL *. 

* *. 

ERREXT *. YES 
SPECIFIED .*..... 


*****B2********** 

* PUT I/O * 

* AREA ADDRESS * 


X 

IJGVURET .*. 

B3 *. 
.* * 
.* WAS 
*. OPERATION 
*. A WRITE 


*F3 .* 


* LIST * 



*****d ********** 

* * 

* GET ADDRESS * 

* OF I/O * 

* AREA * 

* * 

***************** 



*****Q1 ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 
ROUTINE 



* * 



* * 



***************** 



ERREXT 

SPECIFIED 

*F3 



*****Hl ********** 

* SAVE USER * 

* REGISTERS AND * 

* RESTORE * 

* MODULE * 

* REGISTERS * 
***************** 



***************** 



*********** 



.X* 



*****E 2********** 

* SAVE USER * 
REGISTERS AND * 

RESTORE *. 

* MODULE * 

* REGISTERS * 
***************** 



*****P2********** 

* SAVE USER * 

* REGISTERS * 
X* AND RESTORE *. 

* MOD REGS * 

* * 
***************** 



****B4 *********** 

* SVC * 
RETRY 
WRITE * 



***************** 



.* WAS 
*. ERROR DATA 
*. CHECK . 



SVC 
RETRY 
READ 



***************** 



X 
***** 
*DX ♦ 
* LI* 



****£3********* 

* SVC 'jO * 

* CANCLL * 

* * 

*************** 



*F3 
SDMODVU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



****A5********* 

* • * 

* IJGQUFRE * 

* * 
*************** 



* SPN 

HOLD FIRST 
*. BLOCK . 



**C5******* 

* * 

* RESET 
SPANNED HOLD 

* SWITCH 

* * 
*********** 



***** 
*EA * 
* H3* 



*****G2********** 
* SAVE USER * 

REGISTERS AND * 
RESTORE * 

MOD REGISTERS * 



***************** 



.X* 



***** E5********** 

* * 

* SET SEEK * 

* ADDRESS IN * 

* CCW TO FREE * 

* * 
***************** 



****p 5** ********* 

* SVC 6 * 
FREE 
* TRACK * 

***************** 



*****G5********** 

* RESET * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



**** H5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



.* WAS 

. OPERATION 
*. A WRITE . 



****K1 *********** 
IJGVU240 EB 

*-*-*-*-*-*-*-*-* 
REAO 
* COUNT * 

***************** 



****j2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



Sequential Access Charts 219 



Chart EA. SDMODVU: GET Macro (Section 6 of 11) 



***** 

*DY * 
* G3* 



**** 

* * 

* 1 * 

* * 
**** 



* GET ADDRESS * 


.* *. 


* 


RESTORE MOD 


* OF USER * 


.* ERET *. RETRY 


* 


REGS AND 


* ERROR * 


*. OPTION .*..... 


. • .X* 


SAVF USER 


* ROUTINE * 


*. .* 


* 


REGS 


* * 


*. .* 


* 




***************** 


*. .* 


************** 


„ 


*SKIP 




. 


**** 








* * 








*DY *... 








* G5* 








**** 






X 


UGVUSER X 


X 




.*. 


*****Cl ********** 


*****C2********** 




C3 *. 


* SAVE MOD * 


* RESTORE * 




.* *. 


* REGS AND * 


* MOD REGS * 


.* WAS 


* RESTORE * 


* AND SAVE * 


* 


OPERATION A 


* USER * 


* USER REGS * 




*. WRITE . 


* REGISTERS * 


* * 




*. .* 


***************** 


******** ********* 




*. .* 


; 


r **** 




*NO 




* * 






. 


..X* 2 * 




. 




* * 






X 


**** 




X 


.*. 




IJGVURD .*. 


Dl *. 


****** 2* ********* 




03 *. 


.* *. 


* PUT I/O * 




.* *. 


.* ERREXT *. YES 


* AREA ADDR * 




* WAS 


*. SPECIFIED .* 


..X* IN PARAMETER * 


* 


ERROR DATA 


*. *F2 .* 


* LIST * 




*. CHECK . 



****C4 *********** 

* SVC * 
RETRY 
WRITE * 



***************** 



***** 
*EL * 
* Dl* 



**************** 



*****E1 ********** 

* * 

* GET ADDRESS * 

* OF I/O * 

* AREA * 

* * 
************* **** 



SVC 
RETRY 
READ 



***************** 



*****P1 ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



ERREXT *. NO 
SPECIFIED .*... 
*F2 .* 



SDMODVU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***************** 



***** 
*DX * 
* CI* 



****F3********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 



*****G2********** 






* RESTORE * 






* MODULE REGS * 






X* AND SAVE *... 






* USER REGS * 






* - * 




***** 


***************** 




** * 

* G4* 

* * 

* 






X 




IJGVUSKB .*. 


*****H2********** 




H3 *. 


* RESTORE * 




.* * 


* MODULE * 




SPANNED 


X* REGISTERS AND * 


*. 


SPECIFIED 


* SAVE USER * 


* 


*F2 


* REGISTERS * 




*. .* 


***************** 




*. .* 



*G4 
DY-E3 
DZ-E2.F2 



****K1 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



* WAS 

OPERATION 
*. WRITE 



****K 2* ********* 

IJGVU240 CB 

(< _*_*_*_*_*_*_ * 

READ 
CUUNT * 



***************** 



**K3******* ' 

* * 
TURN ON * 

SKIP *... 
SWITCH * 

* * 
*********** 



****B5*********** 
IJGVU240 EB 
* _*_*_*_*_*_*_ * 

READ 
* COUNT * 

***************** 



HOLD 
=YES 
*F2 



NO .* TRACK *. 
X..*. HOLD 

♦.SPECIFIED.* 



***** E5********** 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* * * * 
***************** 



* SET SWITCH 
* TO SAVE 

* COUNT 

* * 

*********** 



****G5*********** 

IJGVU290 EC 

* _*-*_*_*_*_*_ * 

READ 
* RECORD * 

***************** 



*****H5********** 
*IJGVU160 DX* 
*_*_*_*_*_*_*_*_* 

* WAIT AND * 

* TEST FOR * 

* ERRORS * 
***************** 



.* *. 


**** J5********* 


WAS *. NO 


* RETURN TO < 


OPERATION A .*.... 


* CALLING 


. WRITE .* 


* ROUTINE « 


*. .* 


*************** 


*. .* X 




*YES **** 





****«4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart EB, SDMODVU: GET Macro (Section 7 of 11) 



***** 

*ED * 
* D5* 



****A1********* 

* IJGVU220 * 

* * 

*************** 



* SAVE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****Cl ********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****Di ********** 

* GET ADDRESS * 

* OF ERROR * 

* BLOCK FOR * 

* USER * 

* * 
***************** 



*****£! ********** 

* * BRANCH * * 

* * AND LINK * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 
***************** 



*****Fi ********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



*****G1 ********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



****Hi ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*A2 
EF-H2 
EJ-K4 
EK-E1 



****A3********* 

* * 

* IJGVU240 * 

* * 
*************** 



IJGVU240 

**B3******* 

* SET * 

* COMMAND 

* CHAINING BIT 

* OFF IN READ 

* COUNT CCW * 
*********** 



**C3******* 

* SET READ * 

* COUNT 
* COMMAND 

♦ CODE IN READ 

* COUNT CCW * 
*********** 



*****D3********** 

* * 

* SAVE READ * 

* DATA * 

* CCW * 

* * 
***************** 



*****E3********** 

* MODIFY * 

* READ DATA * 

* CCW WITH * 

* READ COUNT * 

* CCW * 
***************** 



****P3*********** 

* SVC * 
READ 
* COUNT * 

***************** 



****A4** ******* 

* * 

* IJGVU250 * 

* * 
*************** 



* A2* 
**** 

IJGVU250 

*****B4 ********** 

* * 

* INITIALIZE * 

* CONSTANT * 

* CF 256 * 

* * 
***************** 



* l 



**** 
IJGVU260 X 

*****C4********** 

* DECREASE * 

* NUMBER OF * 

* BYTES TO BE * 

* MOVED BY * 

* 256 * 
***************** 



*****E4********** 

* * 

* MOVE BLOCK * 

* OF UP TO * 

* 255 BYTES * 

* * 
***************** 



****F4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



**B5******* 

* RESET * 
SWITCH 

TO CHANGE 
MULT I/TRACK 

* BIT * 
*********** 



*****C5********** 
*IJGVU372 ED* 
*-*-* _*-*-*_*_*_* 

* CALL * 

* OPEN * 

* 256 * 
***************** 



*****D 5 ********** 

*IJGVU240 EB* 
*_*_*_*-*_*_*_*-* 

* READ NEXT * 

* COUNT * 

* * 
***************** 



***** E5********** 

* * 

* TURN ON * 

* MJLTITRACK * 

* BIT IN DTI * 

* * 
***************** 



***** 
*EK * 
* G4* 



*****G2********** 

* * SVC 7 * * 

* * WAIT FOR 

* * I/O 
COMPLETED 



*X. 



* * 



* * 
************** 



*****H3********** 

* * 

* RESTORE * 

* READ DATA * 

* CCW * 

* * 
***************** 



****J3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



***************** 



*****H4**** ****** 

* * 

* UPDATE * 

* POINTERS * 

* BY 256 * 

* * 
***************** 
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Chart EC. SDMODVU: GET Macro (Section 8 of 11) 



****A1 ********* 

* * 

* IJGVU290 * 

* * 
*************** 



* GET MAXIMUM * 
♦BLOCK SIZE FROM* 

* DTF TABLE * 

* * 
***************** 



.♦BLOCK SIZE 

. GT RECORD 

*. LENGTH . 



**B2******* 



*********** 

**** 



*****Dl ********** 

* * 

* MODIFY RECORD * 

* LENGTH WITH * 

* BLOCK SIZE * 



.*RCD NUMBER *. 
*. IN COUNT 
*. FIELD .* 
*. =0 .* 



*ED * 
* F5* 
**** 



**** 

* * 
.* 7 * 

* * 
**** 



****P1 *********** 

IJGVU240 EB 
*_*_*_*_*_*_*_*_* 

READ NEXT COUNT 
* # 

***************** 



*****H1 ********** 



***************** 



* EXTENT *. NO 
UPPER LIMIT .*... 
*. REACHED .* 



**Q3******* 



*********** 



2 I/O AREAS .*... 



***** 03********** 

* * 

* RE-STORE * 

* PRVIOUS COUNT * 

* FIELD IN DTF * 

* TABLE * 
***************** 



*****E3********** 

* * 

* SAVE CURRENT * 
♦COUNT FIELD IN * 

* DTF TABLE ♦ 

* * 
***************** 



♦ YES 


**** 








* * 




**** 




* 3 * 




* 




* * 




..* 5 




**** 




* 


X 






**** 


.*. 




X 


F2 ♦. 




**P3******* 


.* *. 




*SET COMMAND* 


.*FIRST READ *. 


NO 


♦CHAINING BIT * 


. OPERATION .* 




* ON IN 


*. .* 




* READ/WRITE * 


*. .* 




* CCW * 


*. .* 


X 


*********** 


♦YES 


***** 






*ED * 










* Bl* 










* * 
* 










IJGVU370 






X 




X 


**G2**^*** 




*****G3********* 


* * 




* 


*SET SWITCH TO* 




* MODIFY 


INDICATE NOT * 




♦READ/WRITE CCW 


♦ FIRST READ ♦ 




* TO READ DATA 


* OPERATION * 




* 


****** 


e ***** 




******** 


******** 



**** 

* * 

* 2 ♦ 

* * 
**** 



♦ ♦^♦♦♦**#* 

* SET MULT * 
♦TRACK BIT OFF* 

* IN READ COUNT * 
♦COMMAND CODE * 

* * 
*********** 

**** 

* * 

* 3 * 

* * 
**** 

IJGVU330 

*****J2********** 

* SET DATA * 

* LENGTH FROM * 
♦COUNT FIELD IN ♦ 

* READ/WRITE * 

* CCW * 
***************** 



****** 2********** 

* * 
*SET COUNT FIELD* 

* ID IN SEARCH * 

* ARGUMENT * 

* * 
***************** 



*****H3***+*^**** 
♦SET READ COUNT ♦ 
♦COMMAND CODE I N^ 
♦READ COUNT CCW ♦ 



****************** 



**J3******* 

♦SET COMMAND^ 

♦CHAINING BIT * 

* OFF IN READ 

* COUNT CCW ♦ 

* * 

*********** 



♦ A5 
SDMODVU MACRO PARAMETER 
OPTION — DECISION DOES 
NOT APPEAR IN AN ASSEMBLY 
LISTING. 



**** 

* * 

* 6 * 

* * 
**** 



*****C4 ********** 

* * 

* SAVE CURRENT * 
♦COUNT FIELD IN ♦ 

* DTF TABLE ♦ 

* * 
***************** 

* **** 

♦ * 
..X* 5 * 

* * 
**** 



***************** 



****E4********* 

* RETURN TO * 
♦CALLING ROUTINE^ 

* * 
*************** 



05 *. 

.* TRACK ♦. 

.♦HOLD OPTION^. 

. SPECIFIED .♦ 



****E5*********** 
SVC 35 
♦ READ ♦ 
RECORD AND 
♦ HOLD TRACK ♦ 

***************** 



**** p 5********* 
* RETURN TO ♦ 
♦CALLING ROUTINE^ 

**** *********** 



♦E0-D3,C3,B3 



**H4******* 



*********** 



**H5******* 



*********** 



X 

***** 
*DV * 
♦ C3^ 



**** 

* * 

* 7 * 

* * 
**** 
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Chart ED. SDMODVU: GET Macro (Section 9 of 11) 



♦A4 
SDMODVU MACRO PARAMETER 
OPTION. DECISION DOES NOT 
APPEAR IN AN ASSEMBLY 
LISTING. 



WAIT 

TO CALL 

OPEN 



**B1******* 






**B2******* 


* RESET * 






* RESET 


* SWITCH * 






* SWITCH TO 


* TO CALL * 






* INDICATE 


* OPEN * 






* NOT FIRST 


♦ * 






* OPEN 


*********** 






*********** 


**** 








* * . ♦♦♦♦ 


*DV 


-B3 


G3 '. 


1 * X. * * 


DX- 


-A4 


K3,J2 


* . ..* * 


DX- 


-G3 


H3 


**** . * * * 


EK 


-E2 


F2 


IJGVU372 . ♦♦*♦ 








IJGVU380 X 






X 


***#*ci ********** 






#****Q2******* 


* * 






* 


* S AV E * 






* RESTORE 


* MODULE * 






* USER 


* REGISTERS * 






* REGISTERS 



***************** 



NG .♦ HOLD 
X..*. SPECIFIED 
*. *A4 



NO .* SPANNED 
(..*. SPECIFIED 
*. *A4 



. *LAST EXTENT*. 

. ON VOLUME . 

♦ . OR FILE .♦ 



*****Hl ********** 

* UGQUFRE DZ* 
*_*_*_*_*_*_*_*_* 

* CHECK IF * 

* NECESSARY * 

* TO FREE * 
***************** 



********** 



*****02********** 

* * 

* GET ADDRESS * 

* OF DTF * 

* TABLE * 

* * 
***************** 



****E2********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



*****p 2* ********* 

* * 

* RESTORE * 

* MUtUM I- * 

* KLGISfLKS * 

* * 
***************** 



#*** 

* * 

* 3 * 

* * 
**** 



SPANNED 

SPECIFIED 

♦ A4 



***** 

♦ EC * 

* G4* 
* * 



D3 *. 
* * 

OUTPUT 

*. .♦ 
♦ . .♦ 
♦ YES 



****E3*******: 

* RETURN TO 

* CALLING 

* ROUTINE 

***********»*! 



IJGVU360 X 

**B4******* 

* SET ON * 

* MULTIPLE 
* TRACK BIT 

* IN READ 

* COUNT CCW * 
*********** 



*****C4** ******** 

* SET CURRENT * 

* COUNT FIELD * 

* CCHH IN SEARCH * 

* ARGUMENT * 

* BUCKET * 
***************** 

**** 

* * 

* EK * 

* J2* 
**** 

UGQU490 

*****C4**** ****** 

* GET * 

* LOWER * 

* HEAD * 

* LIMITS * 

* * 
*********** 



*****E4 ********** 

* SET COUNTER * 

* TO 4 TO CHECK * 
♦CCHH IN SEARCH * 

* ARGUMENT * 

* DULKLT * 
+ ** + +4**** ******* 

**** 



UGVU490 

*****F4 ********** 

♦GET CORRESPOND-^ 

♦ ING CHARACTER * 

♦ FROM SEARCH ♦ 
♦ARGUMENT BUCKET^ 
♦AND CONTROL FLD+ 
***************** 



♦♦♦♦ 

♦ ♦ 

♦ 6 * 

♦ * 
♦♦** 



SPANNED 

SPECIFIED 

♦ A4 



RDONLY 

= YES 

♦ A4 



**K1 ******* 

♦ GET END ♦ 
OF DTF 

INDICATOR 
FOR OPEN 

* ROUTINE ♦ 
*********** 



.♦SEARCH ♦. 
♦ ARGUMENT 

CHAR=UPPER 
♦. LIMIT . 



D5 ♦. 

OUTPUT 

♦ . .♦ 
*NO 

Ix.. 



.* EXTENT ♦ 
. UPPER LIMIT 
♦. REACHED .* 



**P5******* 

* RESET ♦ 
SWITCH TO 
INDICATE 
MOT FIRST 

* READ ♦ 
*********** 



*#***|-I2********** 

♦ * 

♦ SAVE ♦ 

♦ USER ♦. 

♦ REGISTERS ♦ 

♦ * 
***************** 



*****J2********** 

♦ SAVE USE ♦ 

♦ REGISTERS ♦ 
X+ AND POINTER ♦ 

♦ TO SAVE AREA * 

♦ * 
***************** 



***** H 3********** 

* SET TRACK ♦ 

* LOWER LIMIT ♦ 

♦ CHARACTER IN ♦ 
♦SEARCH ARGUMENT^ 

♦ BUCKET ♦ 
***************** 



*****J3********** 



***************** 



*****K2^*+** ♦**♦♦ 

♦ SET RECORD ♦ 

♦ NUMBER IN ♦ 

♦ SEARCH ♦ 

♦ ARGUMENT ♦ 

♦ TO ZERO * 
***************** 



IJGVU510 .X 

*****H4 ********** 

* UPDATE SEARCH ♦ 

♦ ARGUMENT ♦ 

* CHARACTER ♦ 
♦BY 1 AND STORE ♦ 

♦ ♦ 
***************** 



*****J4 ********** 

♦ SET UPDATED ♦ 

♦ SEARCH ARG * 

♦ BUCKET IN ♦ 
♦SEARCH ARGUMENTS 

♦ FIELD ♦ 
***************** 



*****K4********** 

♦ SET SEARCH ♦ 

♦ ARGUMENT ♦ 

♦ RECORD NO. ♦. 

♦ TO ZERO ♦ 

♦ * 
***************** 



***** 

♦ EC ♦ 

♦ Fl* 



IJGVU300-4 



♦♦♦♦ 

♦ * 

♦ 1 ♦ 

♦ ♦ 
♦♦♦♦ 



,**H5******* 
♦SET SWITCH ♦ 

♦ TO CALL 

OPEN 

♦ ROUTINE 

♦ * 

*********** 



*****J5********** 

♦ RESTORE ♦ 

♦ PREVIOUS ♦ 

♦ COUNT FIELD ♦ 

♦ IN DTF TABLE ♦ 

♦ ♦ 
***** ************ 



****K5********* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 
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Chart EE. SDMODVU: GET Macro (Section 10 of 11> 



*A2 
SDMODVU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*DW * 
♦ H2* 

* * 

* 

X 
IJG0UO11 .*. 

Bl *. 

.*FIRST/ONLY**. YES 
*. SEGMENT .*..... 


.*. 
B2 *. 
.* *. 
.* PREVIOUS *. YES 


IJG0U016 

♦ ♦D3* 1 *** 

* RESET 
...X* SKIP 


*. .* 


*. SKIPPED .* 


* SWITCH 



*********** 



IJGQU015 .*. 




.*. 






X 


CI *. 




C2 *. 




*****Q3********** 


.* *. 




.* *. 




♦IJGQU017 EF* 


.* SKIP *. YES 


.♦SEGMENT IN *. YES 




*_*_*_*_*_*.*_*_* 


*. SEGMENT .*.... 


*. SEQUENCE .*.... 




* INITIALIZE ♦ 


*. .* 




*. .* 






* RECORD SIZE, * 

* SEGMENT PTR * 


*. .* 




*. .* 






*. .* 


X 


*. .* 






***************** 


*N0 


***** 
*DV * 


♦NO 






* **** 




* Fl* 








* * 




* * 


X 






...* 3 ♦ 




* 
JGOU030 


**** 






X. * * 


X 


* * 






. **** 


.*. 




* 2 * 


IJGQU012 X 


Dl *. 




* * 




**D3******* 


.* *. 




**** 




♦ RESET ♦ 


.♦SEGMENT IN *. NO 






* FIRST ENTRY * 


*. SEQUENCE .* 








* AND NULL * 


*. .* 










* SEGMENT * 


*. .* 










* SWITCHES * 


*. .* 










*********** 


♦YES 












**** 












* * 












* 1 *... 












* * . 












**** 




X 




X 


IJGQU013 X 




.*. 




.♦. 


*****El ********** 




E2 *. 




E3 *. 


*IJG0U018 EF* 




.♦ ♦. 




.♦ *. 


*_*-.*_*-.*_*_*_*_* 




.* ERROPT *. NO 




.* HOLD *. NO 


* MOVE SEGMENT * 




*. SPECIFIED .*.... 




*. SPECIFIED ...... 


* UPDATE PTR, * 




*. *A2 .* 




♦. *A2 .* 


* LENGTH * 




*. .* . 




*. .* . 


***************** 




*. .* X 




*. .* X 






*YES **** 


*YES **** 






. * 


* 


* 








* 4 


* 


* 5 








* 


* 


* 








**** 


**** 


X 


IJGQU024 X 




X 


*****F1********** 




*****P2********** 




*****P3********** 


* * 




♦IJGQU018 EF* 




*IJGQUFRE DZ* 


* GET ADDRESS * 




*_*_*_*_*_*_*_*_* 




*_*_*_*_*_*_*_*_* 


* OF SEGMENT * 




* MOVE DATA * 




♦ CHECK IF ♦ 


* * 




* TO USER ♦ 




* NEED TO * 


* * 




* WORK AREA * 




* FREE TRACK * 


***************** 




ft******** 


******** 






***************** 



*****G2********** 



LAST/ONLY *. NO 


♦ GET ADDRESS ♦ 


SEGMENT .*.... 


♦ OF I/O ♦ 


.* 


♦ AREA ♦ 


*. .* 


* * 


*. .* X 


***************** 


*YES ***** 




*DV * 




* Fl* 




* * 
• * 




X 


X 


*H1********** 


*****H2********** 


* 


* MOVE SEGMENT ♦ 


RESTORE * 


* DESCRIPTOR * 


USER ♦ 


* WORD TO USER * 


REGISTERS * 


* WORK AREA * 



*****G3********** 

* * 

* GET * 

* SEGMENT *. 

* POINTER * 

* * 
***************** 



***************** 



*****jl ********** 

* LOAD RECORD ♦ 

* SIZE IN * 

* RECSIZE REG * 

* FOR USER * 

* * 
***************** 



**** K 1********* 

* RETURN TO * 

* PRCBLEM * 

* PROGRAM * 
*************** 



***************** 



* 2 



**** 
IJGQU020 

*****j2********** 

* GET RETURN ' ♦ 

* ADDRESS ♦ 

* AND STORE * 

* IM SAVE AREA ♦ 

* * 
***************** 



**H4******* 

* TURN ON * 
SPN HOLD 
AND SKIP 

FREE 

♦ SWITCHES * 
*********** 



IJG0U023 X 

*****J3********** 

♦IJGQU017 EF* 
*_*_*_*_*_*_*_*_* 

♦ INITIALIZE ♦ 

♦ SPANNED ♦ 

♦ POINTERS ♦ 
***************** 



*****J4 ********** 

* * 

* SAVE * 

* COUNT * 

* DUCKET * 

* * 
***************** 



***** 

♦ EM * 

♦ HI* 



K3 ♦. 


*****K' f ********** 


.♦ ♦. 


* SAVE DTF * 


NO .* SKIP ♦. YES 


* STATUS FOR * 


...♦. SEGMENT ...... 


* STARTING *.... 


*. .* 


* BLOCK ♦ 


*. .* 


* * 


X *. .♦ X 


***************** x 


**** * ***** 


**** 


* * *DV * 


* 


* 3 * * Fl* 


* 1 
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Chart EF. SDMODVU: GET Macro (Section 11 of 11) 



****A1 ********* 

* * 

* IJGQU017 * 

* * 
*************** 



IJGQU017 

*****B1 ********** 

* INITIALIZE * 

* RECORD * 

* SIZE TO * 

* 4 BYTES * 

* * 
***************** 



****A2********* 

* * 

* IJG0U018 * 

* * 
*************** 



*************** 



*****D1 ********** 

* * 

* SET CONTROL * 

* FIELD AREA * 

* TO ZERO * 

* * 
***************** 



*****E1 ********** 

* UPDATE WORK * 

* AREA POINTER * 

* BY 4 BYTES * 

* AND STORE IN * 

* DTF TABLE * 
***************** 



****F1********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 



***************** 



*****C2********** 

♦COMPUTE SEGMENT* 

* LENGTH-4 * 

* FOR SDW * 



*****D2** ******** 

* * 
♦UPDATE SEGMENT * 

* POINTER BY * 

* 4 BYTES * 

* * 
***************** 



*****E2**** 



***************** 



*****P2********** 

* COMPUTE * 

* NEW WORK * 

* AREA POINTER * 

* AND STORE * 

* IN DTF * 
***************** 



*****Q2********** 



***************** 



*****H2********** 

* COMPUTE * 

* NEW RECORD * 
*SIZE AND STORE * 

* IN DTF TABLE * 

* * 
***************** 
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Chart EG. SDMODVU: PUT Macro (Section 1 of 6) 



****A1 ********* 
♦ENTRY FROM PUT * 

* MACRO * 

* * 
*************** 



*A2 
SDMODVU MACRO PARAMETER 
OPTION -- DECISION DOLS 
NOT APPEAR IN AN ASSEMBLY 
LISTING. 



*****/\ /,********** 

* * 

* UPDATL CURR * 
.X*IOAREA ADDR BY * 

♦LOGICAL RECORD * 

* LENGTH * 

*******$********* 



.*. 


IJGVU40G 


X 


.*. 




Bl *. 


*****B2********** 


#****B3********** 


B4 *. 




.* *. 


* SAVE USER * 


* UPDATE CURR * 


.* *. 




.* RDQNLY *. YES 


* REGISTERS AND * 


*IOAREA ADDR BY * 


.* END OF *. 


YES 


*. =YES *A2 .*.... 


...X*POINTER TO SAVE* 


♦LOGICAL RECORD * 
* LENGTH * 


*. BLOCK .* 
*. .* 




*. .* 


* AREA * 


" . 


*. .* 


* * 


* * 


*. .* 




*. .* 


***************** 


***************** 


*. .* 


X 


*N0 






*NO 


**** 
* 

* 2 
* 

**** 




X 


X 


............X. 








IJGVU400 X 


.*. 


.*. 


X 




*****d ********** 


C2 *. 


C3 *. 


**C4******* 




* * 


.* *. 


.* *. 


* * 




* SAVE USER * 


.* SPANNED *. NO 


.* END OF *,. NO 


* SET UPDATE * 




* REGISTERS * 


*. SPECIFIED .*... 


*. BLOCK .*... 


* SWITCH ON * 




* * 


*. *A2 .* 


*. .* 


* * 




* * 


*. .* 


*. .* 


* * 




***************** 


*. .* 
*YES 


*. .* 
*YES 

**** . 


*********** 




***** * 




* * 






*EJ * 




*EN *... 


X 




* J3* 




* Gl* 


***** 




* * X 


X 


**** 


*EL * 




* .*. 


.* . 


IJGVU415 X 


* J4* 




Dl *. 


02 *. 


**Q3******* 


* # 




.* *. 


.* *. 


*SET SWITCH * 


* 




.NO .* FEOVD *. 


.* SPANNED *. NO 


*TO SKIP FRtE * 


IJGVU450 




....*. =YES *A2 .* 


*. SPECIFIED .*..X 


OPERATION AFTER* 






*. .* 


*. *A2 .* 


* UPDATE * 






*. .* 


*. .* 


* * 







..X*EH * * 
* Bl* * 
**** 



* *DW-B2 

* * * DZ-G1 

**** EN-G1 



*** 

* S 

.X* IL 



*E2********* 
VC 50 PUT * 
LEGAL AFTER * 
FEOV 



*********** 



* * 


* 


...* 4 * 


* 3 






**** 


*** 


IJGQU400 X 




**P1******* 


**** 


*SET UPDATE * 


* 


♦SWITCH IN DTF* 


* EX 


* OPEN * 


*ARE 


♦COMMUNICATION* 


* 


* BYTE * 


* 


*********** 


**** 



*P2********** 



IJGVU250 X 

*****H1 ********** 
♦IJGVU250 EB* 
*_*_*_*_*_*_*_*_* 

* MOVE LOGICAL ♦ 

* RECORD TO ♦ 

* OUTPUT AREA * 
***************** 



***************** 

X 

**** 

* * 

* 1 * 

* * 
**** 



IJGVU430 

*****G2********** 

* UPDATE SEARCH * 

* ARG WITH ADDR * 
*0F RECORD TO BE* 

* WRITTEN * 

* * 
***************** 



*****H 2** ******** 
*SET DATA LENGTH* 
* OF RECORD IN * 
*READ/WRITE CCW * 



***************** 



*****j 2* ********* 

* * 

* MODIFY * 
*READ/WRITE CCW * 

* TO WRITE DATA * 

* * 
***************** 



**K2******* 

* * 

* SET READ 
COUNT CCW TO 

* NOP 

* * 
*********** 



•*SECOND *. 
.* READ 
. OPERATION 
♦.PERFORMED. 



**F3******* 



*********** 



.* NECESSARY * 

.TO CALL OPEN 

*. ROUTINE .* 



**H3******* 



*********** 



**** 

* * 

* 5 * 



***** 
*EJ * 
* D5* 



IJGVU440 X 

**P5******* 

* SET ALL * 
♦SWITCHES OFF * 
...X* IN READ/WRITE 
* CCW * 



*********** 



************* 



**K3******* 

* SET * 

* SWITCH TO 
EXCHANGE I/O 

* AREA 

* ADDRESS * 



**** 
* 
* 3 



**G/ t ******* 

*SL-T COMMAND* 

CHAINING * 

HIT ON IN 

READ/WRITE * 

* CCW * 

*********** 



**H'»******* 

* SLT SLI * 
AND CC BITS 
ON IN READ 

COUNT CCW 

* * 
*********** 



*****J4 ********** 

* * * * 

* *SVC WRITE* * 

* * RECORD * * 

* * * * 

* # * * 
***************** 



***** 
*CL * 
* Al* 
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Chart EH. SDMODVU: PUT Macro (Section 2 of 6) 



***** 

*EG * 
* D2* 



**** 

* * 

* 1 * 

* * 
**** 



SECOND 

GET 

.SPECIFIED. 



IJGQU103 X 

*****A4 ********** 
*IJK0U121 EK* 
*_*_*_*_*_*-*_*_* 

* CHECK * 

* EXTENT * 

* LIMITS * 
***************** 



JGQU401 .*. 




.* . 






Bl *. 




B2 *. 






.* *. 










.* UPDATE *. NO 


.* 


WAIT 


*. YES 




*. SPECIFIED .*.... 


*. 


TO CALL 


.*..X 




*. .* . 


* 


. OPEN 


.* 




*. .* 




*. .* 






*. .* X 




*. .* 


X 


*YES ***** 




*NO 


**** 


*EL * 






* * 


* J4* 






* 2 * 


* * 






* # 


* 






**** 


IJGVU450 




X 




X 






.*. 


*****d ********** 




C2 *. 


C3 *. 


* * 




* * 


.* * 


* GET ADDRESS * 


.* 


BLOCKING 


*. YES .* I/O 


* OF WORK AREA * 


*. 


SPECIFIED 


.* X*. COMPLETED 



***************** 



*****oi ********** 

* INCREASE * 

* WORK AREA * 

* POINTER BY 4 * 

* AND STORE IN * 

* DTF * 
***************** 



♦RESET SECOND * 
* GET SWITCH * 



*********** 



*****03********** 

* * SVC 7 * * 

* * WAIT FOR * * 
.* * I/O * * 

* COMPLETION * * 

* * * * 
***************** 



**C4******* 

* TURN ON * 
SWITCH 

TO SKIP 
EXCHANGE 

* I/O AREAS * 
*********** 



*****D4 ********** 
*IJGVU460 EM* 
*_*_*_*_*_*_*_*_* 

* EXCHANGE * 

* I/O AREA * 

* ADDRESSES * 
***************** 



* SET CCW * 
X* COMMAND TO * 

* READ DATA * 

* * 
***************** 



****C5*********** 

* SVC * 
READ 
* DATA * 

***************** 



**************** 



El *. 




**E2******* 


*****E3********** 


*****E4 ********** 


E5 *. 




.* *. 




* SET ON * 


*IJGVU156 DX* 


*IJGQU111 EK* 


.* *. 


.* RECORD *. 


VES 


* SWITCH * 


*-*_*_*_*_*_*-*-* 


*_*_*_*_*_*_*_*_* 


.* ERROPT *. NO 


*. IN CURRENT .* 




* TO INDICATOR *... 


X* TEST EOF * 


* BUILD BLOCK * 


*. SPECIFIED .*.... 


*. BLOCK .* 




* PUT ISSUED * 


* AND ERRORS * 


* AND SEGMENT * 


*. .* 




*. .* 




* * 


* * 


♦DESCRIPTOR WORD* 


* . .* 




*. .* 


X 


*********** 


***************** 


***************** 


*. .* 




*N0 


***** 

*EJ * 

* H5* 

* * 

* 




**** I 

* * 

* 2 *... 

* * 




*YES 




I IJGQU113 




**** 




X 




X 






IJGQU101 X 


X 


.*. 




**F1*****#* 






***«*r *#«*♦♦*♦♦♦♦ 


+«**«P4** ******** 


F5 *. 




* RESET * 






♦ SI. r HLAU ♦ 


♦ SET SEGMENT * 


.* *. 




* ALL SPANNED * 






♦ COUNT CCW ♦ 


* DESCRIPTOR * 


.* ERROR IN *. NO 




* SWITCHES * 






* WI III NLW * 


<■ WORD TO * 


*. OPERATION .*..X 




* EXCEPT NULL * 






* COUNT COMMAND * 


♦ FIRST * 






* SEGMENT * 






* * 


* SEGMENT * 


♦ . .* 




*********** 






***************** 


***************** 

X 

***** 
*EJ * 


*. .* X 
*YES ***** 
*♦♦♦ . *EJ * 

* ♦ . * Bl* 
«LJ ♦... * * 

* | ?¥ * 
*«•♦* . IJGQU104 


X 






X 


* Fl* 


1JGQULKR X 


**Gi******* 






**G3******* 


* * 


ttQIj******* 


* * 






* TURN ON * 


* 


♦ RCSLT * 


* TURN ON * 






* MULTITRACK * 


IJGQU106 


♦LRKOK SWITCH * 


* UPDATE RETURN * 






* COMMAND * 
* CODE * 




* I URN ON * 


* SWITCH * 








+ 2ND ERROR * 


* * 






* * 




* SWITCH * 


*********** 






*********** 




*********** 





*****H1 ********** 

* SET COUNT * 

* SAVE AREA * 

* IN DTF TABLE * 

* TO ZERO * 

* * 
***************** 



*****jl ********** 

* * 

* SAVE SEEK * 

* ADDRESS OF * 

* FIRST BLOCK * 

* * 
***************** 



* 1 * 

* * 
**** 



H3 *. 
.* DOES 
* RECORD 
SPAN 
EXTENTS 



*. 



.* 



*****J3********** 

* GET SEQUENCE * 

* NUMBER OF * 

* STARTING * 

* BLOCK * 

* * 
***************** 



OPEN *. 

PREVIOUS * 

EXTENT * 

************** 



H5 *. 
* DOES *. 

RECORD 
SPAN 

EXTENTS . 
* . .* 



***** j 5********** 

* * 

* GET EXTENT * 

* SEQUENCE * 

* NUMBER * 

* * 
***************** 



*****K5********** 
*IJGOUEXT EK* 
*_*_*_*_*_*_*_*_* 

* OPEN *..X 

* EXTENT * 



*********** 



<*** 



IJGQU110 *EJ * 
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Chart EJ. SDMODVU: PUT Macro (Section 3 of 6) 



IJGQU110 X 

*****A5********** 

* SET COUNT * 

* BUCKET * 

* ADDRESS * 

* AND STORE * 

* * 
***************** 



* GET ADDRESS * 

* OF I/O * 

* AREA * 

* * 
***************** 

**** 



* SET CCW * 

* COMMAND * 

* TO READ * 

* * 
***************** 



****C2*********** 



**** 

* * 

* 2 * 

* * 
**** 



*****D1 ********** 

* GET SEGMENT * 

* LENGTH MINUS * 

* SEGMENT * 

* DESCRIPTOR * 

* WORD * 
***************** 



*****£!********** 

♦UPDATE SEGMENT * 

* POINTER * 

* TO NEXT *. 

* SEGMENT * 

* * 
***************** 



* SVC 

REREAD 

* RECORD 

************** 



*****D2********** 
♦IJGQU156 EM* 

*_*-*_*_*_*_*-*_* 

* TEST * 

* ERRORS * 



IJGQUll't X 

*****() 3********** 

*IJG0U1U EK* 

*_*_*_*_*_*_*_*_* 

♦BUILD BLOCK AND* 
* SEGMENT * 

♦DESCRIPTOR WORD* 
***************** 



**C3******* 

* TURN ON * 
*LAST SEGMENT * 

* SWITCH IN SEG 
* DES WRD * 

* * 
*********** 



ERROPT 
SPECIFIED 



**F3******* 





.* ERROR * 


. YES 


* RESET ALL 




♦.IN OPERATION 


.*.... 


* SPANNED 




*. .* 




* PROCESSING 


***** 


* . .* 




* SWITCHES 


* * 


*. .* 


X 


*********** 


* * * 


♦ NO 


***** 




**** * * 




*EH * 




* * * 




* G5* 




* 2 *... *EH-F4 




* * 


X 


* * EK-G5 


x! 


IJGQUERR 


***** 


**** 




*EL * 


IJGQU106 X 


X 




* J4* 


*****Q1 ********** 


*****G2********** 


* * 


*IJGOU120 EK* 


* 


* 


* 


*_*_*_*_*_*_*_*_* 


♦ GET ADDRESS 


* 


I JGVU450 


♦MOVE SEGMENT TO* 


* OF I/O 


* 




* I/O AREA * 


♦ AREA 


* 





***************** 



*****Hl ********** 



***************** 



***************** 



*****Ki ********** 

* * 

* SCT CCW * 

* CHAIN FOR *. 

* VERIFY * 

* * 
***************** 



**H3******* 

* * 
RESET ALL 

SPANNED 
PROCESSING 

* SWITCHES * 
*********** 



*****J3********** 
*IJGOU120 EK* 
*_*_*_*_*_*_*_*_* 

* MOVE LAST * 

* SEGMENT * 

* * 
***************** 



***** 

*EG * 

* Bl* 

* * 



IJGQU112 X 

*****B4 ********** 

* RESET SEEK * 

* ADDRESS AND * 

* READ COUNT * 

* FOR LAST * 

* BLOCK * 
***************** 

**** l 



**** 

X 
*****C4** ******** 

* SET CCW * 

* COMMAND * 

* CODE TO * 

* READ DATA * 

* AND COUNT * 
***************** 



****D4*********** 

♦ SVC * 
READ COUNT 
* AND DATA * 

**************** 



SVC 
WRITE 
DATA 



***************** 

'. IJGOU440 
X 
***** 

*EL * 
* Bl* 



*****B 5*** ******* 

* RESTORE * 

* SEEK ADDRESS * 

* OF 1ST * 

* BLOCK * 

* * 
***************** 



*****P4********** 

*IJGQU156 EM* 
*-*-*-*-*-*-*-*-* 

* TEST * 

* ERRORS * 

* * 
***************** 



WAIT 

TO CALL 

OPEN 



*****G5********** 

* SET DATA * 

* LENGTH * 

* AND SEEK *. 

* ADDRESS * 

* * 
***************** 



*EH *... 
* El* 
**** # 
X 
*****H5********** 



***************** 



*****j4** ******** 

♦IJGVU240 EB* 
*_*_*_*_*_*_*_*_* 

* READ * 

* COUNT * 

* * 
***************** 



*****K4********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



***** 
*EB * 
* 84* 
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Chart EK. 



SDMODVU: 



PUT Macro (Section 4 of 6) 



****Al ********* 

* * 

* IJGQU120 * 

* * 
*************** 



***************** 



*****C1 ********** 

* GET SEGMENT * 

* LENGTH MINUS * 

* 4 BYTES FOR ,* 
*SEG DESCR WORD * 

* * 
***************** 



*****Di ********** 

* UPDATE WORK * 

* AREA ADDRESS * 

* AND STORE IN * 

* DTF TABLE * 

* * 
***************** 



*****£! ********** 



* SET POINTER * 

* IN WORK * 

* AREA * 

* * 
***************** 




**** 

* * 
..X*EB * 

* B4* 
**** 

IJGVU250 


****F1 ********* 

* * 

* IJGQU111 * 

* * 
*************** 



IJGQU111 

*****G1 ********** 

* GET ADDRESS * 

* OF I/O AREA * 

* AND DATA * 

* LENGTH * 

* * 
***************** 



*****H1 ********** 

* * 

* BUILD BLOCK * 

* DESCRIPTOR * 

* WORD * 

* * 
***************** 



*****jl ********** 

* SUBTRACT BDW * 

* LENGTH FROM * 
♦SEGMENT LENGTH * 

* BUILD SEGMENT * 
♦DESCRIPTOR WORD* 
***************** 



****«! ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****A2********* 

* * 

* IJGQUEXT * 

* * 
*************** 



IJGQUEXT 

*****B2********** 

* SAVE CURRENT * 

* EXTENT * 

* SEQUENCE * 

* NUMBER * 

* * 
***************** 



**C2******* 
* RESET * 

* OPEN BYTE * 
AMD SWITCH TO 

* CHANGE * 
M/T BIT 



****A3********* 

* * 

* IJGQU121 * 

* * 
*************** 



* SET * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



*****B5********** 

* RESTORE * 

* CCW CHAIN * 
X* TO ORIGINAL * 

* FORM * 

* * 
***************** 



EB-E5 
EJ-H2 



***** 



t***** 



*****D2********** 

* DECREASE * 

* EXTENT SEQ * 

* NO. BY 1 FOR * 

* PREVIOUS * 

* EXTENT * 
***************** 



EXTENT 
ZERO OR 
LESS 



*****F2********** 

* * 

* CLOSE * 

* DTF * 

* TABLE * 

* * 
***************** 



X 
***** 
*ED * 
* Dl* 



NO .*MULTITRACK 
...*. BIT 1ST 
*. TIME 



**G3******* 

* RESET * 
MULTITRACK 
FIRST TIME 

SWITCH 

* * 
*********** 



X.X. 



*****J2********** 

* UPDATE * 

* SEEK ADDRESS * 

* IN SEARCH * 

* ARGUMENT * 

* * 
***************** 



X 
***** 
*ED * 
* D4* 



IJGQU124 

*****H3********** 

* SET DATA * 

* LENGTH IN * 

* CCW AND TURN * 

* CHAIN BIT ON * 

* * 
***************** 



**J3*** 

* RESET * 

* CHAIN BIT * 

IN READ COUNT 
c CCW * 

* * 
*********** 



****K3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



RESET 

ERROR 

SWITCH 

* 

********** 



*****E4********** 

* * 

* SAVE READ * 

* CCUNT CCW * 

* COMMAND * 

* * 
***************** 



*****P4 ********** 
♦IJGVU240 EB* 
*-*_*_*-*_*-*_*_* 

* READ * 

* COUNT * 

* * 
***************** 



*****G4********** 

* * 

* RESTORE READ * 

* COUNT * 

* COMMAND * 

* * 
***************** 



IJGQUIOK 

*****H4********** 

♦IJGGU121 EK* 
*_*_*_*_*_*_*_*_* 

* CHECK HEAD * 

* LIMITS * 

* * 
***************** 



* 1 * 

* * 
**** 



* LIMIT *. YES 

IN CURRENT .*.... 
*. BLOCK .* 



***** 

*EJ * 

* A5* 

* * 



***** 
*EJ * 
* B2* 



*****F 5 ********** 
*IJGQU11 EK* 
*_*_*_*-*_*_*_*_* 

* BUILD BLOCK * 

* AND SEGMENT * 
♦DESCRIPTOR WORD* 
***********#***** 



**G5******* 

* TURN ON * 
MIDDLE SEG 

SWITCH IN 
SEGMENT 

* DESC WORD * 
*********** 



***** 
*EJ * 
* Fl* 
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Chart EL. SDMODVU: PUT Macro (Section 5 of 6) 



**A1****^** 

* # 

* SET UPDATE 
* SWITCH 

* OFF 

* * 

*********** 



*****d ********** 

* INITIALIZE * 

* REG TO * 

* RETURN FROM * 

* WAIT ROUTINE * 

* AND SAVE * 
***************** 

**** 



* C2* 
**** 
IJGVUWT 



**** A 2** ******* 

* * 

* , ISGQU440 * 

* * 
*************** 



.♦ENTRY FOR 

. SPANNED OUTPUT 

. RECORDS. 



♦ B2 
SDMODVU MACRO 
PARAMETER OPTION. 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



*C2 
DZ-B4 
EA-C4 



*****02********** 

* * SVC 7 * * 

* * WAIT FOR * * 
X* * I/O * *. 

* * COMPLETE * * 

* * * * 
***************** 



.* SPANNED 
RECORDS 
♦.SPECIFIED. 
♦ . *B2 .* 



HOLD *. NO 
SPECIFIED .*... 
*B2 .* 



SPANNED *. NO 
RECORDS ..*... 
PRESENT .* 



D3 *. 

.* IS ♦ . 

* PRESENT 
DATA INPUT 

♦ .OR OUTPUT. 



***** 
*EK * 
* B4* 



B5 * 
* 

HOLD 



.*. 

C4 *. 

.* IS * 

PRESENT 

RECORD 

.INPUT OR 

♦OUTPUT.* 

*. .* 



***** 
*EK * 
* B4* 



**** 

* * 

* 4- * 

* * 
**** 



.* TRACK * 
.*. HOLD 

♦ .SPECIFIED.* 
*. *B2 .* 
♦ . .* 
*YES 
**** 

* * . 

* 5 *. .. 

* * . 
**** 

X 
*****D5******** 

* * 



* * 

* * 



SVC 36 
FREE 
TRACK 



***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



ERROPT 

SPECIFIED 

*N2 



E3 ♦. 

.* TEST *. 

SPANNED 

SKIP FRfcfc 

. SWITCH . 

*. .* 

♦ . .♦ 



**P3******* 

* * 
TURN 

SWITCH 
DTF 

* * 
*********** 



* 2 * 

* * 
**** 



.♦ TRACK ♦. 
.♦ HOLD ♦. NO 

CPTION .♦... 

♦. SPECIFIED. ♦ 



NO . 


* 


UNRECOV 


* 


. . .*. 




I/O 




* 


*. 


ERROR 
*. .* 


* 


X 




*. .* 




**** 




♦YES 




* 








2 * 
















**** 




X 

Jl* "♦. 
* * 






* 


RECFORM 


* 


* 




= SPN 






* 


SPECIFIEO 
♦. *B2 .* 


* 



.♦ RECFORM 

"*. 'SPN' 
*. *B2 .♦ 
♦ . .-* 
♦ YES 



* 3 * 

* * 
**** 



IJGVUOP 


Kl *. 

* 


NO 
... * 


* 
*. 


USER 
ERROR 
RUUTINE 
*. 


X 

**** 




*. .<■ 



**J2******* 

♦ TURN ON ♦ 
SPANNED 
OUTPUT 
RECORD 

♦ ERROR BIT * 
*********** 



USER 

ERROR 

ROUTINE 



*YES **** 
* * 
.X.IJGVUOPW * 2 ♦ 



RETURN 

TO 

CLOSE 



**H3******* 

* SET OFF * 
RETURN TO 

CLOSE 
SWITCH 

* * 
*********** 



*****j3********** 

♦ * 

♦ RESTORE ♦ 

♦ USER ♦ 

♦ REGS ♦ 

♦ * 
***************** 



****K3*******^* 

* SVC 9 ♦ 

* RETURN TO ♦ 

* $$BOSDCl * 
*************** 



♦EJ-F3 
EG-C4 
fcH-Bl 

**** 



RETURN 
TO GET 
ROUTINE 



SET EOF 

BIT IN 

CCB 

* * 

*********** 



**** 

* * . * * 

* * * 1 * 

* * * . * * 
**** . **** 

IJGVU450 X 

*****J4********** 

* * 

* RESTORE * 

* USER ♦ 

* REGISTERS ♦ 

* * 
***************** 



**** K 4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



** J5******* 
*SET RETURN ♦ 

♦ TO GET * 
RTN INDICATOR 

* TO ZERO * 
* * 

*********** 



***** 
*OW * 
* 05* 



***** 
*DY ♦ 
* H3* 
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Chart EM. SDMODVU: PUT Macro (Section 6 of 6) 



****A1** 

* v 

* IJGQU156 * 

* * 

*************** 



**** 

* * 

* 2 * 

* * 
**** 



IJGQUSER X 

*****A3********** 

* SAVE MODULE * 

* REGISTERS * 

* AND RESTORE * 
*USER REGISTERS * 

* # 
***************** 



*A4 
SDMODVU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLY 
LISTING. 



****A5********* 

* IJGVU460 * 

* * 
*************** 



* SAVE POINTER 

* TO CALLING 

* ROUTINE 
* 
**************** 



.* ERREXT *. NO 
*. = YES .*... 
*. *A4 .* 



ERROPT 

SPECIFIED 

*A2 



ERREXT 

= YES 

*A2 



YES .* ERROR *. 
...*. IN READ 

*. OPERATION.* 
*. .* 
X *. .* 
**** *NO 

* * 

* 1 * 

* * 

**** .X 



*****C2********** 

* * SVC 7 * * 

* * WAIT FOR * * 
.X* * I/O * * 

* * COMPLETED * * 

* * * * 
***************** 



****D2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



ERROR IN *. 
READ 
.OPERATION.* 



*EE * 
* J2* 
**** 
IJGQU02L 



**** 

* * 

* 5 * 

* * 
**** 



*YES 

**** 

* * 
..X* 1 * 

* * 
**** 

**G2******* 

* RESET * 
UNRECOVERABLE* 

* I/O ERROR * 
* SWITCH * 

* * 
*********** 

**** 

* * 
...* 1 * 

* * 
**** 



USER 
WLRERR 
ROUTINE 



*****Ki ********** 
* GET ADDRESS * 

OF USER * 
ERROR *. 

ROUTINE * 

¥ * 

***************** 



.X* 



USER *. NO 
ERROR .*..X 
ROUTINE .* 



*****K2********** 

* GET ADDRESS * 

* OF USER * 
.* ERROR * 

* ROUTINE * 

* * 
***************** 



*****D3********** 

* MOVE I/O * 

* AREA * 

* ADDRESS TO * 
*USER PARAMETER * 

* LIST * 
***************** 



* LOAD Ki CSIZL * 

* KIGISTI.R * 

* WI IH KLCORD *X 
«• LLNGJII FUR * 

* USLR * 
***************** 



*****G3********** 

* STORE WORK * 

* AREA ADDR * 

* IN PARAMETER * 

* LIST * 

* * 
***************** 



*****H3********** 

* LOAD * 

* ADDRESS * 

* OF PARAMETER *. 

* LIST IN * 

* REGISTER 1 * 
***************** 



*****C4****4***** 

* * 

* GET ADDRESS * 
.* OF OUTPUT * 

* AREA * 

* * 
***************** 



*****04********** 

* LOAD RECSIZE * 

* REGISTER * 

* WITH RECORD *X. 

* SIZE FOR USER * 

* * 
***************** 



*****E4 ********** 

* LOAD ADDRESS * 

* OF WORK * 

* AREA IN * 

* REGISTER 1 * 

* * 
***************** 



****F4********* 

* BRANCH TO * 

* USER ERROR * 

* ROUTINES * 
*************** 



LOAD 

OLD 

ADDRESS 



, *****H4********** 

* LOAD MODULE * 

* REGISTERS * 

* AND SAVE * 
*USER REGISTERS * 

* * 
***************** 



RDONLY 

= YES 

*A2 



*****K4 ********** 



***************** 



********** 



*****C5********** 



EXCHANGE 
ADDRESS 
IN CCW 



*********** 



*****D5********** 

* * 

* SAVE * 

* OLD * 

* ADDRESS * 

* * 
***************** 



****E5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****G ij* ********* 

* LOAD MODULE * 

* KIGISTERS * 
X* AND SAVE * 

*USER REGISTERS * 

***************** 



*****H5********** 

* LOAD * 

* POINTER TO * 
*CALL ING ROUTINE* 



****** 
**** 



**** 
IJGQUSKB X 

** J5******* 



TURN ON 

ERROR 

SWITCH 

* * 

*********** 



****«5********* 

* RETURN TO * 
*CALLING ROUTINE* 

* * 
**** *********** 
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Chart EN. SDMODVU: Close Routine, RELSE Macro 



****A1 ********* 

* ENTRY FROM * 

* RELSE * 

* MACRO * 
ft************** 



****A2********* 

* ENTRY FROM * 

* $$BOSOC1 * 



*A3 
SDMODVU MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



IJGVU52U 

*****B1 ********** 

* SET CURRENT * 

* ADDRESS OF * 

* I/O AREA WITH * 

* END OF BLOCK * 

* ADDRESS * 
***************** 



.*. 
CI *. 
It *. 
UPDATE *. NO 


IJGVURRH .*. 

C2 *. 
.* *. 
.* RETURN *. NO 


****C3********* 
* RETURN TO 


CN .* 
it. .* 


*B-TRANSIENT* 
*. .* 


* PROGRAM 
*************** 



****D2********* 

* SVC 9 * 

* RETURN TO * 

* $$BOSDCl * 
*************** 



RDONLY 

= YES 

*A3 



.X* 



*****£ 2********** 

* SAVE USER * 

* REGISTERS * 
AND POINTER * 

* TO SAVE * 

* AREA * 
***************** 



*****P1 ********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



HOLD 


*. 


YES 


= YES 




*.... 


*A3 


*" 




.* 






*. .* 




X 


*NO 




***** 
*EG * 
* D3* 


X 




* # 


***** 




* 


*EG * 




IJGVU415 


* E3* 






* * 






* 






IJGVU420 
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Chart EP. CNTRL Macro, Variable-Length Record Modules 



****A2********* 

* ENTRY FROM >. 

* CNTRL * 

* MACRO * 
*************** 



G - INPUT FILE 
P - OUTPUT FILE 
U - INPUT FILE 

WITH UPDATING 



**#*#33********** 

* * SVC 7 * * 

* * WAIT FOR * * 
X* * I/O * *. 

* * COMPLETED * * 

* * * * 
***************** 



*****C2********** 

* SET SYMBOLIC * 

* UNIT ADDRESS * 

* FOR FILE IN * 

* CONTROL CCB * 

* * 
***************** 



*****02*#******** 

* SET * 

* COMMAND * 

* CODE IN * 

* CONTROL * 

* CCW * 
***************** 



*****E2********** 

* * 

* GET ADDRESS * 

* OF CONTROL * 

* CCB * 

* * 
***************** 



****F2*********** 
SVC 
* CONTROL * 
SEEK/ 
* RESTORE * 

***************** 



****G2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart EQ. SDMODUI: 



GET Macro (Section 1 of 5) 



****A1********* 

* ENTRY FROM * 

* GET * 

* MACRO * 
*************** 



RDONLY 

= YES 

*A2 



*A2 
SDMODUI MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



IJGUG030 

* a*** 02* ********* 

* SAVE USER * 

* REGISTERS * 
...X* AND POINTER * 

* TO SAVE * 

* AREA * 
***************** 



FEOVD 

= YES 

*A2 



ANY 
MORE 
EXTENTS 



* SAVE USER * 

* REGISTER * 

* 9-14 * 

* * 
***************** 



* FIRST *. NO 

ENTRY INTO .*... 
*. ROUTINE .* 



* SET FIRST 
* ENTRY SWITCH 

* ON 

* * 

*********** 



*****F1********** 

* INITIALIZE * 

* RECORD NOS * 

* IN DTF * 

* TO ZERO * 

* * 
***************** 



**Gi******* 

* SET MULTI * 

* TRACK BIT 
ON IN READ 

* COUNT CCW 

* * 
*********** 



E2 *. 
.* IS 
THERE 
A WORK 
. AREA 
*. 



**** 

* * 

* 1 * 

* * 
**** 



ERROPT 


* 


NO 


SPECIFIED 




*. .. . 


*A2 


* 




*. .* 






*. .* 




X 


*YES 




***** 
*ET * 


* 




* Bl* 

* * 

* 


X 




IJGUG060 


.*. 






D3 *. 






* * 






ERREXT 


* 


NO 


SPECIFIED 




* 


*A2 


* 





**Q4******* 

* * 

SET EOV * 

SW FOR * 

OPEN * 

* * 
*********** 

* **** 

* * 
..X*ET * 

* B3* 
**** 



S ***** 

**** *et * 

* * * Bl* 

* 3 * * * 

**** IJGUG060 



*G2 
ER-F4,F1 
ES-D4,D5 
ET-D5 



**F3******* 

* SET OFF * 
♦UNRECOVERABLE* 

* I/O ERROR * 
* SWITCH * 

* * 
*********** 



.* USER *. YES 
.ERROR ROUTINE.*.... 
*- SPECIFIED.* 



.* RDONLY 


* 


. YES 


*. = YES 




.* 




*. *A2 


* 






*. ..* 








*. .* 






X 


*NO 






***** 
*ES * 
* Bl* 

* * 
* 

IJGUGUSR 


X 








*****G4********** 




* SAVE MOD 




* 




* REGS AND 




* 




* RESTORE 




* 




* USER REGS 




* 





***** 
** * 
* G2* 



FEOVD 

= YES 

*A2 



Jl *. 
* WAS 
END OF 
VOLUME 
FORCED 



*NO **** 


***** 


* * 


*ET * 


X.X.* 1 * 


* B3* 


* * 


* * 


**** 


* 




JGUG310 


IJGUG040 X 




*****Kl ********** 




*IJGUG250 EU* 




*_*_*_*_*_*_*_*_* 




* READ RECORD * 





****H3*********** 
IJGUG330 EU 
*_*_*_*-*_*_*-*_* 
READ COUNT 
* FIELD * 

***************** 



*****J3********** 

* UPDATE * 

* SEEK ADDR * 

* WITH COUNT * 

* FIELD ID * 

* * 
***************** 



*************** 



*****H4** ******** 

* GET ADDR * 

* CF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 



ERREXT 

SPECIFIED 

*A2 



*********** 



* 2 * 

* * 
#*** 



ERROPT 


* 


YES 


= SKIP^ 


.* 


*X... 


.* 






*. .* 






*NO 




**** 
* 


.IJGUG060 * 1 


X 




* 


***** 




**** 


*ET * 






* Bl* 







*****«/ t ********** 

* * 

* GET ADDR * 

* or I/O * 

* ARI A * 

* * 
******«<»***«***«■* 



***** j 5********** 

* PUT ADDR * 

* OF I/O * 
X* AREA IN * 

* PARAMETER * 

* LIST * 
***************** 



*****K5********** 

* * 

* GET ADDR * 

* OF PARAMETER * 

* LIST * 

***************** 
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Chart ER. SDMODUI: GET Macro (Section 2 of 5) 



***** 

*EQ * 
* K4* 



*:«***B1 ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 
ROUTINE 



* * 



* * 



***************** 



*B2 
SDMODUI MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



ERREXT 
SPECIFIED 

*B2 



*****01 ********** 
*L0AD MCD. REGS.* 

* 1-14 * 

* SAVE USER * 

* REGS 9-13 * 

* * 
***************** 



****EL *********** 
IJGUG330 EJ 
* _*_*_*_*_*_*_ * 

READ 
* COUNT * 
FIELD 
***************** 



*****F1 ********** 

* * 

* UPDATE * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



*****E2********** 

* LOAD MOD. * 

* REGS AND * 

* SAVE USER * 

* REGS. * 

* * 
***************** 



****F2*********** 

* SVC * 
RETRY 
* READ * 

***************** 



*****D3********** 
*LOAD MOD. REGS.* 

* 1-14 * 
.X* SAVE USER * 

* REGS 9-13 * 

* * 
***************** 



READ 
* COUNT * 
FIELD 
***************** 



***#*P3 ******+*++ 

* ♦ 

* UPDATL * 

* SEEK ♦ 

* ADDRESS * 

* * 
************** «i ** 



***##***#**### 



****D4*********** 
IJGUG330 EJ 
* _*_*_*_*_*_*_ * 

READ 
* COUNT * 
FIELD 
***************** 



*****E4**** ****** 

* * 

* UPDATE * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



***** 
*l.U * 
♦ Kl* 



X 

***** 
*EO * 
* Kl* 



***** 
*ET * 
* Bl* 
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Chart ES. SDMODUI: GET Macro (Section 3 of 5) 



***** 

*EQ * 
* F4* 



**** 

* * 

* 1 * 

* * 
**** 



IJGUGUSR X 

*****&! ********** 

* SAVE MOO REGS * 



***************** 



*****Ci ********** 

* LOAD ADDR * 

* OF USER * 

* ERROR * 

* ROUTINE * 

* * 
***************** 



*****Q3********** 

* * 

* SAVE SAVE * 

* AREA * 

* POINTER * 

* * 
***************** 



SOMODUI MACRO PARAMETER 
OPT ION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



ERREXT 

SPECIFIED 

*C2 



*****£ i ********** 

* LOAD I/O * 

* AREA ADDR * 

* INTO * 

* REG 1 * 

* * 
***************** 



*****Gi ********** 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * 
********** 



* * 
c ****** 



ERREXT 

SPECIFIED 

*C2 



***** j i ********** 

* LOAD MOD REGS * 

* 1-15 * 

* SAVE USER * 

* REGS * 

* 8-13 * 
***************** 



***** D2** ******** 

* * 

* MOVE I/O * 
X* ADDRESS * 

* TO LIST * 



*****q 2* ********* 

* * 

* SET I/O * 

* AREA TO * 

* ALL ZEROS * 

* * 
***************** 



*****P2* ********* 

* SET FIRST * 

* DIGIT OF I/O * 

* AREA ADDR * 

* TO ZERO * 

* * 
***************** 



****C4*********** 
IJGUG330 EU 
* _*_*_*_*_*_*_ * 

READ 

COUNT * 
FIELD 
*************** 



*****D4 ********** 

* * 

* UPDATE * 

* SEEK * 

* , ADDRESS * 

* * 
***************** 



***** 
*EU * 
* Jl* 



*****B5********** 

* SAVE * 

* SAVE AREA * 

* POINTER IN * 

* REG 8 * 

* * 
***************** 



****C5*********** 
IJGUG33D EU 
* _*_*_*_*_*_*- * 

READ 
* COUNT * 
FIELD 
***************** 



*****D5********** 

* * 

* UPDATE * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



****P4** ********* 
IJGUG330 EU 
IGNORE * _*-*_*-*_*-*_ * 

* X READ 

* COUNT * 
FIELD 
***************** 



• X* 



*****H2********** 
* LOAD RETURN * 
ADDRESS * 
INTO * 
REG 14 * 
*G2 * 
***************** 



****G3 *********** 

* SVC * 
RETRY 
* READ * 

***************** 



***** 
*EO * 
* A3* 



*****G4********** 

* * 

* UPDATE * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



***** 
*ET * 
* Bl* 



***** j 2* ******** 

* LOAD MOD REGS 

* 1-15 

* SAVE USER 

* REGS 

* 8-13 
**************** 



**** 

* * 

* 2 * 
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Chart ET. SDMODUI: GET Macro (Section 4 of 5) 



»A2 
EQ-C3,D4,E4 f K3 
ER-F3 
ES-G4 



SDMODUI MACRO PARAMETER 
OPTION DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



IJGUG060 .*. 

Bl «. 

.**WORK AREA**. NO 
*. SPECIFIED .*... 


#** 


X 
*#B2»***»***»* 

RESTORE * 

USER * 

REGISTERS * 


B3***«. 

.** RDONLY **«. YES 
». =YES .* 


IJGUG310 

»»»»»B4****«*» 
* SAVE MOD 
» REGS AND 
...X* RESTORE USER 




*. «A4 .» 

"*NO 

I.JGUG310 X 

***«*C3 «******«*» 

* SAVE MOD » 

* REGS AND « 
» RESTORE » 

* USER REGS « 


» REGISTERS 


*YES 

IJGUG170 X 

•#»«*C1»*«***»»*» 

* GET ADDRESS » 

* OF WORK * 
« AREA AND ♦ 

* MOVE RECORD * 

* IN * 


»** 


) 

»#C2» 

RETUf 

PRO 

PROC 


< 

;N TO * 
3LEM * 
5RAM * 


X 
*»C4»»»»*»* 

* SET END 
» OF EXTENTS 

• INDICATOR 
» FOR OPEN 

* ROUTINE 











IJGUG070 

***»»DL **»*»*»« 
« SET RECORD 

• LENGTH AND 

* EXCHANGE I/O 
« AREA ADDR 



GET ADDRESS 

OF DTF 

TABLE 



«E3*«««»« 

SVC 2 

FETCH 

$$BOPEN 



IJGUG080 

****G1*»* 
IJGUG250 



uisrnui mod 

Kl C.S AND 

SAVfc USER 

RLGS 



GET ADDR 

OF DTF 

TABLE 



• £'••••••• 

SVC 2 

I ETCH 

ttBOPEN 



»#* FA*» »»***« 

RESTORE MOD 

REGS AND 

SAVE USER 

REGS 



FEOV 


*. 


NO 


SWITCH 






ON 












*. . * 




X 


• YES 




*EU 
* C3 




I JGU 5260-4 


X 






**C5**»*« 


»« 




RESET 






FEOV 






SWITCH 


^* 





X 

• EQ* 



**»G4*»«»*«« 

SET RECORD 

NUMBER IN 

SEARCH ARG 

TO ZERO 



GET LENGTH 

OF INPUT 

RECORD FOR 

USER 



GET ADDRESS 
OF RECORD 
FOR USER 



SET RECORD 

NUMBER TO 

ZERO 
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Chart EU. SDMODUI: GET Macro (Section 5 of 5) 



»»«*A1****** 
* IJGUG330 



*A2 
SDMODUI MACRO 
PARAMETER OPTION- 
DECISION DOES NOT 
APPEAR IN ASSEMBLY 
LISTING. 



.RDONLY = YES*. NO 



**YES 






GUG330 X 
•*»««C1*«*«****** 

* SAVE READ * 
» CCW * 


IJGUG330 
»«*»*C2* 

* SAVE 

* C( 


< 

READ 

:w 



SVC « 
EXCP 






X 

Fl***». 

I/O **•. NO 
COMPLETE 


F2»»»***»*** 

» • SVC 7 * « 

...X» » WAIT * «.. 


.;' 



RESTORE 

READ 

CCW 



««**»H2****»* 

* RESTORE 

* READ 

* CCW 



SET GOV 

SWITCH FOR 

OPEN 



»»A3*«**»* 
IJGUG250 



.» REACH *. NO 
*. TRACK UPPER .«... 

«. LIMIT .» 



.• RECORD 


• . NO 


ZERO 


...... 
















»YbS 










• 


X.. 


* 2 • . 


ET *.. 






B5« 












X 




»*»«C3****< 




IJGUG330 


EU 


READ 




COUNT 


» 




X.. 





. • REACH • 
.EXTENT UPPER 
• . LIMIT .* 



D3 *. 

.« DATA *. 
LENGTH 

LESS THAN 
. BLOCK . 

•.SIZE .* 

"•NO 



**E3**»«»* 
SET DATA 

LENGTH 

EQUAL TO 

BLOCK 

SIZE 



«»*G3**«*«»«* 
GET A NON- 
ZERO NUMBER 
FOR DATA 
LENGTH 



FEOVD 

= YES 

• A2 



ONE 

BYTE 

KEY 



• ANY » 

MORE 
•. EXTENTS .« 



••• .YES 




• YES 








/, • . 


















X 












C4 *. 




*»C5*»»*»»« 






• * 


.» MULTI- ». 


YES 


• TURN OFF 


«. TRACK BIT .* 




...X« MULTI-TRACK 


». ON .» 




* BIT 














• NO 




• • . 

• 4 «... 


IJGUG320 X 




IJGUG290 X 


»#D4«*»»*«* 




»*»*D5*»«**»*« 








• TURN ON * 




• SVC 


» MULTI-TRACK • 




EXCP 


» BIT » 












«****•*•««• 







GET TRACK 
LOWER 
LIMIT 



««E5***«««* 
RETURN TO 
MAINLINE 



SEARCHING *. NO 
UPPER .*... 
. LIMIT .• 



SET UP TO 

SEARCH LOWER 

LIMIT 



IJGUG240 
»»*««G5« 

• UPDATE SEARCH 

* ADDRESS AND 

* SET UP FOR 

• RECORD ZERO 



• DECREMENT 


• 


YES 


* 


REACH *. 


•ADDRESS POINTER* 




EXTENT UPPER . 


* BY 1 








LIMIT .* 


• 


* 


X 
*•** 




*. . * 

♦ NO 


m 




















* 1 » 






X 




* * 




X 










• •«•* 










*ET * 


* 2 * 








* B3* 










» » 


• •*« 








IJGUG310 
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Chart EV. SDMODUO: PUT Macro (Section 1 of 5) 



**** 

* * 

* 2 * 

* * 
**** 



*A2 
ENTRY FROM 
PUT MACRO. 



*************** 



*A3 
SDMODUO MACRO 
PARAMETER 
OPTION-DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



*****d ********** 

* SAVE USER'S * 

* REGISTERS AND * 

* A POINTER TO * 

* SAVE AREA * 

* * 
***************** 



*****C2********** 



***************** 



.* FIRST * 
*. ENTRY SWITCH 
*. ON .* 



#*E1 ******* 

* TURN ON * 

FIRST 

ENTRY 

SWITCH 

* * 
*********** 



**F1******* 

* * 
RESET 

EOF 
SWITCH 

* * 
*********** 



FEOVD *. NO 
= YES .*... 
*A3 .* 



***** 
*EX * 
* Al* 



IJGUP070 

*****{= 2********** 
*IJGUP070 EW* 
*_*_*_*_*_*_*_*_* 

* DETERMINE NO. * 

* OF I/O AREAS * 

* AND WORK AREA * 
***************** 









**** 








* * 








.* EX * 








* E4* 




X 


**** 




.*. 






F2 *. 




* 


*. 


.* 




*. 


.RDONLY = 


YES .* 


*. 


*/ 


i3 


.* 



*****G2**** ****** 

* * 

* RESTORE * 

* USERS * 

* REGISTERS * 

* 7-13 * 
***************** 

**** 



*****G3********** 

* * 

* RESTORE * 

* USERS * 

* REGISTERS * 

* 8-12 * 
***************** 



***************** 



*****A4** ******** 
*IJGUP220 EW* 

* CHECK DASD * 

* ADDRESS * 

* * 
******** 



:******** 



***************** 



*****D4**** ****** 
*IJGUP150 EV* 
*-*-*-*-*-*-*-*-* 

* EXCHANGE I/O * 

* AREA * 

* ADDRESS * 
***************** 



*****E4********** 

♦IJGUP200 EZ* 
*_*_*_*_*_*_*_*_* 

* WRITE * 

* DATA * 

* * 
***************** 



*****P4 ********** 

* * 

* SET POINTER * 

* TO DATA AREA * 

* IN IOAREA * 

* * 
***************** 



**** 
*EX * 
* G2 



****/\5********* 

* * 

* IJGUP150 * 

* * 
*************** 



IJGUP150 

*****B5********** 

* SAVE * 

* ADDRESS OF * 

* OLD I/O * 

* AREA * 

* * 
***************** 



***C5********** 

* 

GET ADDRESS * 

OF NEW * 

I/O AREA * 



***** 05********** 

* STORE OLD * 

* I/O AREA * 

* ADDRESS IN * 

* NEW I/O AREA * 

* ADDR AREA * 
***************** 



****£ 5 ********* 
* RETURN TO * 
♦CALLING ROUTINE* 



*****!{(,********** 
*IJGUP2<30 EV* 

*_*_*_*_*_*_*_*_* 

X* COMPLETE * 

* I/O * 

* * 
***************** 



*****K1 ********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****K2********** 

* SAVE USER'S * 

* REGISTERS * 

* AND A * 

* POINTER TO * 

* SAVE AREA * 
***************** 



*****«3 ********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****K4**** ****** 

* * 

* RESTORE * 

* USER'S *. 

* REGISTERS * 



***** j 5********** 

* * 

* RESTORE * 
X* USER'S * 

* REGISTERS * 

* * 
***************** 



****K5********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



* 1 * 

* * 
**** 
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Chart EW. SDMODUO: PUT Macro (Section 2 of 5) 



****A1***** 

* * 

* IJGUP120 * 

* , * 
*************** 



SDMODUO MACRO PARAMETER 
OPTION - DECISION DOtS 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



****A3********* 

* * 

* IJGUP220 * 

* * 
*************** 



NO .* WORK *. 
...*. AREA 

♦.SPECIFIED.* 



.♦ *. YES 

♦.RDONLY = YES .*.... 
*. *A2 .* 



*****El ********** 

* SAVE * 

* RETURN * 

* ADDRESS IN * 

* SAVE * 

* * 
***************** 



***** pi ********** 

*IJGUP290 EY* 
*_*_*_*_*_*_*_*_* 

* COMPLETE * 

* I/O * 

* * 
***************** 



*****Gi ********** 

* RESTORE * 

* USER * 

* RETURN * 

* ADDRESS * 



********* 



*** 



***** 
** * 
* B2* 



***************** 



NO .* BLOCKSIZE *. 

,..*. GREATER THAN . 

*DATA LENGTH* 



*****C4**** ****** 

* * 

* GET * 

* OVERHEAD * 

* BYTES * 

* * 
***************** 



IJGUP234 X 

*****C5********** 

* DETERMINE * 

* EFFECTIVE * 
♦LENGTH OF TRACK* 

* FOR UNKEYED * 

* RCDS *J2 * 
***************** 



***** 03 ********** 

* * 

* SET DATA * 

* LENGTH EQUAL * 

* TO BLOCKSIZE * 



**** 

* * 

* 3 * 

* * 
**** 



*****E2********** 

* * 

* SAVE * 

* RETURN * 

* ADDRESS * 

* * 
***************** 



*****F2********** 
*IJGUP290 EY* 
*_*_*_*_*_*_*_*_* 

* COMPLETE * 

* I/O * 

* * 
***************** 



*****G2* ********* 

* * 

* RESTORE * 

* RETURN * 

* ADDRESS * 

* * 
***************** 



****H2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



CLOSE 

SWITCH 

ON 



X 
***** 

*FA * 
* A3* 



* UPDATE * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



****E4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****P3********** 

* * 

* GET * 

* TRACK * 

* CAPACITY * 

* * 
***************** 



**** 

* * 

* J5 *X 

* * 
**** 



****D5********* 

* * 

* IJGUP080 * 

* * 
*************** 



* INITIALIZE * 

* REGISTERS FOR * 

* DATA MOVE * 

* * 
***************** 



IJGUPO90 .*. 

F5 *. 

.*DATA TO*. 

YES .* BE MOVED * 

,...*. LESS THAN OR 

*. EQ. TO .* 

*. 256 .* 



.* ROOM *. 
AVAILABLE 
ON TRACK 

.FOR DATA . 



* * * *FA-E2 t Jl 



IJGUP270 

*****G4********** 
*IJGUP160 EZ* 
*_*_*_*_*_*_*-*_* 

...X* UPDATE * 

* DASD * 

* ADDRESS * 
***************** 



* EXTENT *. YES 

UPPER LIMIT .*.... 
♦.EXCEEDED .* 



*N0 



*****G5********** 

* * 

* MOVE 256 * 

* BYTES TO * 

* I /O AREA * 

* * 
***************** 



MORE 
DATA 
TO BE 
MOVED 



*J2 
REFER TO FORMAT 
LABEL FIELD 9. 



*****J3********** 

* DETERMINE * 

* EFFECTIVE * 
♦LENGTH OF TRACK* 

♦ FOR UNKEYfcD ♦ 

♦ RCDS ^J2 ♦ 
***************** 



IJGUP280 ♦♦** 

IJGUP100 X 

***** j 5********** 



***************** 



****K5********* 

* RETURN * 

* TO CALLING * 

* ROUTINE * 
*************** 
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Chart EX. SDMODUO: PUT Macro (Section 3 of 5) 



* * 




* 




. *EW-H4 




EV-H1 




X 




IJGUP280 .*. 




Al *. 


*****A2*********^ 


.* *. 


* * 


.* RDONLY *. YES 


♦ SAVE REGS AND* 


*. =YES *A4 .* 


..X* 1, AND RETURN * 


*. .* 


* ADDRESS * 



*****Bl ********** 

* SAVE REGS * 

* AND 1, AND * 
♦RETURN ADDRESS,* 

* IN SAVE AREA * 

* * 
***************** 



*****d ********** 



***************** 



**B2******* 

*SET END OF * 

DTF'S INDICATOR 

* FOR OPEN * 

* ROUTINE * 

* * 

*********** 



*****C2********** 



SDMODUO MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



RESET 

EOF 

SWITCH 

* * 

*********** 



***************** 



************** 



WAS *. NO 
EOV .*..X 
FORCED .* 



**G1 ******* 



*********** 



**H1 ******* 

* * 
RESET 

SWITCH FOR 
CLOSE 

* * 
*********** 



****jl********* 

* SVC 9 * 

* RETURN TO * 

* B-TRANSIENT * 
*************** 



* * SVC 2 * * 
X* * FETCH * * 

* * $$BOPEN * * 

* * # * 
***************** 



***** 

*EW * 

* E3* 

* * 



RDONLY 

= YES 

*A4 



IJGUP281 

*****E3*** ******* 
*SAVE REGS AND* 
*1, USER'S REGS,* 
. ..X* AND RESTORE * 
* RETURN ADDR * 



***************** 



**D4******* 

* * 

* * 
* RESET FEOV SW * 

* * 

* * 
*********** 



*****E4 ********** 



***************** 



IJGUP281 

*****P2********** 

* SAVE REGS * 

* AND 1, USER'S * 

* REGS 7-12 AND * 
♦RESTORE RETURN * 

* ADDR * 
***************** 



***** 
*EV * 
* F2* 



IJGUP070+'* 



♦ASSIGNED ***** 
*EV * 
* J4* 
* * 



***** 
*EW * 

* E3* 
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Chart EY. 



SDMODUO: 



PUT Macro (Section 4 of 5) 



****A1 ********* 

* * 

* IJGUP290 * 



*A3 
SDMODUO MACRO PARAMETER 
OPTION - DECISION DCES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*************** 






***** 






**** 












*EZ * 




* * 










* J 5* 




* 2 * 










* * 




* * 










* 




**** 




IJGUP290 X 












X 

.*. 




*****ni********** 












B4 *. 


*****B5********** 


* SAVE * 














* * 


* RETURN * 












.* ERREXT *. YES 


- * MOVE I/O * 


* REGISTER * 












*. SPECIFIED .*... 


....X* ADDRESS * 


* 12 * 












*. *A3 .* 


* TO LIST * 


* * 












*. .* 


* * 


***************** 












*. .* 
*N0 


***************** 


**** * 
















* * . 
















* 3 *... 
















* * .X 
















**** 












X 










X 


X 


*****ci ********** 










*****C4 ********** 


*****C5********** 


* * 










* LOAD I/O * 


* > * 


* TEST * 










* AREA ADDR * 


* START I/O * 


* TRAFFIC * 










* INTO * 


* AREA ADDR * 


* BIT * 










* KEG 1 * 


* WITH ZERO * 


* * 








**** 


* * 


* * 


***************** 








* * 

* 1 * 

* * 
**** 


***************** 


***************** 


'.X 








: * 


*x 




X 












.*. 








X 


X 


X 


Dl *. 




*****o 


*****D3********** 


*****G4 ********** 


***** D5********** 


.* *. 




* 


* * * 


* LOAD MODULL" * 


* * BRANCH TO * * 


* * 


.* I/O *. NO 


* 


* SVC 7 * * 


* KLT.ISTIR * 


* * USfcR * * 


* LOAD Rl * 


*. COMPLETE .* 




.X* 


* WAIT **.... 


* save USER * 


* * ERROR * * 


* WITH LIST * 


*. .* 




* 


* * * 


* RLGISTLRS * 


* * ROUTINE * * 


* ADDRESS * 


*. .* 




* 


* * * 


* * 


* * * * 


* * 


*. .* 




***************** 


***************** 


***************** 


***************** 


*YES 














I 


X 












X 




.*. 








X 


.*. 


.*. 


El *. 








*****E3********** 


E4 *. 


E5 *. 


.* *. 








* SAVE * 


.* *. 




.* ERROPT *. NO 






* SAVE AREA * 


.* ERREXT *. YES 


.* ERET *. YES 


*. SPECIFIED .* 








* POINTER IN * 


*. SPECIFIED .*... 


....X*. =SKIP .*.... 


*. *A3 .* 








* REGISTER 7 * 


*. *A3 .* 


*. .* 




*. .* 








* * 


*. .* 


* . .* 




*. .* 


X 






***************** 


*. .* 


*. .* 




*YES 


***** 
*EZ * 
* J2* 

* * 






X 


*N0 


*N0 






* 






***** 








X 








*EZ * 




X 




.*. 






.*. 


* J2* 


X 


.*. 




Fl *. 






F2 *. 


* * 


*****P4** ******** 


F5 *. 




. * *. 






.* *. 


* 


* LOAD MODULE * 


.* *. 




.* ERREXT *. YES 




* WRITE *. NO 




* REGS 1-14 * 


.* *. YES 




*. SPECIFIED .* 




.X* 


ERROR .* 




* SAVE USER * 


*. IGNORE .*..X 




*. *A3 . * 






*. .* 




* REGS 7-13 * 


*. .* 




*. .* 






*. .* 




* * 


* . .* 




*. .* 






*. .* 




***************** 


*. .* X 


*NO 






*YES 






*N0 **** 

* * 

* l * 


* 




























* * 


X 
IJGUPUNI .*. 














**** 






X 


IJGUPUNI .*. 


X 


X 


Gl *. 






G3 *. 


*****G4 ********** 


*****G5********** 


.* *. 




* 


* 


.* *. 


* * 


* * 


.* WRITE *. NO 


* 


SHUT UNREC. * 


.* UNREC *. NO 


* SAVE SAVE * 


* * 


*. ERROR .* 




* 


I/O ERROR * 


..X*. I/O ERROR .*.... 


* AREA POINTER * 


* RETRY * 


*. .* 




* 


SWITCH. * 


*. .* . 


* * 


* * 


*. .* 




* 


* 


*. .* 


* * 


* * 


*. .* 


X 


************* **** 


*. .* X 


***************** 


***************** 


*YES 


***** 






*YES ***** 






**** 


*EZ * 






*EZ * 






* * . 


* J2* 
* * 




> 


X 




* J2* 






* 5 *... 








* * 


* 




**** 


* 






**** X 






* * 




X 




.*. 






* 5 * 




.*. 


X 


HI *. 






* * 




H4 *. 


*****H5********** 


.* USER *. 






**** 




.* *. 


* LOAD MODULL * 


.* ERROR *. 


^0 








NO .* READ ONLY *. 


* REGS SAVE * 


*. ROUTINE .* 










..*. SPECIFIED .* 


* USER REGS * 


♦ .SPECIFIED.* 


. 












*SAVE SAVE AREA * 


*. .* 












**. .** 


* POINTER * 


*. .* 


X 










*. .* 


***************** 


*YES 


***** 










*YES 






*EZ * 
















* J2* 














X 


* * 

* 














.*. 








X 


X 


X 


Jl *. 






*****j3********** 


*****J4**** ****** 


***** j 5********** 


.* *. 




* 


SAVE MODULE * 


* * 


* SAVE * 


* * * * 


.* RDONLY *. 


YES 


* 


REGS 1-14 * 


* RESTORE * 


* SAVE AREA * 


* * SVC * * 


*. =YES .* 




.X* 


RESTORE USER * 


* POINTER * 


* POINTER * 


* * RETRY * * 


*. *A3 .* 




* 


REGS 7-13 * 


* * 


* IN REG 7 * 


* * WRITE * * 


*. .* 






i * 


* * 


* * 


* * * * 


*. .* 




***************** 


***************** 


***************** 


***************** 


*NO 






I 






• 


; 


X 






X 






I 


X 


***** 






**** 
* * 




x.« ........... 




**** 


*EZ * 






* * 


* B2* 






* 2 * 








* 3 * 


* * 






* * 


X 




* * 


* 






**** 


****«3********* 
* RETURN * 




**** 












* TO 


^lAIN * 









*************** 
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Chart EZ. SDMODUO: 



PUT Macro (Section 5 of 5) 



****A1 ********* 

* * 

* IJGUP200 * 

* * 
*************** 



[JGUP200 X 

*****B1 ********** 

* SET UP * 

* REGISTERS * 

* AND DTF * 

* AREAS FOR * 

* WRITE * 
********** 



SDMODUO MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



FEOVD 

= YES 

*A3 



.* WRITING 
EOV 
*. MARKER 



*****E1 ********** 

* SET * 

* DATA * 

* LENGTH * 

* TO NINE * 

* * 
***************** 



*****F1 ********** 
♦IJGUP170 EP* 
*-*_*-*-*_*-*-*_* 

* UPDATE * 

* RECORD * 

* * 
***************** 



*****G1 ********** 
*, INITIALIZE * 

* CCHHR, KEY * 

* ANO DATA * 

* LENGTH FIELDS * 

* * 
***************** 



****H1 *********** 



***************** 



****J1 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



EY-E1,G1,G3,H1,H3 



***** 
*EY * 
* Jl* 



*****B2********** 

* SAVE MODULE * 

* REGS 1-14 * 

* RESTORE * 

* USER REGS * 

* 7-13 * 
***************** 



*****C2********** 

* LOAD ADDR * 

* OF USER * 

* ERROR ROUTINE * 

* TO REG 14 * 

* * 
***************** 



****A4********* 

* * 

* IJGUP170 * 

* * 
*************** 



****A5********* 

* * 

* IJGUP160 * 

* * 
*************** 



* GET TRACK * 

* LOWER * 

* LIMIT * 

* * 
***************** 



. .* 1 * 

* * 

**** 



REACH 
UPPER 
LIMIT 



ERREXT 

SPECIFIED 

*A3 



*****E2********** 

* * 

* LOAD I/O * 

* AREA ADDR * 

* INTO REG 1 * 

* * 
***************** 



***** 03**** ****** 

* * 

* MOVE I/O * 
X* AREA ADDR * 

* TO LIST * 

* * 
***************** 



*****E3********** 

* LOAD * 

* REGISTER 1 * 

* WITH LIST * 

* ADDRESS * 

* * 
***************** 



INCREMENT * 

COUNTER * 

BY ONE * 

* 

**************** 



****E4** ******* 

* * 

* RETURN * 

* * 
*************** 



***** 05********** 

* * 

* POINT AT * 

* LOWER * 

* LIMIT * 

* * 
***************** 



***** £5********** 

* UPDATE SEARCH * 

* ADDRESS * 

* DECREMENT * 

* COUNTER * 

* BY ONE * 
***************** 



*****p 2* ********* 

* * BRANCH * * 

* * TO USER * * 

* * ERROR * * 

* * ROUTINE * * 

* * * * 
***************** 



ERREXT *. YES 
SPECIFIED .*.... 
*A3 .* 



**** 

* * 

* 1 * 



G4 *. 

* 

IGNORE 



*****H2********** 

* LOAD MODULE * 

* REGS 1-14 * 

* SAVE USER * 

* REGS 8-13 * 

* * 
***************** 



*****H3********** 

* LOAD MODULE * 

* REGS 14-1 * 

* SAVE USER * 

* REGS 8-13 * 

* * 
***************** 



* Kl* 
**** 
IJUP330 

*****j2********** 



***************** 



****K2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



«*#«# f, «,********** 

* LOAD MODULE * 

* RLGS 14-1 * 
X* SAVE USER * 

* REGS 7-13 * 

* * 
** *************** 



*****H5********** 

* SAVE * 

* POINTER * 

* TO SAVE * 

* AREA * 

* * 
***************** 



***** j 5********** 

* * * * 

* * SVC * * 

* * RETRY * * 

* * WRITE * * 

* * * * 
***************** 



***** 
*EY * 
* CI* 
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Chart FA. SDMODUO: Close Routine 



***** 

*EW * 
* E3* 



****A1********* 

* ENTER FROM * 
*CLOSE $$B0SDC1 * 

* * 
*************** 



*****0l ********** 

* * 
♦SAVE REGISTERS * 

* AND POINT TO * 

* SAVE AREA * 

* * 
***************** 



*****d ********** 
*IJGUP120 EW* 
*_*_*_*_*_*_*_*_* 

* DETERMINE NO. * 

* OF I/O AREAS * 

* AND WORK AREA * 
***************** 



FEOVD *. NO 
=YES .♦... 
♦ A4 .* 



NO .♦ ENOUGH *. 
...♦.SPACE LEFT ON.* 
*. TRACK .♦ 



Fl ♦ . 
* EOF 
SWITCH 
SET 



*********** 



*A4 
SDMODUO MACRO PARAMETER 
OPTION, DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING 



* 1 *. . 
**** 
IJGUP350 



SET DATA 

LENGTH TO 

ZERO 

* * 

*********** 



* ENOUGH 
SPACE LEFT 

♦ .ON TRACK . 



**E2******* 

* SET EOF * 
SWITCH TO 
ENTER PUT 

MODULE 

* * 
*********** 



X 
***** 
*EW * 
* G4* 



**** 

* * 

* i * 

* * 
**** 



* 2 * 

* * 
**** 



**G1 ******* 

* * 
SET 

EOF 
SWITCH 

* ON * 
*********** 



.♦UPPER XTNT *. NO 
♦ . LIMIT .*... 
♦.EXCEEDED .♦ 



* SET EOF * 
♦SWITCH TO ENTER* 

* PUT RTN ♦ 
* * 

*********** 



*. FEOV SW ON .*... 



**E3******* 



*********** 



*****P3********** 

♦IJGUP150 EV* 
*_*_*_*_*_*_*_*_* 

♦ EXCHANGE I/O ♦ 
♦AREA ADDRESSES ♦ 

* * 
***************** 



*****G3********** 
♦IJGUP220 EW* 
*_*_*_*_*_*_*_*_* 

* CHECK DASD ♦ 

* ADDRESS ♦ 

* * 
***************** 



*****H3**#* ****** 
♦IJGUP200 EZ^ 
*-*-*_*_*_*_*-*_* 

♦ WRITE DATA ♦ 



***************** 

**** 

* * 

* 2 ♦ 

* * 
**** 



***#*j4 ********** 

♦ * 

* RESTORE USER * 
X^ REGISTERS * 

♦ 7-13 * 

* * 
***************** 



*****K3********** 

* * 

* RESTORE USER ♦ 

* REGISTERS ♦. 

* 8-12 ♦ 

* * 
***************** 



****«'»********* 

* SVC 9 ♦ 

* RETURN TO ♦ 

* SJBOPEN ♦ 
*************** 
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Chart FB. SDMODUU: GET Macro (Section 1 of 2) 



****A1 ********* 

* ENTER FRUM * 

* GET MACRO * 

* * 
*************** 



*A2 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLE LISTING. 



*B3 
FC-G5, 
H1.H2 



**** 

* * 

* 1 * 

* * 
**** 


*** 

** 

* A 

* 

* 


*****A4********** 

*IJGUU250 ES* 
*_*_*_*-*-*_*_*-* 

* EXCHANGE * 

* ADDRESSES * 

* * 

***************** 

**** r 

* * 

** *... 

* B3* 
**** X 

IJGUU060 .*. 


*A5 
FC-G1,G2 



IJGUU030 

*****d ********** 

* SAVE USER * 
♦REGISTERS 9-13,* 

* IN SAVE AREA * 



***************** 



IJGUU030 X 

*****C2********** 

* SAVE USER * 
♦REGISTERS 8-13.* 
*SAVE POINTER TO* 

* SAVE AREA * 

* * 
***************** 



**02******* 

*FURN ON 1ST* 

*E^TRY SWITCH * 

.X*SET RECORD NO. * 

*EQUAL TO ZERO* 

* * 

*********** 



*.TWO I/O AREAS.*. 



**C4******* 

* * 
TURN ON 

•SAVE COUNT' 
SWITCH 

* * 
*********** 



****D4*********** 
UGUU180 FE 

*_*_*-*_*_*_*_*_* 

GET DATA 



*F1 
FC-H4 
FF-F5 



*************** 


** 


**** 




* * 




*FF *... - 




* B5* .X... 




**** X 




IJGUUO70 .*. 




E4 *. 




.* * 




.* RDONLY 
*. =YES *A2 


* 



.* WAS *. 
.* END OF *. YES 
♦.V3LUME FORCED.*.... 



***** 
*FF * 
* D2* 



*****P4********** 

* * 

* RESTORE * 
♦REGISTERS 9-13 * 
♦FROM SAVE AREA * 

* * 
***************** 



*****F5********** 



* RESTORE * 
♦REGISTERS B-13 ♦ 



***************** 



TURN ON 
•SAVE COUNT* 

SWITCH 

* * 

*********** 



****H2*********** 
IJGUU180 FE 
*_*_*_*-*_*_*_*_* 

GET DATA 
***************** 

**** 

* * 
*FC * 

* G4* 
**** 

IJGUU050 X 

*****j2****** 
*IJGUU260 FG* 
*_*_*_*_*_*_*-*-* 

* WAIT FOR * 

* COMPLETION * 



****G4 ********* 

* RETURN TO * 
♦PROBLEM PROGRAM* 

* * 
*************** 



******* 



********* 



***** 
*FC ♦ 
* Bl* IJGUU100 



**** 

* * 

* 1 * 

* * 
**** 
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Chart FC. SDMODUU: GET Macro (Section 2 of 2) 



***** 

*F0 * 
* K2* 



**** 

* * 

* 1 * 

* * 
**** 

IJGUU100 

*****Bl ********** 

* * 

* LOAO I/O * 

* AREA ADDR * 

* INTO REG 9 * 

* * 
***************** 

**** 



♦ A2 
PARAMETER OPTION- 
DECISION OOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



PUT 

SWITCH 

ON 



PUT 

SWIICM 

ON 



*****Oi ********** 

* * 

* GET «NUMBER' * 

* OF BYTES TO * 

* BE MOVED * 

* * 

***************** 



*****E1 ********** 

*IJGUU370 FL* 
*_*_*-*-*_*_*_*_* 

* MOVE DATA * 

* TO WORK * 

* AREA * 
***************** 



RDONLY 
= YES 
♦ A3 ■ 



*****D2********** 

* SET * 

* 'NUMBER* * 

* 3F BYTES TO * 

* BE MOVED * 

* * 
***************** 



AND READ 

. ANOTHER 

*. RCD .* 



**H1 ******* 

* MODIFY * 
INSTRS. AT 
ES-G2,G3 TO 

BRANCH 

* * 
*********** 



G2 ♦ . 
BRANCH .♦ 2 *. 
.* I/O AREAS 
X....*. AND READ 

*. ANOTHER . 
*. ROD .* 



HOLD 

SPECIFIED 

*A2 



D3 *. 

.* TRACK *. 

.* HOLD IN ♦ . 

DTF 

♦.SPECIFIED.* 



*****E3********** 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* * * * 
***************** 



**F3******* 

* RESET * 
DASD 

ADDRESS 
IN CCW 

* * 
*********** 



* 1 * 

* * 
**** 



**C4******* 

* * 
TURN OFF 

PUT 
SWITCH 

* * 
*********** 



*****D4 ********** 
♦IJGUU410 FM* 
*_*_*_*_*_*_*_*_* 

* WAIT FOR * 

* I/O COMPLETED * 

* * 
***************** 



***** 

*FB * 

* A4* 

* * 



*NOP 



**H2******* 

* MODIFY * 
♦INSTRUCTIONS * 

*AT ES-G2.G3 TO 
* BRANCH * 

* * 
*********** 



IJGUU090 .♦. 



* 2ND *. YES 
GET SWITCH .*.... 

*. ON .* 



**** X 

G4* **. 

.* *. 

.* NECESSARY *. 

*. TO WAIT TO . 

♦.CALL OPEN.* 



**P5******* 

* * 
TURN OFF 

• 2ND GET' 
SWITCH 

* * 
*********** 



.* WORK ♦. NO 
AREA .♦.. 
♦ .SPECIFIED.* 



***** 
*FB ♦ 
♦ J2* 



*****H4 ********** 
♦IJGUU250 FG^ 
*_*_*_*_*_*_*_*_* 

♦ EXCHANGE ♦ 

♦ ADDRESS ♦ 

♦ * 
***************** 



X 

***** 
*FB ♦ 
♦ B4+ 



IJGUU060+6 
******** 



♦ GET WORK ♦ 

♦ AREA ♦ 

♦ ADDRESS * 

***************** 



X 

***** 

*FB ♦ 

♦ B^* 

* * 

* 

IJGUU060+6 



..X*FB ♦ 
* G2^ 
****IJGUU040 



**j4******* 

* CHANGE * 
BRANCH AT 
IJGUU102 

TO A 'NOP' 

* * 
*********** 



RDONLY 

= YES 

*A2 



*****K5********** 

* * 

* SAVE * 

* «BKW« * 

* CHARACTERS * 

* * 
***************** 



246 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart FD. SDMODUU: PUT Macro 



****A1********* 

* ENTER FROM * 

* PUT * 

* MACRO * 
*************** 



SDMODUU MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* 1 * 

* * 
**** 



*****C1 ********** 

* SAVE USER'S * 

* REGISTERS * 

* AND A * 

* POINTER TO * 

* THE SAVE AREA * 
*********#******* 



*****C2********** 

* SAVE USER'S * 

* REGISTERS * 



***************** 



**C3******* 

* TURN ON * 
CHAINING 

BITS IN 
CCW 

* * 
*********** 



IJGUU130 

**C4*****#* 

* TURN OFF * 

* CHAINING 
* BITS IN 

* CCW 

* * 
*********** 



*NO 
X.. 



**E1******* 

TURN ON 

* PUT 

SWITCH 

* * 

*********** 



.*. 

E2 *. 

.* *. 

* i * 

FEOV ISSUED 

*. .* 

*. .* 

*. .* 

*YES 



****P2********* 

* SVC 50 * 

* PUT ILLEGAL * 

* AFTER FEOV * 
*************** 



*****E3********** 

* GET * 

* NUMBER OF * 

* BYTES TO * 

* BE MOVED * 

* * 
***************** 



*_*_*_*_*_*_*_ 

* MOVE DATA * 

* FROM * 

* WORK AREA * 
***************** 



**#** H 1 ********** 

♦IJGUU250 FG* 
*_*_*_*_*_*_*_*_* 

* EXCHANGE * 

* ADDRESSES * 

* * 
***************** 



IJGUU220 

***** K 1 ********** 

* UPDATE SEEK * 

* ADDRESS, SET * 
♦READ COUNT CCW * 

* TO 'NOP', SET * 

* COUNT IN CCW * 
***************** 



*********** 



***************** 



**** 

* * 

* 2 * 

* * 
***# 



*****F^.********** 

* * 

* RESTORE * 

* USER'S * 

* REGISTERS * 

***************** 



***** p 5********** 

* * 

* RESTORE * 

* USER'S * 

* REGISTERS * 

* * 
***************** 



.*. 




IJGUU150 X 




Gl *. 


**G2******* 


****G3**********# 


X 


.* *. 


* * 




****G4********* 


.* NECESSARY *. NO 


* TURN ON * 


* SVC * 


* RETURN TO 


. TO WAIT TO .* 


...X* '2ND GET' * 


EXCP 


* PROBLEM 


*.CALL OPEN.* 


* SWITCH * 


* * 


* PROGRAM 


*. .* 


* * 




*************** 



***************** 



*****j2********** 
*IJGUU250 FG* 
*_*_*_*_*_*_*_*_* 

* EXCHANGE * 

* ADDRESSES * 

* * 
***************** 



END *. 


NO 


OF 


*. . .. 


FILE .* 




.* 




*. .* 


X 


*YES 


**** 




* 




* 2 




* 




**** 



***** J3********** 
*IJGUU410 FM* 
*_*_*_*_*_*-*-*-* 

* WAIT FOR * 

* I/O COMPLETE * 

* * 
***************** 



**K3******* 

* TURN ON * 
END OF 

FILE BIT 
IN CCB 

* * 
*********** 



**«4******* 

* RESET * 
*PUT, 2ND GET,* 

* AND EOF * 
* SWITCHES * 

* * 
*********** 
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Chart FE. SDMODUU: Subroutines (Section 1 of 8) 



**** 

* * 

* i * 

* * 
**** 



****A1 ********* 

* * 

* IJGUU180 . * 

* * 
*************** 



Bl *. 

.♦RECORD *. 

.* LENGTH * 

. LESS THAN 

*. BLOCK .♦ 

*.SIZE .* 

♦ . .♦ 

*N0 



*****d ********** 

* * 

* SET RECORD * 
♦LENGTH EQUAL TO* 

* BLOCK SIZE * 

* * 
***************** 



*********** 



C3 *. 
.* *. 
* 
FIRST READ 



* * * *E2 
♦ L2* FF-C5.D5 
**** 



*****E1 ********** 
♦IJGUU360 FL* 
*_*_*_*_*_*_*-*-* 

* READ COUNT * 

* * 

* * 
***************** 



***** 
*FF * 
* B2* 



IJGUU213 X 

**Q4******* 

* TURN ON * 
♦CHAINING BIT 

* SET COMMAND 
*CODE TO READ 

* DATA * 
*********** 



**C4******* 

♦ SET READ 
COUNT CCW TO 

♦ READ COUNT 

* * 

*********** 



*********** 

**** 

* * 

* 2 ♦ 

* * 
**** 



♦SET DATA LENGTH^ 
*AND UPDATE DASD^ 

♦ ADDRESS ♦ 

* * 
***************** 



HOLD 

SPECIFIED 

♦A2 



*A5 
SDMODUU MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLY 
LISTING. 



Fl ♦. 
.♦ ♦. 

END OF FILE 

♦ . . * 

*. . * 

♦ . .♦ 

*YES 



*****Gi ********** 



*************** 



YES .♦ SAVE ♦ 
......COUNT SWITCH 

♦. ON .* 



**G2**^**^ 

* * 
TURN OFF 

SAVE COUNT 
SWITCH 

* * 
*********** 



****P4*********** 



**************** 



****G4********* 

* * 
♦RETURN TO MAIN ♦ 

* * 
*************** 



****P5*********** 

♦ SVC 35 ♦ 
READ AND HOLD 
TRACK -'* 

*************** 



*****H3********** 



.X^ MOVE COUNT 



***#*J2********** 

* * 

* * 

* SAVE COUNT ♦ 

* * 

* * 
***************** 



SET EOV 

SWITCH FOR 

OPEN 

* * 

*********** 



***************** 



***** j3********** 



SAVE COUNT 



***************** 



248 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart FF. SDMODUU: Subroutines (Section 2 of 8) 



*A1 
PARAMETER OPTION 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*FE * 
* C3* 



**** 

* * 

* 3 * 

* * 
**** 



NECESSARY *. NO 
TO CALL .*... 
. OPEN .* 



**C2******* 



IJGUU222 X 

**B4******* 

*SET LENGTH * 

* OF CONTROL * 

* FIELD, UPDATE * 

♦COUNTER, TURN* 

*QN M/T BIT * 

*********** 



B5 *. 
.* FILE * 
ASSIGNED 



RESET 

CALL OPEN 

SWITCH 

* * 

*********** 



*****01 ********** 
♦SAVE REGS 0, 1 * 

* SAVE RETURN * 

* REGISTER 112) *X. 

* RESTORE USER * 

* REGS 8-13 * 
***************** 



**E1 ******* 

* SET END * 
OF EXTENTS 

INDICATOR 
FOR OPEN 

* * 
*********** 



**F1******* 

* RESET * 
MULT I - 

TRACK 
SWITCH 

* * 
*********** 



*****£}********** 

* POINT TO * 

* DTF ADDR * 

* SET CONSTANTS * 

* FOR OPEN * 

* * 
***************** 



****H1 ********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



*****jl ********** 

* RESTORE REGS * 

* AND 1 * 
♦SAVE USER REGS * 

* 8-13. RESTORE * 
♦RETURN REG (12)* 
***************** 



RDONLY 

= YES 

♦ Al 



****** 2********** 

* SET * 

* RECORD * 

* NUMBER * 

* TO ZERO * 

* * 
***************** 



♦C3 
FB-F2 
FG-A5,B5,C4,D4,D5 



***** 
*FB * 
* E4* 



*****D3**« ******* 

*SAVE REGS 0, 1 * 
X* SAVE RETURN * 

* REGISTER (12) * 

* * 
***************** 



**E3******* 

* * 
RESET 

MULTITRACK 
SWITCH 

* * 
*********** 



*****F3********** 

* RESTORE USER * 
♦REGISTERS 9-13 * 

* SET CONSTANTS ♦ 

* FOR OPEN * 

* * 
***************** 



****G3********* 

♦ SVC 3 * 

♦ FETCH ♦ 

♦ $$BOPEN ♦ 
*************** 



*****H3********** 

* RESTORE REGS ♦ 

* AND 1 * 
*SAVE USER REGS ♦ 

* 9-13 RESTORE * 
*RETURN REG (12)* 
***************** 



**K3******* 



*********** 



*****C4********** 

* * 

* GET TRACK ♦ 

* LOWER ♦ 

* LIMIT ♦ 

* * 
***************** 



EXTENT 
UPPER 
LIMIT 



*****E4********** 

♦ SET TO * 

♦ LOWER ♦ 

♦ LIMIT ♦ 

♦ * 
***************** 



FEOVD 
= YES 

*A1 



IJGUU190-4 



IJGUU350 

*****F4 ********** 

* UPDATE * 

* COUNTER * 

* AND SEEK * 

* ADDRESS ♦ 

* * 
***************** 



*****G4**** ****** 

* * 

* SET RECORD * 

* NUMBER * 

* TO ZERO * 

* * 
***************** 



FEOV 

SWITCH 

ON 



IJGUU190-4 
X 
**E5******* 

* * 
RESET ♦ 
FEOV ♦ 

SWITCH ♦ 

* * 
*********** 



***** F5********** 

♦ IJGUU360 FG* 
*_*_*_*_*_*_*_*_* 

* READ * 

♦ COUNT OF ♦ 

* RECORD * 
***************** 



***** 
*FB * 
* G2* 



EXTENT 
UPPER 
LIMIT 



TWO 

I/O 

AREAS 



** j 5******* 
*SET SWITCH * 

* TO WAIT 
AND CALL 

* OPEN 

* * 

*********** 



****K5********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FG. SDM0DUU: Subroutines (Section 3 of 8) 



* i * 

* * 
**** 



****A1 ********* 

* * 

* IJGUU260 * 

* * 
*************** 

**** '. 
FJ-H3* * 
FK-J3* *... 

* * * .X 


*A2 
PARAMETER OPTION. 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 


.* *. 
NO .* HOLD *. 
...*. SPECIFIED .* 
*. *A2 .* 
*. .* 
*. .* 
*YES 

X 

.*. 

B3 *. 

.*" TRACK **. YES 

*. HOLD IN .* 

*. DTF .* 




**** X 
IJGUU260 .*. 

Bl *. 
.* *. 
.* I/O *. NO 

*. COMPLETE .* 

*. .* 


*****B2*********# I 

* * * * 

* * SVC 7 *, * 
...X* * WAIT * *.... 

* * * * 


*****34**** 

* * SVC 36 
..X* * FREE 

* * TRACK 



***************** 



***************** 



.* ANY 
MORE 
*. EXTENTS 



ERROPT 

SPECIFIED 

*A2 



C2 * 
* 

END 

OF 

FILE 



****D2* ******** 

* RETURN * 

* TO MAIN * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



FEOVD 

= YES 

*A2 



D3 *. 

.* *. 

2 

I/O AREAS 

"*. .** 
*. .* 
*YES 



C4 *. 
.* *. 

2 *. NO 
I/O AREAS .*.... 

.* 
*. .* 

**YES 



HOLD 

SPECIFIED 

*A2 



*. 
*. 

**** 

* * 

* 2 *. . 

* * 
**** 



***** 

*FF * 

* D2* 

* * 







Fl 


*. 














* 


* 








YES . 


* 


END 




*. 






...*. 




OF 






* 




•• 


* 


FILE 
*. 


* 


* 






X 




*. . * 










**** 




*NO 










* * 














* 1 * 














* * 














**** 






X. . 












< 










IJGUU279 .*. 














Gl *. 














* 


*. 










* 


READ 




*. 




VES 




* 


ERROR 

*. 

*. .* 
*NO 


* 


*" 


# 


X 

**** 

* 4 
















* 3 > 
















* 
















**** 






> 


< 










****H1 ********* 




* 




RETURN 






* 




* 




TO 


4AIfs 






* 





**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 4 * 



*************** 



* 2 * 

* * 
**** 

**** 

* * 

* 3 * 

* * 
**** 



ERREXT 

SPECIFIED 

*A2 



**E4******* 

* * 

SET 

EOF 

MASK 

*********** 



****F4 ********* 

* RETURN * 

* TO MAIN * 

* STORAGE * 
*************** 



**C5******* 

* * 
RESET 

EOF 
SWITCH 

* * 
*********** 



**D5******* 

* * 
RESET EOV 

SW FOR 
OPEN 

* * 
*********** 



***** 

*FF * 

* D2* 

* * 



*****J4********** 

* SHUT * 

* UNREC I/O * 

* ERROR * 

* SWITCH * 

* * 
***************** 



***** 
*FH * 
* B3* 



****K3********* 

* RETURN * 

* TO MAIN * 

* * 
*************** 



****G5********* 

* IJGUU250 * 

* * 
*************** 



IJGUU250 X 

*****H5********** 

* GET ADDRESS * 

* OF I/O AREA * 

* AMD SAVE IT * 

* IN REG 9 * 

* * 
***************** 



***** j 5********** 

* GET ADDRESS * 

* OF SECOND * 

* I/O AREA AND * 

* STORE IT * 

* * 
***************** 



****K5********* 

* RETURN * 

* TO MAIN * 

* * 
*************** 
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Chart FH. SDMODUU: Subroutines (Section 4 of 8) 



*A2 
PARAMETER OPT ION. 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



IJGUUSER 

**** * B 2 ***** ***** 
*IJGUU310 FK* 
*_*_*_*_*_*_*_*_* 

* USER 

* ERROR 

* ROUTINE 

***********: 



*X. 



USER 

ERROR 

ROUTINE 



_*_*_*_*_*_ 



***************** 



*****C2********** 
*IJGUU360 FL* 
*_*-*-*_*_*_*_*_* 

* READ * 

* COUNT * 

* * 
***************** 



RDONLY 

SPECIFIED 

*A2 



****04********* 

* RETURN * 

* FOR IGNORE * 

* OPTION * 
*************** 



*****E2********** 

* SAVE * 

* RETURN * 

* REGISTER * 

* IN SAVE * 

* AREA * 
***************** 



*****E3********** 

* * 

* SAVE * 

* RETURN * 

* REGISTER * 

* * 
***************** 



***** f-3********** 

* * 

* SWITCH * 

* TO SAVE * 

* COUNT * 

* * 
***************** 



*****G3********** 

*IJGUU180 FE* 
*_*_*_*_*_*_*_*_* 

* GET * 

* DATA * 

* * 
***************** 



*****H3********** 
*IJGUU260 FG* 
*_*_*_*_*_*_*_*_* 

* WAIT FOR * 

* COMPLETION * 

* * 
***************** 



*****j2********** 

* * 

* RESTORE * 

* RETURN *X 

* REGISTER 12 * 

* * 
***************** 



****K2********* 

* * 

* RETURN * 

* * 
*************** 



NO .* RDONLY 
...*. SPECIFIED, 
*. *A2 



*****j4********** 

* * 

* RESTORE * 
X* RETURN * 

* REGISTER 12 * 

* * 
***************** 



****K4********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FJ. SDMODUU: Subroutines (Section 5 of 8) 



****A1 ********* 

* * 

* IJGUU310 * 

* * 
*************** 



*A2 
PARAMETER OPTION. 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



**** 

* * 

* 1 * 

* * 
**** 



RDONLY *. YES 
=YES .*.... 
*A2 .* 



***** 

*FK * 

* CI* 

* * 



IJGUU310 X 

*****C1 ********** 

* SAVE MODULE * 

* REGS 9-13 * 

* RESTORE USER * 

* REGS 9-13 * 



************* 



*** 



*****B4********** 

* LOAD MODULE * 

* REGISTERS * 
.X* 14, 15, 0, 1 * 

* SAVE USER * 

* REGS 9-13 * 
***************** 



*****C4 ********** 

* LOAD MODULE * 
♦REGISTERS 9-13 * 

* FROM SAVE * 

* AREA 3 * 

* * 
***************** 



*****D1 ********** 

* * 

* SAVE * 

* REGISTERS * 

* 14, 15, 0, 1 * 

* * 
***************** 



*****D4********** 

* LOAD MODULE * 

* REGISTERS * 
.X* 14, 15, 0, 1 * 

* SAVE USER * 

* REGS 9-13 * 
***************** 



****D5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
**** *********** 



*****gl ********** 

* LOAD USER * 

* ERROR RTN * 

* ADDRESS * 

* INTO REGISTER * 

* 14 * 
***************** 



ERREXT 

SPECIFIED 

*A2 



*****G1 ********** 

* LOAD I/O * 

* AREA ADDR * 

* INTO * 

* REGISTER 1 * 

* * 
***************** 



*****p 2* ********* 

* * 

* MOVE I/O * 
X* ADDRESS * 

* TO LIST * 

* * 
***************** 



*****G2********** 

* * 

* LOAD REG 1 * 

* WITH LIST * 

* ADDRESS * 

* * 
***************** 



*****H1 ********** 

* * * * 

* * BALR * * 

* * TO USER * * 
,* * ROUTINE * * 

* * * * 
***************** 



*****E3********** 

* * 

* * 

* RETRY * 

* * 

* * 
***************** 



*****P3********** 

* LOAD MODULE * 
*REGS 14, 15, 1 * 

* SAVE USER * 

* REGS 9-13 * 

* * 
***************** 



****G3 *********** 

* SVC * 
RETRY 
* I/O * 

***************** 



H3 *. 

.* WAS *. 
* LAST *. YES 

OPERATION A .*.... 
*. WRITE 



*****E4********** 

* LOAD MODULE * 

* REGISTERS * 

* 9-13 FROM * 

* SAVE AREA * 

* 3 * 
***************** 



F4 *. 

.* WAS *. 
* LAST *. NO 

OPERATION A .*... 
*. WRITE .* 



****G4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



.* 



*****G5********** 
*IJGUU360 FG* 

*-*-* _*_*_*-!*_*_* 

* READ * 

* COUNT * 

* * 
***************** 



****H5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
**** *********** 



.* ERREXT *. NO 
*. SPECIFIED .*... 
*. *A2 .* 



**** 

* * 

* 1 * 

* * 
**** 



*****J2********** 

* LOAD MODULE * 

* REGISTERS * 
.X* 14, 15, 0, 1 * 

* SAVE USER * 

* REGS 9-13 * 
***************** 



****«K2********** 

* LOAD MODULE * 

* REGISTERS * 

* 9-13 FROM *. 

* SAVE AREA * 

* 3 * 
***************** 



X 

***** 
*FG * 
* Al* 



***** 

*FM * 

* Bl* 

* * 



****K3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*K4 
WAIT AND ERROR 
TEST FOR READ. 



WAIT AND ERROR 
TEST FOR WRITE. 
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Chart FK. SDMODUU: Subroutines (Section 6 of 8) 



*A2 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



***** 
*FJ * 
* Bl* 



IJGUU310 X 

*****C1 ********** 

* SAVE MODULE * 

* REGS 8,9 * 

* RESTORE USER * 

* REGISTERS 13, * 

* 14, 15, 0, 1 * 
***************** 



*****DL ********** 

* LOAD ADDR, * 

* OF USER ERROR * 

* ROUTINE INTO * 

* REGISTER 14 * 

* * 
***************** 



*****B3**** 

* SAVE USER 

* REGS 8-13 

* LOAD MODULE 

* REGS 8, 9 
* 
*************** 



*****C3********** 

* * 

* LOAD MODULE * 

* REGISTERS 13, * 

* 14, 15, 0, 1 * 

* * 
*«**«********#*** 



****Q3******** 

* RETURN FOR 

* READ 

* AND WRITE 
************** 



**#**B4 ********** 

* SAVE * 

* USER REGS * 

* RESTORE * 

* MOO REGS * 



**** 



<********* 



*****C5********** 

* * 

* RELOAD * 
X* RETURN * 

* REGISTER 14 * 

* * 
***************** 



****D 5 ********* 

* RETURN * 

* FOR READ * 

* AND WRITE * 
*************** 



*****Fi ********** 

* * 

* MOVE I/O * 

* ADDRESS TO * 

* LIST * 

* * 
***************** 



*****F2********** 

* * 

* LOAD I/O * 

* AREA ADDR * 

* INTO REG 14 * 

* * 
***************** 



*****P3********** 



*****P5********** 

* * 

* RELOAD * 

* RETURN * 

* REGISTER 14 * 

* * 
*** * * ************ 





) 


< 




*****G1 ********** 


* 


LOAD REG 1 


* 


* 


WITH 


* 


* 


LIST 


* 


* 


ADDRESS 


* 


* 




* 


******** 


****** 


*** . 






X.... 





*****H1 ********** 

* * BALR * * 

* * TO USER * * 

* * ERROR * * 
ROUTINE 



* * 



* * 



***************** 



ERREXT 

SPECIFIED 

*A2 



*****G3********** 

* * 

* RELOAD * 

* RETURN * 

* REGISTER 14 * 

* * 
***************** 



*****H3********** 

* * * * 

* * SVC * * 

* * RETRY * * 

* * I/O * * 

* * * * 
***************** 



****H4********* 

* RETURN * 

* FOR * 

* WRITE * 
*************** 



*J2 
WAIT AND ERROR 
TEST FOR READ. 



*K2 
WAIT AND ERROR 
TEST FOR WRITE. 



.* WAS *. 




LAST * 


YES 


OPERATION A 




. WRITE .* 




*. .* 




*. .* 


X 


*N0 


***** 




*FM * 




* Bl* 


X 


* * 


***** 


* 


*FG * 


*K2 


* Al* 


IJGUU410 


* * 




* 




*J2 




IJGUU260 





***** 1 1 «, ********** 
*IJGUU360 FL* 
*-*_*_*_*_*_*_*_* 

* READ * 

* COUNT * 

* * 
****<x ************ 



**** j 5********* 

* RETURN * 

* FOR * 

* READ * 
*************** 
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Chart FL- SDMODUU: Subroutines (Section 7 of 8) 



****A1 ********* 

* * 

* IJGUU360 * 

* * 
*************** 



PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



****A4********* 

* * 

* IJGUU370 * 

* * 
*************** 



RDONLY *. YES 
=YES .*.... 

*A3 .* 



*****d ********** 

* SAVE * 

* READ DATA * 

* CCW IN * 

* SAVE AREA * 

* * 
***************** 



*****C2********** 

* * 

* SAVE * 

* READ DATA * 

* CCW * 



******** 



**D1 ******* 

* TURN OFF * 

* CHAINING 
BIT AND SET 

* COMMAND 

* CODE * 
*********** 



***************** 



*****P2********** 

* * * * 

* * SVC 7 * * 
X* * WAIT * *. 

* * * * 

* * * * 
***************** 



* SET REGISTER 

* EQUAL TO 

* 256 
* 
*************** 



IJGUU380 X 

*****Q4********** 

* SUBTRACT * 

* 256 FROM * 

* NUMBER OF * 

* BYTES TO * 

* BE MOVED * 
***************** 



.♦AMOUNT *. 
.* LESS THAN * 
*. OR EQUAL TO 
*. ZERO .* 



*****E4********** 

* * 

* MOVE * 

* BLOCK OF * 

* 256 BYTES * 

* * 
***************** 



YES .* 256 
...*. MORE BYTES 
*. OF DATA . 



RDONLY 

=YES 

*A3 



*****H i ********** 

* RESTORE * 

* READ * 

* COMMAND * 

* FROM * 

* SAVE AREA * 
***************** 



****jl********* 

* * 

* RETURN * 

* * 
*************** 



*****H2** ******** 

* * 

* RESTORE * 

* READ * 

* COMMAND * 

* * 
***************** 



MOVE * 

REMAINING * 

BYTES * 

* 

**************** 



****H4********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FM. 



SDMODUU: 



Subroutines (Section 8 of 8) 



****A1********* 

* * 

* IJGUU410 * 

* * 
*************** 



*A2 
FJ-H3 
FK-J3 



*A3 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



TEST * 

TRAFFIC * 

BIT * 

* 

************* 



ERROPT 

SPECIFIED 

*A3 



HOLD *. NO 

SPECIFIED .*... 
♦A3 .* 



**** 

* * 

* 1 * 

* * 
**** 

Ix.. 



*****C2***#****** 



**************** 



HOLD *. NO 
SPECIFIED .*... 
*A3 .* 



.* TRACK *. NO 
HOLD .*... 
*. OPTION .* 



* * 



*****D4********** 

* * * * 

* * SVC 36 

* * FREE 

* * TRACK 

* * 
************ 



IJGUUNOE .*. 



ERREXT 

SPECIFIED 

*A3 



**** 

* * 

* 2 * 

* * 
**** 



* 3 * 

* * 
**** 



YES 
* 

**** 

* * 

* 3 * 

* * 
**** 



**rj******* 

* :>nur • 
uniu o ♦ 

I/O I KIUM * 

in r * 
*********** 

* **** 
* * 

..X* 3 * 

**** 

**G3******* 

* SHUT * 
UNREC * 

I/O ERROR * 
BIT * 

* * 
*********** 



DATA *. NO N 


n 


.* UNREC 


CHECK .*....X... 


.* 


I/O 


.* 




*. ERROR 


.* 




*. 


*. .* X 




*. .* 


*YES **** 




* 


* * 






* 1 * 






X * * 






**** **** 






* * 






* 3 * 






* * 






**** 







**** 

* * 

* 2 * 

* * 
**** 



****K2********* 

* RETURN TO * 

* MAIN * 

* ROUTINE * 
*************** 



HOLD 

SPECIFIED 

*A3 



.* ERROR *. 

ROUTINE 

*. SPECIFIED.* 



****K3********* 

* RETURN TO * 

* MAIN * 

* ROUTINE * 
*************** 



****[= 5********* 

* RETURN TO * 

* MAIN * 

* ROUTINE * 
*************** 



**** 

* * 

* 3 * 

* * 
**** 



**p/, ********* 
RETURN TO * 
MAIN * 
ROUTINE * 



ERROR 

ROUTINE 

.SPECIFIED. 



USER * 

ERROR * 

ROUTINE * 

************* 



**** 

* * 

* 4 * 

* * 
**** 
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Chart GA. CNTRL Macro, Undefined Length Records 



****/\3********* 

* ENTER FROM * 

* CNTRL * 

* MACRO * 
*************** 



*B2 

NOTE— X = 

G - INPUT FILE 

P - OUTPUT FILE 

U - INPUT FILE 

WITH UPDATL 



*****Q/ ( ********** 



****C3 ********** 
GET LOGICAL * 
UNIT NUMBER, * 
STORE COMMAND * 
CODE IN * 
CONTROL CCW * 
**************** 



*****D3********** 

* , * 

* SAVE * 

* ADDRESS OF * 

* CONTROL CCB * 

* * 
***************** 



****E3*********** 



***************** 



***************** 



**: 



X 

*P3*******: 

RETURN TO 
PROBLEM 
PROGRAM 

************: 
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Chart GB. SDMODW: READ Macro 



ENTRY FROM 
READ 
MACRO 



SDMODW MACRO PARAMETER OPTION — 
DECISION DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* H5* 
IJGWREAO 



SAVE 

USER 

REGISTERS 



X 

*«D1»*«*»*» 

STORE 

RECORD 

LENGTH IN 

READ 

CCW 



El *. 
.* TRACK ♦ . 
» LIMIT 

REACHED IN 
*. PREV 
♦.READ .* 



.* WAS A ♦ . NO 
.POINTS MACRO .«... 
«. ISSUED .* 



SET RECORD 

NUMBER 

IN SEARCH ARG 

TO 1 



»«E2»*»*»* 

SET 
POINTS 
ISSUED 
SWITCH 

OFF 



IJGWHOLD X 

**««B3******* 
SVC 35 
* READ 

RECORD AND 
» HOLD 
TRACK 



D3 *. 

.♦ROUTINE*. 
ENTERED 

FROM READ 
. ERROR . 

♦ROUTINE* 

"♦NO 



♦NO 



STORE I/O 

AREA ADDRESS 

IN READ CCW 



RESTORE 

USER 

REGISTERS 



MODIFY READ 

CCW TO 

READ DATA 



»#G2^**^*^ 

♦ SET CC 
AND SLI 

BITS ON IN 
READ DATA 

♦ CCW 



SET COUNT 
FIELD ID 
IN SEARCH 
ARGUMENT 



*»H1********** 


H2 ♦. 


SET * 


.♦ HOLD ♦. 


READ COUNT * 


NO .♦ = YES AND 


CCW IN ♦ 


*. UPDATE = YES 


READ CCW ♦ 


*. ♦A* 


CHAIN ♦ 


*. .* 



.♦ TRACK ♦. 
. HOLD OPTION . 
*. SPECIFIED. ♦ 



SVC 

READ 

RECORD 
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Chart GC. SDMODW: WRITE Macro 



***** 

*GB * 
* D4* 



****A1 ********* 

* ENTRY FROM * 

* WRITE MACRO * 

* *A3 * 

*************** 



**B1******* 

* SET * 

UPDATE 

SWITCH 



*********** 



****A2* ******** 

* ENTRY FROM * 

* WRITE MACRO * 

* *A4 * 
*************** 



*A3 
THIS ENTRY IS 
USED IF THE 
WRITE UPDATE 
MACRO HAS BEEN 
ISSUED. 



*A4 
THIS ENTRY IS 
USED IF THE 
WRITE SO 
MACRO HAS BEEN 
ISSUED. 



***** 
*GD * 
* J3* 



* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****Di ********** 

* GET * 

* ADDRESS OF * 

* I/O AREA FROM * 

* READ/WRITE * 

* CCW * 
******** ********* 



.ENTERED FROM .♦. 
*. CLOSE .* 
*. RTN .* 



**** 
* 
* 1 



IJGWLOAD X 

*****D2* ********* 

* SET VERIFY * 

* CHAIN BIT * 

* ON IN * 

* rfRlTE DATA * 

* CCW * 
***************** 



.* *. NO 

♦.UPDATE = YES .*... 
♦ . *J2 .* 



**** 

* * 

* 2 * 

* * 
**** 



*****C3********** 

* GET * 

* REMAINING * 

* TRACK * 

* CAPACITY * 

* * 
***************** 



* 3 *.X 



**** 
IJGWINST X 

*****C4**** ****** 

* GET CURRENT * 

* RECORD NUMBER * 

* AND UPDATE * 

* BY 1 * 

* * 
***************** 



*. . 



**** 
IJGWDECR X 

*****B 5 ********** 

* CALCULATE * 

* EFFECTIVE * 

* LENGTH OF * 

* RECORD ON * 

* TRACK * 
***************** 



IJGWTEST X 

*****C5********** 

* DECREASE * 

* TRACK * 

* CAPACITY * 

* CNTR BY EFF. * 

* RCD. LENGTH * 
***************** 



RECORD 

FIT ON 

TRACK 



***** 
*GD * 
* Bl* 



**** 

* * 

* 1 * 

* * 
**** 



*YES **** 

* * 

* 2 * 



*****Fi ********** 
*IJGWRW GE* 
*_*_*_*_*_*_*_*_* 

* GET * 

* RECORD * 

* LENGTH * 
***************** 



*****G1 ********** 

* STORE * 

* RECORD LENGTH * 

* AND ADDRESS * 

* IN WRITE * 

* DATA CCW * 
***************** 



*****H1 ********** 

* INITIALIZE * 

* CCW TO * 

* WRITE COUNT * 

* KEY AND * 

* DATA * 
***************** 



*****jl ********** 

* STORE * 

* RECORD LENGTH * 

* IN * 

* COUNT FIELD * 



**** 

* * 

* 1 * 



*****P2********** 

* SET * 

* VERIFY CCW * 

* TO READ o 

* COUNT, KEY, * 

* AND DATA * 
***************** 



.* WRITE *. 

UPDATE 

♦.SPECIFIED.* 



* SET WRITE * 
..X* CCW CHAIN TO * 

* WRITE DATA * 

* * 
***************** 



*****G3********** 

* * 

* SET READ * 

* COUNT CCW * 

* IN CHAIN * 

* * 
***************** 



*****H3********** 

* SET * 

* VERIFY * 

* CCW TO * 

* READ DATA * 



*** 



************* 



*J2 
SDMODW MACRO 
PARAMETER 

OPTIDN — DECISION 
DOES NOT APPEAR 
IN AM ASSEMBLY 
LISTING. 



**K2******* 

* * 
SET OFF 
UPDATE 
SWITCH 

* * 
*********** 



****J3*********** 

* SVC * 
WRITE 
* DATA * 

***************** 



.* HOLD *. 
NO •* = YES AND *. 
...♦.UPDATE = YES . 
*„ *J2 .* 



D4 *. 

.* FIRST * 

ENTRY 

TO WRITE 

. ROUTINE 



*****E4********** 

* RE-STORE * 

* UPDATED * 

* RECORD NUMBER * 

* IN DTF * 

* TABLE * 
***************** 



*****P4********** 

* UPDATE * 

* RECORD * 

* NUMBER BY * 

* L AGAIN * 

* * 
***************** 



IJGWSSET 

*****G4 ********** 

* STORE * 

* UPDATED * 

* RECORD NUMBER * 

* IN COUNT * 

* FIELD ID * 
***************** 



*****H4********** 

* SET * 

* SEARCH * 

* ARG CCHH * 

* IN COUNT * 

* FIELD ID *^ 
***************** 



**J4******* 

* SET * 

* SWITCH FOR 
* FIRST ENTRY 

* INTO WRITE 

* ROUTINE * 
*********** 



****K4********* 

* SVC 
WRITE 
* RECORD * 

***************** 



***** ************ 



***** F5********** 

* STORE * 

* UPDATED * 
♦TRACK CAPACITY * 

* IN DTF ♦ 

* TABLE ♦ 
***************** 



**** 

* * 

* 5 ♦ 



* RESTORE ♦ 

* USER * 

* REGISTERS * 

***************** 



.♦ ROUTINE ♦. YES 


.ENTERED FROM 


* 




♦. CLOSE .♦ 






♦ROUTINE^ 






♦ . .♦ 




X 


♦NO 




***** 

*GF ♦ 








* Bl* 








* * 








* 




IJGWCHfcK 


X 






**** j 5 ******** a 






RETURN TO 


* 




PROBLEM 


* 




PROGRAM 


* 




*******] 


|e******* 
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Chart GD. SDMODW: READ, WRITE Macros, Common Routine 



*A2 
GB-E1 
GC-D3 



***** 
** * 
* A2* 



IJGWSQFF X 

**B1******* 

* SET TRACK * 

* LIMIT 
* REACHED 

* INDICATOR 

* QFF * 
*********** 



IJGWSTCH 

*****C1 ********** 

* GET * 

* SEARCH * 

* ADDRESS * 

* CCHH * 

* * 
*********** ****** 



EXTENT *. NO 
PPER LIMIT .*... 
REACHED .* 



ROUTINE * 
TERED FROM 
CLOSE .* 



*****gl ********** 

* * 

* GET ADDRESS * 

* OF DTF *> 

* TABLE * 

* * 
***************** 



****E2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*****P2********** 

* * 

* GET ADDRESS * 
X* OF DTF * 

* TABLE * 

* * 
***************** 



**G2******* 

* SET END * 
OF DTF'S 
INDICATOR 
FOR OPEN 

* ROUTINE * 
*********** 



IJGWSLD X 

*****B3********** 

* UPDATE * 

* TRACK * 

* NUMBER * 

* BY 1 * 



.* UPPER *. 
NO .*HEAD LIMIT 
,..*. ALREADY 

*. REACHED . 



*****03********** 

* UPDATE * 

* CYLINDER * 

* NUMBER * 

* BY ONE * 

* * 
***************** 



*****£ 3********** 

* SET HEAD * 

* NUMBER * 

* TO LOWER * 

* LIMITS * 

* * 
***************** 



*****A4********** 

* RESTORE * 

* TRACK * 

* CAPACITY * 

* IN DTF * 

* * 

************: 



*****B4******: 

* SET NEW 

* ADDRESS 

* IN COUNT 

* FIELD ID 

************* 



****C4.********** 

SET * 

RECORD NUMBER * 

IN COUNT * 

FIELD TO 1 * 

* 

**************** 



***** 
*GB * 
* Fl* 



****H1 ********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



.*. IJGWETRY 

Jl *. *****j2********** 

.* *. * GET * 

.* *. YES * NEW SEARCH * 

*.RDONLY = YES .* X* ADDRESS * 

*. *F4 .* X * CCHH * 
* * 

***************** 



IJGWSSTR 

*****P3********** 

* STORE * 

* UPDATED * 

* ADDRESS IN * 

* SEARCH * 

* ARGUMENT * 
***************** 



*****G3********** 

* SET * 

* RECORD * 

* NUMBER * 

* TO ZERO * 

* * 
***************** 



*****H3********** 

* * 

* GET TRACK * 

* CAPACITY * 

* CONSTANT * 

* * 
***************** 



.* ROUTINE * 
.ENTERED FROM 
*. WRITE .* 



*F4 
SDMODW MACRO 
PARAMETER 

OPTION ~ DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 





**. 
) 


.*" 
«<NO 

< 




*****K1 ********** 


* 


RESTORE 


* . 


* 


ADDRESS 


* 


* 


OF DTF 


* 


* 


TABLE 


* 


* 




* 


***************** 











***** 
*GC * 
* C4* 
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Chart GE- 



SDMODW: 



Read/Write Subroutine, Close Routine 



****A1 ********* 

* * 

* IJGWRW * 

* i * 
*************** 



IJGWRW X 

*****Bi ********** 

* GET * 

* ADDRESS OF * 

* INPUT/OUTPUT * 

* AREA * 

* * 
***************** 



.* FIXUNB 


* 


. YES 


*. RECORDS OR 




.* 




*. READ 


* 




. 


*. ERROR.* 








*. .* 






X 


*NO 






**** 
* 

* 1 
* 

**** 


X 








*****D1 ********** 




* GET 




* 




* ADDRESS 




* 




* OF 




* 




* IOAREA 




* 





****A3********* 

* ENTRY * 

* FROM * 

* $$B0SDC1 * 
*************** 



IJGWCLOS X 

****B3********** 

IJGWRITE GC 

*_*_*_*_*_*_*_*_* 

WRITE 
* REMAINING * 
RECORDS 
***************** 



****C3********* 

* SVC 9 * 

* RETURN TO * 

* $$BOSDCl * 
*************** 



**************** 



*****£! ********** 

* SET * 

* MAXIMUM * 

* BLOCK SIZE * 

* IN DTF * 

* TABLE * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



1ST *. NO 
ENTRY SW .*... 
ON .* 



*****Q1 ********** 

* SET * 

* SPECIFIED * 

* RECORD LENGTH * 

* IN DTF * 

* TABLE * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



.* LENGTH *. NO 
♦.GREATER THAN .*... 
*. MAXIMUM .* 



*****J1 ********** 

* SET * 

* RECORD LENGTH * 

* TO MAXIMUM * 

* LENGTH * 

* * 
***************** 



*****E3********** 

* * 

* TURN ON * 
X* FIRST ENTRY * 

* SWITCH * 

* * 
***************** 



***F3*** ******* 

* 

SET REC. * 

NO. IN SRCH * 

FIELD TO * 

* 

*************** 



*****G3********** 

* * 

* TURN ON * 
*M/T BIT IN READ* 

* COUNT CCW * 

* * 
***************** 



*****H3********** 

* * 

* MOVE IN * 

* READ COUNT * 

* CCW * 

* * 
***************** 



**** J3*********** 

* SVC * 
READ 
* COUNT * 

***************** 



***K1 ********* 
RETURN TO * 
CALLING * 
ROUTINE * 

************** 



* MOVE RECORD * 

* LENGTH TO * 

* DTF * 

* * 
***************** 
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Chart GF. 



SDMODW: 



CHECK Macro (Section 1 of 5) 



****A1 ********* 

* ENTRY * 

* FROM CHECK * 

* MACRO * 
*************** 



GB-D3 
GC-H5 
GH-J3 
GJ-J4 



*A5 
SDMODDW MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



* A2* 
**** 
IJGWCHEK 



.* 
. .* 
♦YES 



*#C1 ******* 

* SET * 
CHECK 

SWITCH 
OFF 

* * 
*********** 



ERROPT 

SPECIFIED 

*A5 



*****£! ********** 

* SET READ * 

* ERROR * 

* INDICATOR * 

* OFF * 

* * 
***************** 



*****B2********** 

* * SVC 7 * * 

* * WAIT FOR * * 
X* * I/O * *- 

COMPLETED 



* * 



* * 



NO .* ERREXT 
...*. SPECIFIED 
*. *A5 



**** 

* * 

* 2 * 

* * 
**** 



ERREXT *. NO 
SPECIFIED .*... 
*A5 .* 



***************** 



**** 02* ******** 

* * 

* RETURN * 

* * 
*************** 



* 3 * 

* * 



SHUT UNREC 

I/O ERROR 

SWITCH 



***** 04 ********** 

* * 

* SHUT UNREC * 

* I/O ERROR * 

* SWITCH * 

* * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 



*GK * 

* B2* 

* * 



ERROPT 

SPECIFIED 

*A5 



WRITE 

UPDATE 

CHECK 



F2 *. 

.* HOLD *. 

.♦AND UPDATE *. 

. BOTH SPEC- . 

*. IFIED .* 



WRITE 

UPDATE 

CHECK 



WRITE 
UPDATE 
CHECK 



***** 

♦ GK ♦ 

* B2* 



Jl *. 

.* HOLD ♦. 

.♦AND UPDATE *. 

. BOTH SPEC- . 

*. IFIED .* 

*. *A5 .* 

♦ . .* 

*NO 



IJGWCKRD X 

*****J2********** 

* SAVE RETURN * 

* REGISTER * 

* LOAD EOF * 

* ADDRESS * 

* IN REG 14 * 
***************** 



NO .* WAS IT *. 

...*. A WRITE 

♦.OPERATION.* 



**** J3********* 

* RETURN TO * 

* USER ♦ 

* * 
*************** 



.*. 
F4 *. 
.♦ HOLD ♦. 
.*AND UPDATE *. NO 
*. BOTH SPEC- .*... 
*. IFIED .* 
*. *A5 .* 
*. .* 
*YES 



JGWOPT .*. IJGWOPT .*. 


G4 *. 


Gli *. 


.* USER *. 


.* USNt +. 


.♦ ERROR *. NO 


.* IHKMH 


♦. ROUTINE .*.... 


*. RUUT1NL 


*. .* 




*. .* 


* . .* 


*. .♦ X 


*. .* 


♦YES ***** 


♦ NO 


*GK * 




* B2* 




* * 




* 




IJGWFTST 
X 

**H4******* 




X 


* * 


***«H5******* 


* CLEAR * 


* RETURN TO 


♦ UPDATE ♦ 
* SWITCH * 


♦ USER 


* 



********** 



*************** 



RDONLY 

SPECIFIED 

♦ A5 



***** j 5********** 

* * 

* SAVE * 
X* RETURN ♦ 

* REGISTER 14 * 

* * 
***************** 



*****K4********** 

♦ SAVE RETURN ♦ 

♦ REGISTER, 14, ♦ 

♦ IN SAVE ♦... 

♦ AREA ♦ 

♦ * 
***************** 



***** 
*GH * 
* B2* 
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Chart GG. SDMODW: CHECK Macro (Section 2 of 5) 



***** 

*GF * 

* J2* 

* * 



*A3 
SDMODDW MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*B4 
GO TO EOF 
ROUTINE. 



HOLD *. 
= YES 
*A3 .* 



****B3********* 

* RETURN * 

* *B4 * 

* * 
*************** 



ERROPT ♦ . NO 
=YES .*... 
*A3 .* 



IJGWFRE 

*****D1 ********** 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 



ERREXT *. NO 
=YbS .♦... 
♦ A3 .* 



****** 



ft******** 



IJGWCOMP .*. 

C4 *. **C5******* 

.* v *. * SET * 

.* RECORD *. YES * END OF * 

♦ . NUMBER .* X* TRACK * 

*. =1 .* * INDICATOR * 

*. .* * * 

*. .* *********** 

*NO 

!x '. 

x 

.*. 

04 *. *****D5********** 

.* *. * * 

.* RDONLY *. YES * LOAD * 

*. =YES .* X* RETURN *. 

*. *A3 .♦ * REGISTER 14 * 

♦..♦.♦ * 

*. .* ***************** 

♦ NO 



****E1********* 

* RETURN TO * 

* USER * 

* *B4 * 
*************** 



**+**[ 3********** 

♦ SHUT * 

♦ UNRECOVl RABLE * 
. X* I/U I RROK * 

* BIT * 

* * 

***************** 



JGWUNRC .*. 




F2 *. 




.♦ 


*. 


NO .♦ UNREC 


* 


..*. I/O 




♦. ERROR 


.* 



*****G2******^*** 

* SET 'CHECK * 

* AFTER * 

* READ' ♦ X 

* SWITCH * 

* * 
***************** 



.♦ IGNORE * 

OPTION 

*. SPECIFIED.* 



ERROPT 

= YES 

*A3 



*****P4********** 

* * 

* LOAD * 

* RETURN ♦ . 

* REGISTER 14 * 

* * 
***************** 

**** 

* * 

* 2 * 

* * 
**** 



*****£ 5 ********** 

* * 

* LOAD * 
X* RETURN * 

* REGISTER 14 * 

* * 
***************** 



♦ H3 
GH-D4,H4 
GJ-F2,H3 



***** 
*GH * 
* B2* 



.* USER *. 

ERROR 

♦ . ROUTINE .* 



SET READ 

ERROR 

INDICATOR 

* * 

*********** 



* SET CCW * 

* TO READ * 

* COUNT * 

* * 
***************** 



****J4** ********* 

* SVC * 

READ 

* COUNT * 

***************** 



ERROPT 

= YES 

*A3 



H5 ♦ . 

.♦SHOULD ♦. 

.♦READ ERROR ♦. 

BE 

♦. SKIPPED .♦ 



***** 

*GB ♦ 

* Bl* 

* * 



**** 

* * 

* 2 ♦ 

* * 
**** 



***************** 



****K5********* 

♦ RETURN TO ♦ 

♦ USER ♦ 

♦ ♦ 
*************** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart GH. 



SDMODW: 



CHECK Macro (Section 3 of 5) 



*A3 
GF-J5,K4 
GG-H2 



*A4 
SDMODDW MACRO PARAMETER 
OPTION. DECISION OOES 
NOT APPEAR ON AN 
ASSEMBLY LISTING. 



**** 

* * 

* 2 * 

* * 
**** 



IJGWUSER X 

*****B2********** 

* LOAD USER * 

* ROUTINE'S * 

* ADDRESS * 

* INTO REG 14 * 

* * 
***************** 



*****B5********** 

* * * * 

* * BALR * * 

* * TO USER * * 

* * ROUTINE * * 

* * * * 
***************** 



RDONLY 

=YES 

*A1 



X 
***** 
*GJ * 
* B2* 



*****F1 ********** 

* LOAD I/O * 

* AREA * 

* ADDRESS IN * 

* REG 1 * 

* * 
***************** 



*****02********** 

* * 

* SAVE MODULE * 

* REGISTERS * 

* 15, 0, 1 * 

* * 
***************** 



NO .* ERREXT 
...*.. =YES 
*. *A1 





.* HOLD *. 


YES .*AND UPDATE *. 


. ..*. 


=YES .*X 


* 


*A4 .* 




*. .* 


X 


*. .* 


***** 


*N0 


*GK * 




* B2* 




* * 








IJGWFTST 






X 


****E3********* 


* 


RETURN TO * 


* 


USER * 



*****C4** ******** 

* LOAD * 

* MODULE * 

* REGISTERS *X 

* 15, 0, 1 * 

* * 
********* ******** 



* WAS * 

LAST 

COMMAND 

READ 



NO .* ERREXT 
...*. =YES 
*. *A4 



***** 

*GG * 

* J2* 

* * 



*************** 



*****P3********** 

* * 

* MOVE I/O * 
.X* ADDRESS * 

* TO USER LIST * 

* * 
***************** 



*****G2********** 

* * 

* MOVE I/O * 

* ADDRESS TO * 

* USER LIST * 

* * 
***************** 



*****!-) 2********** 

* MAKE FIRST * 

* BYTE OF * 

* ADDRESS = * 
*LOAD LIST ADDR * 

* INTO REG 1 * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*****H3********** 

* * 

* LOAD * 

* MODULE * 

* REGISTERS * 

* * 
***************** 



****J3*********** 



SVC 

RETRY 

I/O 



***** 
*GF * 
* Bl* 









*YES 


**** 








* * 








* 1 * 








* * 








**** 






X 








**P5******# 








* LOAD MOD * 








* REGISTER. * 








* SHUT 'CHECK * 








* AFTER READ' * 








* SWITCH * 








*********** 




......... 


X 




X 


.*. 




*****C4********** 


G5 *. 




* LOAD * 


.* WAS *. 




* MODULE * 


YES .* LAST *. 




* REGISTERS * 


...*. COMMAND .* 




* 14-1 * 


*. READ .* 




* * 


* . .* 




***************** 


X *. .* 
***** *no 
*GG * 
* H4* 
* * 

* 




X 


IJGWBLD X 




.*. 


.*. 




H4 *. 


H5 *. 




.* WAS *. 


.* HOLD *. 




YES .* LAST *. 


YES .*AMD UPDATE *. 




...*. COMMAND .* 


*. =YES .* 




*. READ .* 




*. *A4 .* 




*. .* 




* . .* 




X *. .* 




*. .* 




***** *nq 




*N0 




*GG * 








* J2* 








* * 








* 








IJGWDSK X 
.*. 
J4 *. 










X 




.* HOLD *. 




**** J 5********* 




.*AND UPDATE *. 


fES 


* RETURN TO * 




*. =YES .* 


..X 


* USER * 




*. *A4 .* 




* * 




*. .* 




*************** 




*. .* 


X 




*N0 


***** 
*GK * 
* B2* 
* * 
* 
IJGWFTST 




X 






****K4********* 






* RETURN TO * 






* USER * 











*************** 
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Chart GJ. SDMODW: CHECK Macro (Section a of 5) 



***** 

*GH * 
* C2* 



* 2 * 

* * 
**** 



SDMODDW MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*****B2******* 

* SAVE 

* MODULE 

* REGISTERS 



***************** 



ERREXT 

=YES 

*A5 



*****C3********** 

* LOAD I/O * 

* AREA * 
ADDRESS * 

* INTO REG 1 * 

* * 
***************** 



.X* 



IJGWIGN X 

**B4******* 

* SHUT * 
♦•CHECK AFTER 

* READ' 
* SWITCH 

* * 
*********** 



*****C4**«******* 

* * 

* LOAD * 

* RETURN * 

* REGISTER 14 * 

* * 
***************** 



WAS LAST 
COMMAND 
. WRITE 



.X* 



*****02********** 

* MOVE I/O * 

* AREA * 
ADDRESS * 
TO USER * 

* LIST * 
***************** 



*****E1 ********** 

* MOVE I/O * 

* AREA * 

* ADDRESS * 

* TO USER * 

* LIST * 
***************** 



**** 
X 
*****D3********** 

* * BALR * * 

* * TO * * 

* * USER * * 

* * ROUTINE * * 

* * * * 
***************** 



ERREXT 
= YES 

*A5 



YES .* WAS LAST 
...*. COMMAND 
*. READ 



***** 

*GG * 

* H4* 

* * 



* HOLD 

AND UPDATE 
*. =YES 



*****P1 ********** 

* MAKE FIRST * 

* ADDRESS BYTE * 

* ZERO. LOAD * 

* LIST ADDR * 

* INTO REG 1 * 
***************** 



***************** 



* WAS * 

LAST 

COMMAND 

READ 



***** 
*GK * 
* B2* 



**** F 5********* 

* RETURN TO * 

* USER * 

**** *********** 



***** 
*GG * 
* J2* 



G2 *. 

.* HOLD *. 

.*AND UPDATE 

= YES 

*. *A5 

*. .* 

*. .* 



****H2********* 

* RETURN TO * 

* USER * 

* * 
*************** 



IJGWRDSK 

*****G3********** 

* * 

* RELOAD * 

* RETURN * 

* REGISTER 14 * 

* * 
***************** 



WAS LAST 
COMMAND 
. READ 



**** 

* * 

* 2 * 

* * 
**** 



***** 
*GG * 
* J2* 



*****G4********** 

* * 

* * 

* RETRY * 

* * 

* * 
***************** 



****H4*********** 

* SVC * 
RETRY 
I/O * 

***************** 



.* HOLD *. 
.*AND UPDATE 
= YES 
*. *A5 



***** 
*GK * 
* B2* 



****K3********* 

* RETURN TO * 

* USER * 

* * 
*************** 



*****J4********** 

* * 

* RELOAD * 

* RETURN * 

* REGISTER 14 * 

* * 
***************** 



IJGWCHEK 
WAIT AND 
ERROR TEST 
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Chart GK. SDMODW: CHECK Macro (Section 5 of 5) 



*A3 
GF-C5,E5,G2,G4 
GH-03iH5,J4 
GJ-E5,G2,J3 



.* WRITE 
UPDATE 
*. OPERATION. 



C2 *. 

.* TRACK *. 

HOLD 

OPTION 
.SPECIFIED. 



*****01 ********** 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* * * * 
***************** 



****C3********* 

* RETURN * 

* TO USER * 

* * 
*************** 



IJGWUPOF 

**E1 ******* 

* SET * 

* UPDATE 
* SWITCH 

* OFF 

* * 
*********** 



****P1 ********* 

* RETURN TO * 

* USER * 

* * 
*************** 
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Chart GL. SDMODW: NOTE, POINTR, POINTW Macros 



****A1********* 

* ENTRY FROM * 

* NOTE * 

* MACRO * 
*************** 



IJGWNOTE 

*****Bl ********** 

* SAVE SEARCH * 

* ARGUMENT * - 

* (OCHR) IN * 

* SAVE AREA * 

* . * 
***************** 



.* NOTE * 
.ISSUED AFTER 
*. READ .* 



****A2* ******** 

* ENTRY FROM * 

* POINTR * 

* MACRO * 
*************** 



****A3********* 

* ENTRY FROM * 

* POINTW * 

* MACRO * 
*************** 



IJGWPNT 

*****B2********** 

* SAVE * 

* CONTENTS * 

* OF REGISTER * 

* 3 * 

* * 
***************** 



**C2******* 

* SET * 
POINTS 
SWITCH 

OFF 

* * 
*********** 



* 1 * 

* * 
**** 



NO .* NOTE * 
..♦.ISSUED AFTER 
*. WRITE .* 



*****E1 ********** 

* INCREASE * 

* RECORD * 

* NUMBER * 

* BY ONE * 

* * 
***************** 



*****P1 ********** 

* STORE UPDATED * 

* RECORD NUMBER * 

* IN SAVE * 

* AREA * 

* * 
***************** 



IJGWLCTY 

*****G1 ********** 

* RETURN * 
♦REMAINING TRACK* 

* CAPACITY IN * 

* REGISTER * 

* * 
***************** 



**** 

X 
*****HL ********** 

* RETURN RECORD * 

* ADDRESS * 

* IN REGISTER * 

* l * 

* * 
***************** 



****J1********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*****02********** 

* GET ADDRESS * 

* OF RECORD * 
♦IDENTIFICATION * 

* FIELD * 

* * 
***************** 



*****E2^+**^**^ 

♦ MOVE CYLINDER ♦ 

♦ AND TRACK * 

♦ NUMBERS TO ♦ 

♦ SEARCH ♦ 

♦ ARGUMENT ♦ 
***************** 

**** 



*GM ♦ 
* Fl* 
**** 
IJGWTLIM 



.♦RECORD *. 
YES .ID LT EXTENT*. 
...♦. LOWER .♦ 
♦. LIMIT .* 



G2 ♦. 

.♦RECORD ♦. 

.♦ ID EXCEED * 

♦.EXTENT UPPER 

*. LIMIT .♦ 

*. .* 



****C3********* 

♦ SVC 2 * 

♦ FETCH * 

♦ $$BOPEN * 
*************** 



RDONLY 
= YES 
*J4 



*****E3********** 

♦ RESTORE ♦ 

♦ ADDRESS OF ♦ 

♦ DTF TABLE ♦ 

♦ * 
***************** 



*****q/, ********** 

* SET SPACE * 

* REMAINING * 

* ON TRACK * 

* IN DTF ♦ 

* TABLE * 
***************** 



**C4******* 

* SET OFF ♦ 
TRACK LIMIT 

AND FIRST 
WRITE 

* SWITCHES ♦ 
*********** 



*****D4 ********** 



***************** 



****E4********* 

♦ RETURN TO ♦ 

♦ PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



STORE RECORD 
NUMBER IN 
DTF TABLE 



********** 



*****G3********** 

♦ SET SEARCH ♦ 

♦ ARGUMENT ♦ 

♦ IN COUNT ♦ 

♦ FIELD ID ♦ 

♦ * 
***************** 



IJGWFOPN 

**H2******* 
♦ SET OPEN * 

♦ INDICATOR ♦ 
♦ FOR EXTENT 

♦ OPENED FROM ♦ 
♦POINT MACRO* 

*********** 



RDONLY *. YES 
= YES .*.... 
*J4 .* 



****** 2********** 

♦ * 

♦ GET ADDRESS ♦ 

♦ OF DTF ♦ 

♦ TABLE * 

♦ * 
***************** 



*****J3********** 

* * 

* GET ADDRESS ♦ 
X^ OF DTF ♦ 

* TABLE ♦ 

* * 
***************** 



**K3******* 

* * 
SET END 

OF DTF'S 
INDICATOR 

* * 
*********** 



♦ J4 
SDMODW MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



^ 



* 2 * 

* * 
**** 
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Chart GM. SDMODW: POINTS , FREE, CNTRL Macros 



****A1 ********* 

* ENTRY FROM * 

* POINTS * 

* MACRO * 
*************** 



****A2********* 

* ENTRY FROM * 

* FREE * 

* MACRO * 
*************** 



****A4********* 

* ENTRY FROM * 

* CNTRL * 

* MACRO * 
*************** 



JGWPNTS X 




IJGWFREE .*. 




IJGWCTL X 


*****Bl ********** 


B2 *. 




**B4******* 


* 


* 


.* *. 


****B3********* 


* SET 


* SAVE 


* 


.* "TRACK *. NO 


* RETURN TO * 


* COMMAND 


* USER 


* 


*. HOLD OPTION .* 


...X* PROBLEM * 


* CHAINING BIT 


* REGISTER 


* 


♦.SPECIFIED.* 


* PROGRAM * 


* OFF IN SEEK 


* 


* 


*. .* 


*************** 


* CCW 


************** 


*** 


*. .* 




*********** 



**ci ******* 



*********** 



*****Di ********** 



***************** 



*****Ei ********** 

* INITIALIZE * 

* POINT AREA * 

* TO INITIAL * 

* EXTENT LOWER * 

* LIMIT * 
***************** 



***#*F1 ********** 

* INITIALIZE * 
♦TRACK CAPACITY * 

* CONSTANT FOR * 

* POINTS MACRO * 

* * 
***************** 



***** 
*GL * 
* F2* 



*****C2********** 

* * 

* SAVE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****02********** 
*IJGWRW GE* 
*_*_*_*_*_*_*_*_* 

* GET ADDRESS * 

* AND RECORD * 

* LENGTH * 
***************** 



*****££********** 

* SET ADDRESS * 

* AND RECORD * 

* LENGTH IN * 

* ' CCW * 

* * 
***************** 



*****(: 2 + ** + ****** 

* * * * 

* * SVC 36 * * 

* * IIU.I * * 

* * PUCK * * 

* * * * 
***************** 



*****G2********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



****H2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****C4** ********* 

* SVC * 
CONTROL 
* SEEK * 

***************** 



*****Q5********** 

* * SVC 7 * * 
•* * WAIT FOR * * 

.X* * I/O * *. 

* * COMPLETED * * 

* * * * 
*********** 



**E4******* 

* SET ON * 

* COMMAND 
CHAINING BIT 

* IN SEEK 

* CCW * 
*********** 



♦ ♦♦♦r-'t 4******** 

* RLIURN TO * 

* IMUmi.EM * 

* PKUGKAM * 
*************** 
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Chart GN. SDMOD: FEOVD Macro 



*A2 
SDMOD MACRO PARAMETER 
OPTION. DECISION DOES 
NOT APPEAR IN ASSEMBLY 
LISTIMG. 



****A3********* 

* ENTRY * 

* FROM FEOVD * 

* MACRO * 

*************** 



FILENAME 

SPEC 

*A2 



* ISSUE MNOTE * 

* NO FILENAME * 
X* SPEC-MACRO * 

* IGNORED * 



*** 



i*********** 



NO .* FILENAME * 
...*. SPEC AS REG 
'*. *A2 .* 



* STORE * 

* CONTENTS * 

* OF REG * 

* * 
***************** 



****C4********* 

* RETURN * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



*****E3********** 

* * 

* LOAD ADDR * 

* OF * 

* $$BOSDEV * 

* * 
***************** 



****P3********* 

* SVC 2 * 

* FETCH * 

* $$BOSDEV * 
*************** 
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Chart HA. $$BOSD00: SD Open, Initialization 



****A1 ********* 

* TESTWORK * 

* — — * 

*************** 



Bl *. 
* 

QTAM 

*. 

*. . * 
*N0 



LOADINP 

**C2******* 

* MODIFY * 

* PHASE NAME 
...X* FOR INPUT OR 

* OUTPUT AS 

* REQUIRED * 
*********** 



INPUT OR 
COMPILER 
. FILE 



**gl******* 

* MODIFY * 

* PHASE NAME 
FOR SSBOSDOl 

* TO FETCH 

* $$BOSDW3 * 
*********** 



.* PH 


* 


. YES 


*. FILE 




.* 




*. 


* 






*. .* 








*. .* 






X 


*N0 






**** 
* 

* L 
* 

**** 


X 








*****P2********** 




* DETERMINE 




* 




* ADDRESS OF 




* 




* REGISTER 




* 




* SAVE AREA 




* 





***************** 



RESETCP 

**G2******* 

* RESTORE * 

* COMPILER 
* FILE 

* INDICATOR 

* * 
*********** 



**** 

* * 

* 1 * 

* * 
**** 



. UNSUPPORTED*. YES 
*. SYSTEM .*.... 
*. UNIT .* 



**D4******* 

* SET * 
BRSWIT 

TO 
BRANCH 

* * 
*********** 



*****E4**** ****** 



***************** 



* MESSAGE 
4N48I 
* *F5 * 

***************** 



**** £5********* 

* * 

* CANCEL * 

* * 
*************** 



*F5 
N=3 - INPUT FILE 
N=4 - OUTPUT FILE 



***************** 



G4 *. 

* DIB * 

ADDRESS 

ZERO 



* ESTABLISH * 

* MAXIMUM * 

* SEEK ADDRESS * 

* * 
***************** 



****K3********* 

* SVC 2 * 

* $$BOSD01 * 

* OR $$BOSDW3 * 
*************** 



*****H4 ********** 

* * 

* SET * 

* FlLfc-IN-USE * 

* - INDICATOR * 

* * 
***************** 



.*SYSTEM *. 
.* UNIT 
. OTHER THAN 
*. SYSLNK . 



*K4 
$$BOSDIl 
$$BOSD01 
$$B0SDW1 



****« 5 ********* 

* SVC 2 * 
INDICATED PHASE* 

* *K'» * 
#**«***«#**««** 
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Chart HB. $$BOSD01: SD Open r DLBL Extents 



PRBGN 

****A!********* 

* * 

* $$B0SD01 * 

* * 
*************** 



*****Bi ********** 

* INITIALIZES * 

* CCB'S * 

* RELOCATE * 

* CCW'S * 

* * 
***************** 



INITBS X 

*****/\2**« ******* 

* LOAD DLBL * 

* AND EXTENT * 

* BASE * 

* REGISTERS * 

***************** 



****B2*********** 
GET 
* SPECIFIED * 
DLBL 
RECORD * 

*************** 



PRLCONVT X 

*****/\4** ******** 

* CONVERT * 

* EXTENT TO * 

* DASD * 

* ADDRESS * 

* * 
***************** 



DASD 

ADDRESS 

VALID 



***************** 



CI *. 

.♦REENTRY*. 

FROM 

MESSAGE 

. WRITER . 

*. .* 

*. .* 



*****Ol ********** 

* RESET * 

* MESSAGE * 

* RETURN * 

* INDICATOR * 

* * 
***************** 



**** 
SETIND X 

*****£!********** 

* * 

* SET EXTENT * 

* CONVERTED * 

* INDICATOR IN * 

* LABEL RECORD * 
***************** 



****P1 *********** 
WRITE 
* MODIFIED * 
SYSRES 
* EXTENT * 
RECORD 
***************** 



*****G1 ********** 

* RESTORE * 

* CCB * 

* FROM WRITE * 

* TO READ * 

* * 
***************** 



.* DLBL FOR 
*. SD 
*. FILE 



****C3*********** 

* MESSAGE * 
4N61I 
*A3 * 



.* EXTENT *. NO 
. PREVIOUSLY .*.... 
♦.CONVERTED.* 



DLAOOK 
YES .** 



***************** 



****D3 ********* 

* * 

* CANCEL * 

* * 
*************** 



****£ 3**# ******** 



****C5********* 

* SVC 2 * 

* $$BOMSGl * 

* * 
*************** 



*YES 




**** 


**** 




* 


* * 




* l 


* 4 *... 




* 


* * . 




**** 


**** x 






CKMORE .*. 






D4 *. 






.* *. 






.* MORE 


* 


NO 


*. EXTENTS 




* 


♦.AVAILABLE 


* 





MESSAGE 

4N58I 

*A3 



************* **> 



FILE 

ALREADY 

OPEN 



***************** 



****P3********* 

* CANCEL * 

* * 
*************** 



****E4*********** 
READ NEXT 
* SYSRES * 
EXTENT 
RECORD * 

*************** 



**P4******* 



SET 

REREAD1 
TO NOP 



****Q5*********** 

REREAD 
* FIRST * 
EXTENT 
* RECORD * 

***************** 



EXTENT * 


NO 


LIMITS 


*.. . . 


OMMITTED .* 




*. .* 




*, .* 


X 


*YES 


**** 




* * 




* 5 * 




* * 




**** 


X 




.*. 


MOVSYM 


J2 *. 


****J3*********** 


* *. 




INPUT * 


NO * MESSAGE * 


FILE 


* X 4N59I 


.* 


* *A3 * 



*********** 



****K3 ********* 

* FETCH * 

* $$BOMSGl * 

* * 
■ *************** 



***** H5********** 

* * 

* SAVE * 

* RECORD * 

* ADDRESS * 

* * 
***** ************ 



**** J5********* 

* FETCH PHASE * 

* SPECIFIED BY * 

* $$BOSDOO * 
*************** 



270 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart HC. $$B0SDI1: SD Open Input, DLBL Extents (Section 1 of 3) 











*ENTRY FROM 


MORXTNTS .*. 






















$$BOSDOO OR 


A3 *. 










****A1 ********* 








$$B0SD01 


.* *. 










* 0PENINP1 * 










.* MORE *. NO 










* * * 










*. EXTENTS .* 












* * 


*. .* 








*************** 










*. .* 
*. .* 
♦ YES 










**** 

* * 

* 4 * 












***** 








* * 












*HD * 








**** 












* CI* 




















. * 


* 




















X * X 






X 


0PENINP1 X 










.*. 


TESTSW .♦. 




LASTVOL .*. 


*****Bl ********** 










B3 *. 


B4 *. 






B5 *. 


* * 










.* *. 


.* v *. 






.* NEXT *. 


* RELOCATE * 










YES .* DTFPH *. 


\ ES .* DTFPH *. 






.* EXTENT *. NO 


* CCW * 










...*. FILE .* 


...*. FILE .* 






*. ON NEW .*.... 


* CHAIN * 










*. .* 


*. .* 






*. VOLUME .* 


- * * 










*. .* 


*. .* 






*. .* 


***************** 










*. .* 
*N0 


*. .* 
*N0 

X 






*. .* X 
♦YES ***** 
**** . *HD * 

* * . * B2* 
♦HD ♦. . . * ♦ 

* Fl* * 
**** X NEXTXTNT 


X 










X 


.*. 




BYPASSED .*. 


*****ci ********** 










**C3******* 


C4 *. 






C5 *. 


* INITIALIZE * 










* * 


.* *. 






.♦EXTENT *. 


* POINTERS * 










* RESET * 


.* END *. YES 




.* BYPASSED *. YES 


* TO COMMON * 










* LIOCS * 


*. OF .* 






*. BEFORE FILE .*.... 


* ROUTINES * 










* SWITCH * 


*. EXTENT .* 






*. OPENED .* 


* * 










* * 


*. .* 






* . .* 


***************** 










*********** 


*. .* 






*. .* X 














*N0 


**** 


*N0 ***** 
















* 


♦ 


*HD * 
















* 5 


* 


* D2* 
















* 


* 


* * 












x" 


X 


**** 


. * 


X 


X 


X GETNEXT 


.*. 










TESTCCB .*. 


.*. 






.*. 


01 *. 








**02******* 


D3 *. 


D4 *. 






D5 *. 


.* *. 








* * 


.* *. 


.* *. 






.* NEED *. 


.* RE-ENTRY *. YES 




* RESET * 


NO .* UNIT *. 


.* EOV *. YES 




.♦TO DEQUEUE *. NO 


*. INTO THIS .* 








X* RE-ENTRY * 


...*. EXCEPTION BIT.* 


*. FORCED .* 






♦. OLD VOLUME ...... 


*. PHASE .* 








* INDICATOR * 


*. ON .* 


*. .* 






*. EXTENTS .* 




*. .* 








* * 


*. .* 


*. .* 






* . .* 




*. . * 








*********** 


*. .* 


*. .* 


X 




*. .* 




*NO 










*YES 


*N0 


**** 


♦YES 


















* 


* 
















. 




* 3 


* 


. 














'. X 


' X.* 

X 


**** 


| 




X 










.*. 


TESTOPEN .*. 






X 




*****£! ********** 








X 


E3 *. 


E4 *. 






**E5******* 




* CLEAR BIN * 








****E2********* 


.* *. 


.* *. 






* RESET * 




* NUMBER IN * 








* EXIT VIA * 


. NO .* LAST *. 


YES .* IS *. 






* DEQUEUE * 




* DISK ADDRESS * 








♦ REGISTER * 


<...*. VOL. OF DATA .* 


....*. FILE -* 






* OLD VOLUME * 




* FOR 2311/2314 * 








* SUMREG * 


*. SET .* 


*. OPENED .* 






* EXTENTS * 




* * 








*************** 




*. .* 






♦ INDICATOR * 




***************** 








**** * 


X **. .** 
**** *YES 
* 


*. .* 
*N0 
**** 






*********** 












* * * 


4 * 


* * 




















♦ 1 *. . . * 


* 


♦ 3 *.. 




















* * 
**** . 


**** .X 


* * 
**** 








I 










X 






P0STD18 X 


RESETEOF X 


MESSG47 X 






X 




**#**P1 ********** 








*****F2********** 


**F3******* 


*****P4********** 






**P5******* 




* INSERT SYMB * 








* INITIALIZE * 


*RESET UNIT * 


* SET UP TO * 






* * 




* UNIT ADDRESS * 








* DTF TABLE * 


*EXCP BIT AND * 


* ISSUE * 






* SET IND * 




* FOR SYSRES * 








* WITH UPPER * 


* SET SWITCH TO * 


* MESSAGE * 






* TO DEQUE * 




* INTO OPEN * 








* AND LOWER * 


*EXIT TO USER * 


* 43601 * 






* EXTENTS * 




* CCB * 








* LIMITS * 


* EOF RTN * 


* * 






* * 




***************** 








***************** 


*********** 


***************** 

X 

***** 






*********** 

* X 




X 










X 


*HD * 






X 


.*. 








X 


.*. 


* G4* 








Gl *. 








**G2******* 


G3 *. 


* * 






Gi> *. 


.* *. 








* * 


.* *. 


* 






.* NPfiD *. 


.* SYSTEM *. NO 






* SET OPEN * 


.* DTFSD *. YES 


MOVESYM 




YES .*T0 PKUCnSS *. 


*. FILE OPEN .* 


• 


■; 




* BIT ON IN * 
* DTF * 


*. FILE .* 










.*. TRAILER .* 


*. .* 


*. .* 






*. LABELS .* 


*. .* 








* * 


*. .* 










* . .* 


*. .* 




X 




*********** 


*. .* 










*. .+ 


*YES 


**** 




♦ NO 










♦ NO 




* 




* 
















. 


* 


2 


* 














. 


X 


**** 














X 


.*. 






RETMON X 


X 


INITPSW X 








HI *. 








*****H2********** 


**H3******* 


*****H4**** ****** 






H5* **. 


.* IS *. 








* INITIALIZE * 


* * 


* SET EOF * 






.* *. 


NO .* SYSTEM *. 








* TO FETCH * 


* SET EOF * 


* ADDRESS IN * 






.* IS *. YES 


....*. FILE .* 








* OPEN MONITOR * **** 


* * INDICATOR * 


* USER OLD * 






*. FILE .*.... 


*. OPENED .* 








* $$BOPEN * * 


* ♦ IN DTFPH * 


* PSW * 






*. OPENED .* 


*. .* 








* * * 5 


♦ * * 


* * 






* . .* 


*. .* 








***************** * 


* *********** 


***************** 






*. .* X 


*YES 








**** 


* 








*N0 ***** 






















*HD * 






















* B2* 


I ; 








'. X 


X*X 










* * 
♦ 


'. X 








X '.' 




X 






NEXTXTNT 


.*. 








.*. 


LOADWORK X 


.*. 






X 


ji *. 








J2 *. 


**j3******* 


J4 *. 






***** j 5********** 


.* *. 








.* *. 


* * 


.* NEED *. 






* SAVE * 


.* IS *. NO 






.* ANOTHER *. NO . 


* RESET * 


NO .*T0 PROCESS *. 






* VOLUME * 

* SEQUENCE * 


*. SYSTEM UNIT .* 








*. FILE TO BE .*.... 


* MONITOR * 


...*. TRAILER .* 






*. SYSLNK .* 








*. OPENED .* 


* SWITCH * 


*. LABELS .* 






* NUMBER * 


*. .* 








*. .♦ 


* * 


*. .* 






♦ * 


*. .* 




X 




*. .* 


*********** 


*. .* 






***************** 


*YES 


**** 
* * 


♦ YES 




*YES 






• 




* 
* 


1 


* 
* 














X 


I x! 


*** 


* 








X 







***** 


X 


*HD ♦ 


BYPASSX .*. 












M0DIFY3 








* Bl* 


Kl *. 








X 


X 


X 






* * 


. * *. 








****K 2* ******** 


****K3********* 


****K4 ********* 






* 


.* THIS *. NO 






♦ SVC 2 * 


* RETURN TO * 


* SVC 2 * 






PASSXTNT 


♦.EXTENT TO BE .*« 








* FETCH * 


* PROBLEM * 


* FETCH * 








♦.BYPASSED .* 








* $$BOPEN * 


* PROGRAM * 


* $$B0SD13 * 








*. .* 
*. . * 
*YES 




. 




*************** 


*************** 


*************** 








**** 
















* 




* 














. 


* 


2 


* 














X 


* 




* 














**** 


**** 
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Chart HD. $$B0SDI1: SD Open Input , DLBL Extents (Section 2 of 3) 



***** 

*HC * 
* J'j* 



**** 

* * 

* l * 



.♦THIS EXTENT*. NO 



* 2 



**** 
NEXTXTNT .X. 

B2 *. 

.* NEED *. 

NO .* TO FIND * 

. LAST EXTENT 

*. OPENED .* 



**** 

* * 

* 3 * 



**** 

* j| 

* 4 1 

* 1 
**** 



***** 
*HC * 
* E4* 



IS THIS 
THE LAST 
. EXTENT 



NEXT 
EXTENT ON 

. NEW VOL . 



**£!******* 

* SET NEW * 
VOLUME 

INDICATOR 
ON IN 

* DTF * 
*********** 



**pi******* 

* RESET * 
NEW VOL 

INDICATOR 
IN DLBL 

* RECORD * 
*********** 



***** 
*HC * 
* C5* 



* THIS THE * 

LAST EXTENT 
*. OPENED .* 



GETNEXT X 

****«D2********** 

* GET ADDRESS * 

* OF DLBL/ * 

* EXTENT * 

* RECORD * 

* * 
***************** 



*****E2********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 43071 * 

* * 
***************** 



****F2*********** 

READDISK HE 

*-*-*_*_*_*_*_*_* 

READ NEXT 

* EXTENT * 

RECORD 



************* 



*** 



*****G2********** 

* * 

* SAVE ADDRESS * 

* OF NEXT * 

* EXTENT * 

* * 
***************** 



HAS 
EOV BEEN 
. FORCED 



J2 *. 

.* THIS *. 

EXTENT ON = 

NEW 

. VOLUME . 



YES .* SYMBOLIC *. 

...♦UNIT IN EXTfcNT. 

*. CARD .* 



.* SYMBOLIC 

*. UNIT IN 

*. DTF 



*****P3********** 

* INITIALIZE * 

* EXTENT WITH * 

* SYMBOLIC * 

* UNIT ADDR * 

* * 
***************** 



****G3********* 

* SVC 4 * 

* FETCH * 

* $$BOSIGN * 
*************** 



MOVEUNIT X 

*****A4 ********** 

* INITIALIZE * 

* OPEN ANC DTF * 

* CCBS WITH * 

* SYMBOLIC UNIT * 

* ADDRESS * 
***************** 



*****B4 ********** 

* INIT OPEN * 

* AND LIOCS * 

* DISK * 

* ADDRESSES * 

* * 
***************** 



*A5 
RETURN PT 
FROM $$BOSIGN 
IF LOGICAL UNIT 
IS ASSIGNED. 



* 5 



**** 
READV0L1 

*****C4 ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 43061 * 

* * 
***************** 



*****D4 ********** 

* INITIALIZE * 

* CCW CHAIN * 

* TO READ * 

* VOLUME * 

* LABEL * 
***************** 



*_*_*-*_*-*_*-*_: 



READ 

VOLUME 

LABEL 



***************** 



**** 



LOADMSG 

*****F4 ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 43831 * 

* * 
***************** 

**** 

* * 
*HC * 

* F4* 
**** 

MOVESYM 

*****G4 ********** 

* * 

* GET SYMBOLIC * 

* UNIT FOR * 

* ERROR MESSAGE * 

* * 
***************** 



**#**B5********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 43061 * 

* * 
***************** 



C5 *. 

* IS 

LABEL 

V0L1 

LABEL 



***** 
*HE * 
* G4* 



BYPASS 

ERIAL NO. 

CHECK 



E5 *. 




.♦EXTENT *. 




.♦.AND LABEL ♦ . YESX 


♦ .VOL SER NOS. .*... 




*. EQUAL .* 




* . .* 




*. .* X 


*N0 ***** 


*HE * 


* Bl* 


* * 


* 


VT0CADD2 


X 


*****P5********** 


* SET UP TO * 


* ISSUE * 


* MESSAGE * 


* 4355A * 





***** ************ 



*****G5********** 

* GET SERIAL * 

* NUMBER OF * 

* PACK TO * 

* MOUNT * 

* * 
***************** 



****H5*********** 
MSGPHAS1 HE 

*_*_*_*_*_*_*_*_* 

TYPE ERROR 
* MESSAGE * 

***************** 



* THIS 

THE EXTENT 
*. NEEDED . 
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Chart HE. $$B0SDI1: SD Open Input, DLBL Extents (Section 3 of 3) 



*A1 
HD-D5.E5 
***** 



VTGCADDR X 

«****B1 ********** 

* INITIALIZE * 

* SEEK ADDRESS * 

* WITH ADDRESS * 

* OF THE VTOC * 

* * 
***************** 



*****Ql ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 43041 * 

* * 
***************** 



****D1 *********** 
READDISK HE 
*_*_*_*_*_*_*_*_* 

READ 
* FORMAT 4 * 
LABEL 
***************** 



*****£!********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 43041 * 

* * 
***************** 



**** 

* * 

* 2 * 



*****B2********** 

* MODIFY PHASE * 

* NAME TO * 

* FETCH * 

* SSBODQUE * 

* * 
***************** 



****A4 ********* 

* * 

* READDISK * 

* > * 
*************** 



READDISK 

*****B4* ********* 

* GET ADDRESS * 

* OF CCB * 

* FOR * 

* SUPERVISOR * 

* * 
***************** 



****C4 ********* 



Fl *. 










* IS * 










LABEL 


* 


. IMD 




FORMAT 4 




.* 






LABEL 


* 








*. .* 










*. .* 








X 


*YES 






* 

* 
* 


**** 

3 
**** 


X 










*Gi ********** 










* 






SAVE 




* 






VTOC 




* 






LIMITS 




* 







RESET 

DEQUEUE 

INDICATOR 



*****D2********** 

* INITIALIZE * 

* TO FETCH * 

* NEXT * 

* PHASE * 

* * 
***************** 



****E2********* 

* SVC 2 * 
♦FETCH $$B0SDI2 * 

* OR SSBODQUE * 
*************** 



****F2********* 

* * 

* MSGPHAS1 * 

* * 
*************** 



SVC 
READ 
RECORD * 

*********** 



*E3 
HD-C5,G4 

***** 



.* DISASTER 
ERROR 
*. OCCURRED 



*****D5*** ******* 

* * SVC 7 * * 

* * WAIT FOR * * 
.X* * I/O * *. 

* * COMPLETED * * 

* * * * 
***************** 



****E5********* 

* SVC 11 * 

* RETURN TO * 

* SUPERVISOR * 
*************** 



****P5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



***************** 



*****Hl ********** 

* GET SEARCH * 

* FILE KEY * 

* FOR * 

* FORMAT 1 * 

* LABEL * 
***************** 



Jl *. 
.* NEED *. 
.*T0 DEQUEUE *. YES 
*. FILE .*.... 
EXTENTS .* 



INITIALIZE * 

TO FETCH * 

SSB0MSG1 * 

* 

*************** 



( X 
****H4********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



*. 



**** 

* * 

* 1 * 

* * 
**** 
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Chart HF. $$B0SDI2: SD Open Input , Extent to DTF (Section 1 of 3) 



****A1 ********* 

* ' * 

* 0PENINP2 * 

* * 
*************** 



***************** 



IS IT 

A REENTRY 

.INTO THIS. 

♦.PHASE.* 



****D1 *********** 
READDISK HH 
**_*_*_*_*_*_*_** 

READ 
* FORMAT 1 * 
LABEL 
***************** 



RESET 

REENTRY 

INDICATOR 

* * 

*********** 



****D2********* 

* GO TO ADDRESS * 

* IN REGISTER 5 * 

* * 
*************** 



****E2*********** 



***************** 



****P2********* 

* * 

* CANCEL * 

* * 
*************** 



****G2*********** 



**** 

* * 

* 1 * 

* * 
**** 



DATA 

SECURED 

FILE^ 



C3 *. 
* HAS 
FILE 
BEEN 

OPENED 



*****D3********** 
♦MSGPHAS1 HH* 
*-*-*-*-*-*-*-*-* 

* FETCH DATA * 

* SECURITY * 

* PHASE * 
***************** 



SAVESEO 

*****£ 3********** 

* SAVE * 

* SEQUENCE * 

* NO. FROM * 

* LAST EXTENT * 

* RECORD * 
***************** 



A4 *. 

.♦ IS *. 

.* FIRST ♦ . 

.*. EXTENT A USER.* 

*. LABEL .♦ 

♦EXTENT.* 

*. .* 

*YES 



.* WAS *. 

USER LBL 

ADDR 

.SPECIFIED. 



**C4******* 
♦SET IND TO * 

* PROCESS HDR 
LBLS. SAVE 

* USER LBL 
♦TRACK ADDR * 

*********** 



NO 



EQXTENT .*. 

D4 *. 

.* WAS *. 

* EXTENT LL *. 

EQUAL TO USER. 

*. LABEL .* 

♦EXTENT. ♦ 

*. .* 

*YES 



E4 *. 

.♦ IS IT ♦. 

♦ A TRACK 1 

USER LABEL 

♦. EXTENT . 

*. .♦ 

*. .* 



NEWLIMIT X 

*****P4** ******** 

* GET NEW * 

* UPDATED * 

* EXTENT * 

* LL. * 

* * 
***************** 



****E5******** 



***************** 



**P5******* 

* TURN ON * 

* BYPASS 
* EXTENT 

♦ INDICATION 

* * 
*********** 

**** * 



***** 
*HG * 
* A2* 
* * 



*HG * 
* G4* 
**** 



***************** 



.* LAST * 

VOL. OF 

DATA 

SET 



**jl******* 

* SET * 
LAST 

VOLUME 
SWITCH 

* * 
*********** 



.*IS NEW * 






* 


.* VOLUME 


* 


NO 




*. IN CURRENT 




*. ... 




*. EXTENT 


.* 






*. .* 








*. .* 




X 




*YES 




*HG * 

* A2* 

* * 

* 




X 

.*. 

H3 *. 




LAF1XTNT 






** 


**H4***** 


.* ARE * 








.* VOLUME 


* 


NO * 


MESSAGE 


*. SEQ. NO. 




* X 


4331D 


*. EQUAL 


.* 


* 





**G5******* 

* MODIFY * 
PHASE NAME 

TO FETCH 
$$BOSDIl 

* * 
*********** 



H5 *. 

* HAS 

FILE 

BEEN 

OPENED 



***************** 



**** 

* * 

* 1 * 



J3 *. 

* OLD 
STYLE 
DLAB 
CARD 



.*. 
K3 *. 
.♦FORMAT 
♦ 1 DLAB 

INFO 
♦. EQUAL 



****«4 *********** 



*. 



**J5******* 

* SET * 
EXTENT 

BYPASSED 
SWITCH 

* * 
*********** 



***** 

♦ HG ♦ 

* A5* 



.♦ 



.X.X. 



***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart HG. $$BOSDI2: SD Open Input, Extent to DTF (Section 2 of 3) 



* i * 



*HF-A4,D4,F4,G3 



LAF1XTNT X 

#*#«. #^2********** 

* INIT. REG. * 

* WITH ADDR. * 

* OF FIRST * 

* EXTENT * 

* IN Fl LABEL * 
***************** 



PACKXTNT 

*****B2********** 

* SHIFT EXTENTS * 

* 1 POSITION LEFT* 

* SET LAST * 

* EXTENT IND. * 

* * 
***************** 



**** 

* * 

* 2 * 



INCREASE X 

**B3******* 

* INCREMENT * 

* REGISTER * 
* TO NEXT 

* LABEL * 

* EXTENT * 
*********** 



***** 
*HF * 
* J5* 



THIS 


♦ . NO 


LAST 


.*.. 


EXTENT 


.♦ 



**B5******* 

* SET ON * 
NO MORE 
EXTENTS 
SWITCH 

* * 
*********** 



.* IS 

EXTENT 
♦ . TYPE 1 



.* IS IT *. 
* A SPLIT *. 

CYLINDER 
*. EXTENT .* 



C5 ♦ . 
.* NEXT 
* EXTENT 

ON NEW 
*. VOL 



**D5******* 

* SET ON * 

NEW 
VOLUME 
SWITCH 

* * 
*********** 



DLBL 
EXTENTS 
OMITTED 



INRANGE .*. 

Fl *. 

.♦ DOES *. 

NO .♦EXTENT LIM.*. 

...*. FALL IN .* 

*. LABEL .♦ 

♦EXTENT.* 



*. 



♦YES 



.* ARE 

NO .* EXTENT 

X..*. TYPES 

*. EQUAL 



X 

.*. 
HI *. 
* IS 
EXTENT 

A 
TYPE 1 



*****F2********** 

* GET EXTENT * 

* HAVING NLXT * 
♦HIGHER SEQUENCE* 

* NUMBER * 

* FROM LAULL * 
***************** 



EXTENT 

A TYPE 





F3 ♦. 

.* IS *. 
* POINTER 

PRESENT TO 
*. NEXT 
*. LABEL.* 



♦NO 



Jl *. 
.* ARE *. 
.♦ EXTENT ♦. YES 
♦.HEADS WITHIN -*..X 
*. LIMITS .♦ 



..X. 
X 

**** 

* * 

* 2 ♦ 

* * 
**** 



♦ YES 



MOVECCW 

*****G3********** 

♦ INIT. CCW ♦ 

♦ CHAIN AND ♦ 

♦ SEEK ADDR TO ♦ 

♦ READ NEXT * 

♦ LABEL * 
***************** 



****H3*********** 
READDISK HH 
*_*_*_*_*_*_*_*_* 

READ NEXT 
♦ LABEL IN ♦ 
CHAIN 
***************** 



**♦*♦♦♦** 



**G4******* 

♦ TURN ON ♦ 
BYPASS 
EXTENT 

INDICATOR 

* * 
*********** 



EXTENT 

ON NEW 

PACK 



**P5******* 

* « 
SET OCQUE 

I XTLNTS 
SWITCH 

* * 
** ********* 



****(; •_,********* 

* SVC 2 ♦ 

* rETCII OPEN * 

* DISK RTN ♦ 
*************** 



***** 
*HF ♦ 
* G5* 



****j4*********** 



.♦ WAS ♦. NO 
RECORD .♦... 
*. FOUND .♦ 



*****«3********** 

♦ INIT. REG. ♦ 

♦ WITH ADDR ♦ 

♦ OF 1ST ♦ 

♦ EXTENT ON ♦ 

♦ F3 LABEL ♦ 

*******:( 



********** 



****«4********* 

* * 

* CANCEL ♦ 

* * 
*************** 
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Chart HH. $$B0SDI2: SD Open Input, Extent to DTF (Section 3 of 3) 



.HG-F2,H1,J1 



PGSTXTNT X 

*****A1 ********** 

* MODIFY ' * 

* PROGRAM * 

* NAME TO * 

* FETCH * 

* PHASE * 
***************** 



*****B1 ********** 

* LOAD NAME * 

* OF PHASE * 

* TG BE * 

* FETCHED * 

* * 
***************** 



****C1 ********* 

* SVC 2 * 

* FETCH * 

* $$B0SDI4 * 
*************** 



****Q/ ( ********* 

* * 

* READDISK * 

* * 
*************** 



GET ADDR * 

OF CCB FROM * 

SUPERVISOR * 

* 

*************** 



****D4********** 



***************** 



****£! ********* 

* * 

* MSGPHAS1 * 

* * 
*************** 



*****P1 ********** 

* SET UP * 

* TO FETCH * 

* MESSAGE * 

* ROUTINL * 

* * 
***************** 



*****G1 ********** 

* * 

* ESTABLISH * 

* RETURN * 

* ADDRESS * 

* * 
***************** 



****H1 ********* 

* SVC 2 * 

* FETCH OPEN * 

* DISK PHASE * 
*************** 



*****£ 5********** 



***************** 



****P4********* 

* EXIT VIA * 

* LINKREG * 

* * 
*************** 
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Chart HJ. $$B0SDI3: SD Open Input, User Labels (Section 1 of 2) 



**** 
* * 

* 9 * 

* * 
**** 



****A1 ********* 

* ENTRY * 

* FROM * 

* *A2 * 
*************** 



**BL ******* 

* * 
MODIFY 
ALL CCW 

ADDRESSES 

* * 
*********** 



*A2 
SSBOSDll, 
$$B0SD12, OR 
$$B0SDC1. 



.* HAS * 
STANDARD 
TRAILER 
. LABEL 



***************** 



.* HEADER 


* 


NO 




*. LABEL 




*.... 




*. 


* 






*. .* 








*. .* 




X 




*YES 




**** 




**** 




* * 




* * . 




* 5 * 




* 6 *... 




* * 




* * 




**** 




**** X 








REENTRY .*. 








Dl *. 






**D2******* 


.* ARE * 






* = 


.* WE 


* 


YES 


* RESET 


*. REENTRING 




* 


X* REENTRY 


*. THIS 


* 




* INDICATOR 


*. PHASE.* 






* 



*****E1 ********** 



***************** 
**** 



USER 

LABELS 

READ 



****G1 *********** 

* SVC * 
READ 
* DISK * 

***************** 



****H1 ********* 

* SVC 7 * 

* WAIT FOR * 

* I/O COMPLETE * 
*************** 



*********** 



****E2********* 

* GO TO ADDRESS * 

* IN REGISTER 5 * 

* * 
*************** 



**F2******* 

* RESET * 
POSSIBLE 

EOF 
INDICATOR 

* * 
*********** 



OPENCODE X 

*****B3********** 

* INITIALIZE * 

* REGISTERS * 

* WITH OPEN * 

* CODE * 

* * 
***************** 



****C3********* 
*USER LABEL RTN * 

* SVC 8 * 

* * 
*************** 



*****D3********** 

* RESTORE * 

* REGISTERS * 

* NEEDED * 

* BY OPEN * 

* * 
***************** , 



*****E3********** 

* * 

* MOVE LABEL * 

* TO OUTPUT * 

* AREA * 

* * 
***************** 



*****A5********** 

* INIT OPEN * 

* CLOSE AND * 

* RETURN PHASE * 

* NAME * 

* * 
***************** 



USER 

EOF 

ROUTINE 



* INCREASE * 

* KEY FOR * 

* NEXT LABEL * 

* * 
***************** 



*YES **** 

* * 

* 7 * 

* * 
**** 



COBOL *. YES 
TRAILER .*... 
LABELS .* 



**** 

* * 

* 4. * 

* * 
**** 



**D5******* 

* * 
TURN 

ON EOF 
SWITCH 

* * 
*********** 



* CONTINUE 

PROCESSING 
*. LABELS . 



.* USER *. NO 
.WANTS LABELS .*... 
*. UPDATED .* 



*****H3********** 

* MODIFY CCW * 

* TO WRITE * 

* DATA AND * 

* GET ADDRESS * 

* OF CCB * 
***************** 



.* HEADER *, 

LABELS 

*. PROCESSED.* 



**G4******* 

* RESET * 
HEADER 

LABEL 
INDICATOR 

* * 
*********** 



***** 
*HK * 
* El* 
* * 
* 
EOFEXIT 

NO 



**** 

* * 

* 7 *. . 

* * 
**** 

F5* 



**** 

* * 

* 6 * 

* * 
**** 



Jl *. 
.* *. 

.* WAS * 
*. RECORD 


NO 


****J2*********** 

* MESSAGE * 


X 

**** 

4 
**** 


****j3*********** 

* SVC * 
WRITE 
* LABEL * 

***************** 

* I 
* 

* . -. 

x 


**J4******* 

* SET IND * 

* FOR * 

* TRAILER *' 

* LABELS * 

* * 
*********** 


** J5******* 

* * 

* MODIFY * 
* CCW TO 

* READ DATA * 

* * 
*********** 

I **** 

* t 
..X* 3 > 


*. FOUND .* 
*. .* 
*. .* 
*YES 


YES 
*.... 

X 

***:< 
* 

* 4 

* 

***:< 


* * 

***************** 

* 
* 
* 


x 


X 

.*. 

K4 *. 

.* *. 

.* NEED *. YES 

*. TO FILE .* 

*. PROTECT .* 
*. .* 
*. .* 
*N0 

' LOADEXIT 
X 
***** 

*HK * 

* Dl* 

* * 

* 


**** 


STEOF .*. 

Kl *. 
.* *. 
.* IS IT * 
*. EOF 


* *****K2********** 
. * * SVC 7 * * 
. * * WAIT FOR * * 
...* * I/O * *X. 

* * COMPLETE * * 

* * * * 
***************** 

* 
* 
* 




.*. 
K3 *. 
.* *. 
NO .* I/O *. 
...*. COMPLETE .* 


****K5********* 

* SVC 2 * 

..X* FETCH 1 


*. .* 
*. .* 
*. .* 
*NO 

X 

**** 

* * 

* 9 * 

* * 
**** 




*. .* 
*. .* 
*. .* 
*YES 

X 

**** 

* * 

* 8 * 

* * 
**** 


* $$BOFLPT * 
*************** 



Sequential Access Charts 277 



Chart HK, $$B0SDI3: SD Open Input, User Labels (Section 2 of 2) 



***** 

*HJ * 

* F5* 

* * 



***** 
*HJ * 
* F4* 



**** 

* * 

* 2 * 

* * 
**** 



* RESET * 
TRAILER 

LABEL 
INDICATOR 

* * 
*********** 



*C2 
INSTRUCTION AT 
•CLOSECBL' IS 



CLOSECBL .*. 




NOP THAT IS CHAN 


CI *. 




TO A BRANCH BY T 


.* *. 




CLOSE ROUTINE. 


.* ENTERED *. YES 






*. FROM CLOSE .*.... 






*. *C2 .* 






*. .* 






*. .* X 






*NOP **** 




**** .NO **** * 


* 




* * * * * 2 


* 




*HJ *.X.X.* 1 * * 


* 




* K4* * * **** 




**** x **** 






LOADEXIT .*. 






Dl *. 






. * *. 




****D2********* 


.* ANOTHER *. YES 




* SVC 2 


*. PARAMETER .* 




X* FETCH 


*. TO OPEN .* 




* *E2 


*. . * 




*************** 


*. . * 






♦NO 






**** 






* * 






* «... *HJ-C't,EL> < 


E2 




* * * 


StBOSDIl OR 


**** 


SSUCLOSE. 


EOFEXIT X 






**Ei ******* 






* RESET * 






* OPEN * 






* MONITOR * 






* SWITCH * 







RESET 

SWITCHES 

IN DTF 

* * 

*********** 



TRACK 

HOLD 

•SPECIFIED. 



* SET UP TO 

* FETCH 

* JSBCLOSE 
* 
*************** 



****C4********* 

* SVC 2 * 

* FETCH * 

* $$B0SDC2 * 
*************** 



****F1********* 

* SVC 11 * 

* RETURN TO * 

* PROB. PROG * 
*************** 
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Chart HL. $$B0SDI4: SD Open Input, Initialization of DTF Table (Section 1 of 2) 



**** 

* * 

* i * 

* * 
**** 



****A2********* 

* ENTRY * 

* FROM * 

* $$B0SDI2 * 
*************** 



POSTXTNT 

*****B2********** 

* POST UPPER * 

* AND LOWER * 

* EXTENT * 

* LIMITS IN * 

* DTF * 
***************** 



**C2******* 

* * 
SET 

HEAD 
LIMIT 

* TO * 
*********** 



YES .* TYPE 
...*. I 

*. EXTENT 



*****B4** * ******* 

* * 

* MOVE * 

* LOWER * 

* HEAD LIMIT * 

* IN DTF * 
***************** 



*****C4********** 

* MOVE * 

* UPPER HEAD * 

* LIMIT IN * 

* CONTROL * 

* BUCKET * 
***************** 



SETRECO 

**E4******* 

* INIT * 

* REC NUM 
* AND 

* CCHHR 

* BUCKET * 

*********** 



VERSION *. NO 
2 DTF .*... 
TABLE .* 



*****G2********** 

* * 

* ESTABLISH * 

* MAXIMUM * 

* TRACK * 

* ADDR FOR 2314 * 
***************** 



*****H2********** 

* SET UP FINAL * 

* CONTROL * 

* BUCKET FOR * 

* DEVICE * 

* TYPE * 
***************** 



*****j2********** 

* * 

* MOVE * 

* CONTROL * 

* FACTOR * 

* TO DTF * 
***************** 



**** 

* * 

* 1 * 



POST 

OPEN 

SWITCH 

IN DTF 



**F4******* 

* * 
TURN 

OFF NEW 
VOLUME 

* SWITCH * 
lit********** 



**G^******* 

* * 

* TURN OFF * 
♦BYPASSED XTENT 

* SWITCH * 

* * 
*********** 



H4 *. **H5******* 

.* *. * TURN * 

.* LAST *. YES * ON NO 

EXTENT .* X* MORE 

*. .* * EXTENTS 

*. .* * SWITCH * 

*. .* *********** 

*NO 

!x ! 

x 
.*. 

J4 *. **j5******* 

.* *. * * 

.* NEXT *. YES * TURN 

EXTENT .* X* ON NEW 

*. ON NEW .* * VOLUME 

*. VOL •* * SWITCH * 

*. .* *********** 
*NO 

!x I 

x 

***** 

*HM * 

* A2* 

* * 
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Chart HM. $$B0SDI4: SD Open Input, Initialization of DTF Table (Section 2 of 2) 



***** 

*HL * 
* J4* 



A2 *. **A3******* 

.* XTNT *. * * 

* ON SAME *. YES * TURN * 
DRIVE BUT .* X* ON SW * 

*. NEW .* * TO DEQUE * 

*.PACK .* * EXTENTS * 

*. .* *********** 

*N0 

'.X I 

X 

.*. 
B2 *. 
.* *. ****g3********* 

* NEED *. YES * SVC 2 * 
TO PROCESS .* X* FETCH * 

*. USER .* * $$BOSOI3 * 

♦LABELS.* *************** 

*. .* 
*N0 



D2 *. 

* IS * 

THIS A 

SYSTEM 

FILE 

*.OPEN .* 

*. .* 

*YES 



*****E1 ********** 

* * 

* SET UP * 

* TO FETCH *X 

* $$B0Q001 * 

* * 
***************** 



****P1********* 

* SVC 2 * 

* FETCH * 

* $$B0Q001 * 
*************** 



.* IS 

THIS A 
*.QTAM OPEN. 



SET UP * 
TO FETCH * 
$$BOFLPT * 

***************** 



****P3********* 

* SVC 2 * 

* FETCH * 

* $$BOFLPT * 
*************** 



.* * 




****G3********* 


ANOTHER 


*. NO 


* SVC 11 


PARM TO BE 


.* 


...X* RETURN TO 


. OPENED 




* USER * 


*. .* 




*************** 


*. .* 






*YES 







****H2********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 
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Chart JA. $$B0SD01: SD Open Output, Control (Section 1 of 4) 



♦ENTRY 
FROM 
SSBOPEN 



************** 



**** 

* * 

* 2 * 

* * 
**** 

X 

OPENFILE .*. 



***************** 



*****Cl ********** 



***************** 



**D1 ******* 

* * 
RESET 

RE-ENTRY 
INDICATOR 

* * 
*********** 



* POST DTF * 

* INFORMATION * 

* FROM DIB * 

* * 
***************** 



**C2******* 

* SET OPEN * 
BIT ON IN 

DTF. RESET 
SYS OPEN 

* INDICATOR * 
*********** 



RETMON 

*****Q2********** 

* MODIFY * 

* EXIT PHASE * 

* NAME TO * 

* FETCH * 

* $$BOPEN * 
***************** 



***** 
*JE * 

* D2* 



*****C4********** 

* SAVE VOLUME * 

* AND EXTENT * 

* SEQUENCE * 

* NUMBERS * 

* * 
***************** 



.♦THIS EXTENT*. NO 
TO BE .♦... 
♦.BYPASSED .* 



♦ JB * 

* E4* 
* * 



El *. 
.* IS ♦. 

♦ SYSTEM 
FILE BEING 

♦ . OPENED . 



**P1******* 

* SET DTF * 

OPEN 

INDICATOR 

OFF 

* * 
*********** 



E2 ♦ . 
.♦ANOTHER*. 
* FILE TO *. NO 
BE OPENED .*... 



**** 

* * 

* 2 * 

* * 
**** 



****P2********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



**E3******* 

* RESET * 
MONITOR 

OPEN 
SWITCH 

* * 
*********** 



****P3********* 

* SVC 11 * 

* RETURN TO * 

* PROBLEM PROG * 
*************** 



YES .* EXTENT *. 
...♦.ENTERED FROM .* 
*. 1052 .* 
*. .* 
X *. .* 
***** *no 

♦ JB ♦ 

♦ Bl* 



.* LAST 
♦. EXTENT FOR 
*. FILE 



NO .* MORE 
...♦. AVAILABLE 
*. EXTENTS . 



**** 

* * 

* 3 * 

* ♦ 
**** 



Gl 



ONLYONE 

*****Q2********** 

.* *. * SET UP TO * 

.* SYSTEM *. NO * ISSUE * 

.FILE ALREADY .* X* MESSAGE * 

*. OPENED .♦ ♦ 44451 * 



.♦ 



***************** 



HI ♦ . 


- H2 *. 






.* IS *. 


.* * 






.♦ THIS A *. NO 


.♦ ONLY 


*. 


YES 


♦. SYSLNK .*.... 


♦. ONE EXTENT 




♦ .... 


♦. OPEN .* 


♦. ENTERED 


* 




*. .* 


*. .* 






♦ . .♦ X 


*. .♦ 




X 


*YES **** 


♦NO 




**** 


* * 






* 5 


* 1 * 






* 2 


* * 


X > 




* 5 


**** 


***** 
♦ JC ♦ 




**** 


X 


♦ B2* 






**jl******* 


* * 






* SET * 


* 






* SYSLNK ♦ 


MSGPHAS1 






♦OPEN INDICATOR ♦ 









**** 

* * 

* 3 * 



**** 
SETLAST X 

**G4******* 

* SET NO * 

* MORE 

* EXTENTS 

* INDICATOR 

* * 
*********** 



**H4******* 

* RESET * 
CLEAR 
LABEL 

INDICATOR 

* * 
*********** 



.♦ NEXT *. NO 
.EXTENT ON NLW.*... 
*. VOLUME .* 



**G5******* 

* * 
SET NEW 
VOLUME 

INDICATOR 

* * 
*********** 



***** 

♦ JB ♦ 

* Cl* 



*********** 



***** 
*JC * 
♦ E3* 



* SET UP TU * 

* ISSUE MESSAGE * 

* 44601 * 

* ♦ 
***************** 



YES .* END OF *. 
...*. VOLUME 

*. FORCED .* 



***** 
*JB * 

* Bl* 
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Chart JB. $$BOSD01: SD Open Output, Control (Section 2 of 4) 



*A1 
JA-E4.K4 
***** 



FINDLAST X 

**B1 ******* 

* SET INSTR * 

* LASTW TO * 
* NOP TO FIND * 

* LAST EXTENT * 

* OPENED * 
*********** 



**** 



**** 
INITSEEK 

*****C1 ********** 

* SET UP * 
♦SEARCH ADDRESS * 

* . AND CCB * 

* TO FIND * 

* NEXT EXTENT * 
***************** 



**** 

READXTNT X 

*****D1 ********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE * 

* 44071 * 

* * 
***************** 



**** 

X 
****E1 *********** 
READDISK JD 
*-*_*_*_*_*_*_*-* 

READ NEXT 
* EXTENT * 
RECORD ' 
***************** 



*****B2********* 

* SET LAST 

* SYMBOLIC 

* UNIT OPENED 

* IN EXTLNT 

* CARD 



**** 
INITCCB X 

*****C2** ******** 

* * 

* PUT SYMBOLIC * 

* UNIT IN * 

* CCB * 

* * 
***************** 



**D2******* 

* CLEAR 

BYPASS 

EXTENT 

INDICATOR 

*********** 



*****£ 2********** 

* MODIFY * 

* PHASE NAME * 

* TO FETCH * 

* $$BOSD07 * 

* * 
***************** 



. * RECORD * 


. NO 


*. FOUND 


.*.... 


*. .* 






*. .* 




. 


*. .* 




X 


*YES 




***** 
*JC * 
* C2* 

* * 
* 




MSGPHAS1+6 


X 






*****G1 ********** 




* INITIALIZE 


* 




* SEEK ADDRESS 






* FOR NEXT 


* 




* READ 


* 





END 

OF EXTENT 

. ADDRESS . 



**** 


**** 


* * 


* * 


* 5 * 


* 7 * 


* * 


* * 


**** 


**** 


X 


X 
NEXTXTNT .*. 


*****B3********** 


B4 *. 


* GET * 


.* *. 


* DISPLACEMENT * 


NO .* THIS *. 


* FOR END OF * 


...*. THE EXTENT .* 


* EXTENT ADDR * 


*. NEEDED .♦ 


* * 


*. .* 


***************** 


X *. .* 




**** *YES 


**** I 


* * 


* * 


* 1 * 


* 6 *... 


* * 


* * 


**** 


**** 




EOXADDR X 


SAVESEQNO X 


*****C3********** 


*****C4********** 


* GET * 


* SAVE * 


* ADDRESS OF * 


* ' EXTENT * 


* LOGICAL * 


* SEQUENCE NO. * 


♦TRANSIENT SAVE * 


* IN DTF * 


* AREA FROM PIB * 


* * 


***************** 


***************** 



***************** 



.* FIND * 
. LAST EXTENT 
*. OPENED .* 



.* FIXED *. 

♦LENGTH RECORDS. 

*. DTF .* 



*****D3********** 

* PUT END OF * 

* EXTENT ADDR * 

* IN PSW IN * 

* LOG TRANS. * 

* SAVE AREA * 
***************** 



**E3******* 

* * 
RESET 

MONITOR 
SWITCH 

* * 
*********** 



****F3********* 

* SVC 11 * 

* RETURN TO * 
♦PROBLEM PROGRAM* 

*************** 



****G3********* 

* SVC 2 * 
.X* FETCH ♦ 

* $$B0SD07 ♦ 
*************** 



FIXED 

*****H3*^******** 

♦ GET ♦ 

♦ DISPLACEMENT ♦ 
...X* FOR END OF ♦ 

* EXTENT * 

* ADDRESS * 
***************** 



**** 

* * 
*JA *... 

* D5* 
**** X 

NEWVOLUM .*. 
E4 



***** 
*JA * 
* D4* 



*****B5+^******++ 

* INITIALIZE ♦ 

* EXTENT WITH * 

* SYMBOLIC * 

* UNIT * 

* * 
***************** 



**** 
VERIFY X 

*****C5********** 

* * 

* SET UP ♦ 

* TO LOAD ♦ 

* $$BOSIGN * 

* * 
***************** 



***** 05********** 

* * * * 

* * SVC 4 * * 

* ♦ LOAD ♦ ♦ 

* ♦ SSBOSIGN ♦ ♦ 

* * * * 
***************** 



.* NEXT ♦. 

. EXTENT ON . 

♦.NEW VOL. .♦ 



**P4******* 
*SET SWITCH * 

♦ TO CLEAR 
IDENTICAL 

* LABELS 

* * 

*********** 



SAVE ADDR * 

OF CREATED ♦ 

LABEL ♦ 

* 

********* 



.♦ SYMBOLIC 
*. UNIT IN 

*. EXTENT 
♦.CARD .* 



**** E5********* 

♦ BRANCH * 

♦ TO * 

♦ $$BOSIGN * 
*************** 



END ♦• NO 
OF VOLUME .♦... 
. FORCED .♦ 



.♦. 



**** 

* * 

* 9 * 

* * 
**** 



G5 
* 

EXTENT 
NEEDED A 

CLOSE 
*. 

*. .♦ 
♦NO 



**H5******* 

* * 
SET 

BYPASS 
SWITCH 

* * 
*********** 



***** 

♦ JA ♦ 

* D4^ 



***** 

*JC ♦ 

♦ H3^ 

* * 



♦ THIS * 

LAST EXTENT 
♦. OPENED .* 



SYMBOLIC 
UNIT IN 
. EXTENT 
*. CD .* 



**** 

* * 

* 3 * 

* * 
**** 



**** 

* * 

* 2 ♦ 

* * 
**** 



UNDEF 

*****K 2* ********* 

* GET * 

* DISPLACEMENT ♦ 

* FUR END OF ♦ 
*EXTLNT ADDRESS * 

* * 
***************** 



**** 

* * 

* 6 * 



*****«3********** 



**************** 



.X. 



**** 

* * 

* 6 ♦ 

* * 
**** 



SYMBOLIC 

UNIT IN 

DTF 



LOADMSG 

****** 5********** 

* SET UP ♦ 

* TO ISSUE * 

* MESSAGE * 

* 44831 ♦ 

* * 
***************** 



X 
***** 
*JC * 
* B2^ 
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Chart JC. $$B0SD01: SD Open Output, Control (Section 3 of 4) 



*A2 
JA-H2.J3 
JH-K5 
JE-E2.H1 



***** 
*JE * 
* HI* 



FILE 

PROTECT 

.SPECIFIED. 



CI *. 

.*NEED TO*. 
DEQUEUE 
OLD VOL 

. EXTS. . 
*. .* 



***** 
*JA * 
* Jl* 



**** 






MSGPHAS1 X 




***#*B2********** 


* 




* 


* 


GET LOGICAL 


* 


* 


UNIT IN 


* 


. * 


CCB 


* 


* 




* 


*************** 


** 






***# 






* 


* 






..* JB 


* 






* Fl* 






**** 




X 




* *****C2********#* 


* 


INITIALIZE 


* 


X * 


TO FETCH 


* 


* 


MESSAGE 


* 


* 


ROUTINE 


* 


* 






* 



*YES 



**D1 ******* 

* RESET * 
INDICATOR 
IN DTF TO 

DEQUEUE OLD 

* EXTENTS * 
*********** 



************** 



****D2********* 
1= SVC 2 

* FETCH 

* $$BOMSGl 
*************** 



TRAILER .*. 

B3 *. 
.* NEED *. 
.*TO PROCESS *. NO 
*. TRAILER .*..) 
*. LABEL .* 



*****C3********** 

* MODIFY * 

* PHASE NAME * 

* TD FETCH * 

* $$B0SD06 * 

* * 
***************** 



**03******* 

♦ SET SWITCH * 

* TO BYPASS * 
DEQUEUING 

* OF EXTENTS * 

* * 
*********** 



**E1******* 






* SET PHASE * 






* INDICATOR * 






* TO DEQUEUE * 






* EXTENTS * 






* * 






*********** 








**** 








* * 








..* 1 * 








* * 






X **** 






USERLBLS .*. 






FL *. 






.* *. 






.* USER *. NO 




*. LABELS .* 






♦.SPECIFIED.* 






*. .* 






*. .* 




X 


*YES 


* 


**** 


• 


* 
* 


4 








**** 



***** 

* * 

* * * 



* 4 



**** 
RESETIND 

**£3******* 

* SET LABEL * 

* CREATED * 
* INDICATED 

* OFF * 

* * 
*********** 



**P3******* 

* SET NEW * 
VOLUME 

INDICATOR 
OFF 

* * 
*********** 



**B4******* 

* * 
RESET 

DEQUEUE 
INDICATOR 

* * 
*********** 



****C4 ********* 

* SVC 2 * 

* FETCH * 

* *D4 * 
*************** 



$$BOSD06 
$$DODQUE 



TO PROCESS TRAILER LABELS. 
TO DEQUEUE EXTENTS. 



HI *. 

* MIN * 

2 TRACK 

EXTENT 

SPEC 



**J1******* 

♦SET BYPASS * 

* EXTENT * 

INDICATOR 



*********** 



*****K1 ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 4466 A * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



♦JB-F5.G5 



**** 

* * 

* 3 * 

* * 
**** 



* NEED 

TO DEQUEUE 
*. EXTENTS . 



*****J3********** 

* * 

* INITIALIZE * 

* TO FETCH * 

* $$BODQUE * 

* * 
***************** 
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Chart JD. $$B0SD01: SD Open Output, Control (Section 4 of 4) 



****A1 ********* 

* * 

* READDISK * 

* * 

*************** 



READDISK 

*****B1 ********** 

* GET ADDR * 

* OF CCB * 

* FOR * 

* SUPERVISOR * 

* * 
***************** 



****C1 *********** 

* SVC * 
READ 
* DISK * 

***************** 



*****D2********** 

* * SVC 7 * * 

* * WAIT FOR * *• 
X* * I/O * *. 

* * COMPLETED * * 

* * * * 
***************** 



DISASTER 
ERROR 
.OCCURRED 



****E2********* 

* SVC 11 * 
.X* RETURN TO * 

* SUPERVISOR * 
*************** 



**F1******* 

* SET * 
CONDITION 
CODE FOR 

RECORD 

* FOUND * 
*********** 



****G1 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart JE. $$BOSIGN: SD Open Ignore 



*************** 



DTFSD 
INPUT 
FILE 



**** 

* * 

* 1 * 

* * 
**** 



*****C1 ********** 

* * 

* CHANGE * 

* PHASE NAME * 

* PUT * 

* * 
***************** 



* 1 



**** 
OUTPUT X 

*****D1 ********** 
♦FIND LUB ENTRY * 

* FOR LOGICAL * 
♦UNIT SPECIFIED * 
*IN FIRST EXTENT* 

* USING SYSIR * 
***************** 



.* UNIT *. 
.♦UNASSIGNED 
*. OR 

*. IGNORED . 
*. .* 


*. 
.* 

* 


YES 


...X* 


.* *. 

.* UNIT * 

. UNASSIGNED 

*. .♦ 

*. .* 


. YES 
.*.... 


*. .* 
*NO 








*. .* 
*NO 


X 

***** 

*JC * 

* B2* 

* * 

* 


BELOWFE X 

**F1******* 

* * 

* SET OFF * 

* IGNORE BIT * 




MSGPHAS1 

X 

**F2******* 

* SET * 

* OPEN/IGNORE * 

* INDICATOR * 



*********** 



CONTIN 

*****Gl ********** 

* INITIALIZE * 

* TO TEST * 

* FOR DEVICE * 

* VALIDITY * 

* * 
***************** 



*********** 



COMPDEV .*. 










HI *. 










* * 








.*' 


DEVICE 


* 


YES 


* 




CORRECT 




*.. .. 




"*. 


.* 








*. .* 










*. .* 




X 






*NO 




***** 










*JC * 
* Bl* 






X 




* * 






***** 




* 






*JC * 










* B2* 










* * 










« * 










MSGPHAS1 
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Chart JF. $$B0SD02: SD Open Output r Volume Label 



♦♦♦*A1 ********* 

* * 

* $$B0SD02 * 

* * 
*************** 



***************** 



A2 *. 
.♦RECORD *. 
.* FOUND AND *. NO 
.WITH STANDARD.*... 
*. VOLUME .* 
*. LABEL.* 
*. .* 
♦ YES 



****A3*********** 



***************** 



****B3********* 

* * 

* CANCEL * 

* * 
*************** 



SAVE 

VTOC 

LIMITS 

* * 

*********** 



DOES 
EXTENT 
. OVERLAP 
*.VTOC .* 



FROM 
MESSAGE 
ROUTINE 



**D1 ******* 

* * 

* RESET * 
MESSAGE 

* RETURN * 

* INDICATOR * 
*********** 



****£! ********* 
♦RETURN TO POINT* 

* INTERRUPTED * 

* FOR MESSAGE * 
*************** 



C2 *. *****C3********** 

.* *.' * INIT DLAB * 

.* VOL *. YES * AND EXTENT * 

♦ .SERIAL NUMBER.* X* WITH VOL * 

*. PRESENT .* * SERIAL * 

*. .* * NUMBER * 

*. .* ***************** 
*NO 

!x I 

x 

WRONGPAK .*. 

02 *. ****D3*********** 

.* *. 
.* CORRECT *. NO * MESSAGE * 

*. DISK PACK .* X V.55A 

*. MOUNTED .* * * 

*. .* 

*. .* ***************** 

*YES 



**C4******* 

* * 

* TURN ON * 
BYPASS 

* EXTENT * 

* INDICATOR * 
*********** 



**** 04** ********* 



VTOCADDR 

*****E 2********** 
*INIT. COUNT AND* 

* SEEK ADDR * 
♦BUCKETS AND CCW* 

* CHAIN TO READ * 

* FORMAT 4 LBL * 
***************** 



READ 
FORMAT 4 * 
LABEL 
************ 



* 3 
* 
**** 



********* 



****E4********* 

* SVC 2 * 

* $$BOS001 * 

* * 
*************** 



* CALCULATE ♦ 

* RETENTION * 

* DATE ♦ 

* IF REQUIRED * 
***************** 



*****Q1 ********** 

* * 

* INITIALIZE * 

* CCB AND DTF ♦ 

* FOR DISK * 

* READ/WRITE ♦ 
***************** 

**** 



* 3 



**** 
RtADVOLl X 

*****H1 ********** 
*READDISK KB* 

*_*_*_*_*_*_*_*_* 

* READ VOLUME * 

* LABEL * 

* * 
***************** 



G2 *. 
.*RLCORD *. 
* FOUND AND 

IT IS A 

♦.FORMAT 4 . 

♦.LABEL.* 

**YES 



.* IT IS AN 
*. O/S 

*. PACK 



**J2***^*** 

* * 
TURN ON 

DADSM BIT 
IN FORMAT 4 

* LABEL * 
*********** 



****K2+^*^ ****** 

WRITDISK KC 

*_*_*_*_*_*_*_*_* 

WRITE BACK 
♦ FDRMAT 4 LBL ♦ 

***************** 



****G3*********** 



***************** 



****H3 ********* 

* * 
*, CANCEL * 

* * 
*************** 



****G4********* 

♦ SVC 2 ♦ 

♦ $$BOS004 ♦ 

♦ * 
*************** 



NO .♦ LABEL 
...♦. CLEARING 
♦.REQUIRED 



****«4********* 

* SVC 2 * 

* $$B0SDO3 ♦ 

* * 
*************** 



****K5********* 

* SVC 2 * 

* $$B0SD08 ♦ 

* * 
*************** 



* 2 ♦ 

* * 
**** 
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Chart JG. $$B0SD03: SD Open Output , Extent Overlap (Section 1 of 4) 



**** 

* * 

* i # 

* * 
**** 



**«*Ai ********* 

* * 

* $$B0SD03 * 

* * 
*************** 



***************** 



IS 

THIS A 

2321 

*.OPEN .* 



**D1******* 

* MODIFY * 
MARSWITCH TO 

* ALLOW 2321 * 
EXTENT CHECK* 

*********** 



**B2******* 

* * 

* INITIALIZE 
* CCW 

* CHAIN 

* * 
*********** 



* 3 



**** 
NEXTPHAS X 

**B4******* 

* MODIFY * 

* PROGNAME 

* FOR FETCHING 

* APPROPRIATE 

* PHASE * 
*********** 

I 



ENTERED 
FROM MSG 
. PHASE 



**P1******* 

* * 
RESET 
ENTRY 

SWITCH 

* * 
*********** 



****kl ********* 
♦RETURN TO POINT* 

* INTERRUPTED * 

* FOR MESSAGE * 
*************** 



**** 
NEXTLBL X 

**D2******* 

* * 

* GET 

* ADDRESS OF 

* NEXT LABEL 

* * 
*********** 



****E2*********** 
READDISK KB 
*-*-*-*-*-*-*-*-* 
READ 

LABEL * 
" VTOC 
******** 



TYPE *. 

OF 
OPEN .* 



^SEQUENTIAL 



****D3********* 

* SVC 2 * 

* $$BOSDW2 * 

* * 
*************** 



IN 



D4 *. 

* IS 

FILE 

LABEL 

MADE 



*****E4**** ****** 

* * 

* MODIFY PGM * 

* TO FETCH * 

* PHASE 5 OF * 

* SD OPEN * 
***************** 



****P4** ******* 

* SVC 2 * 

* $$B0SD05 * 

* * 
*************** 



*****C5 ********** 

* * 

* MODIFY PGM * 
X* TO FETCH * 

* $$BOIS03 * 

* * 
***************** 



****D5********* 

* SVC 2 * 

* $$BOIS03 * 

* * 
*************** 



****F5********* 

* SVC 2 * 

* $$B0SD04 * 

* * 
*************** 



G2 *. 


****G3***** 


* ARE *. 




VTOC *. YES 


* MESSAGE 


LIMITS .*.... 


49091 


EXCEEDED .* 


* 44091 



*********** 



* *. 


****H3********* 


END *. YES 


* 


OF -* 


* CANCEL 


CYLINDER .* 


* 


*. .* 


*************** 



.*. 

J2 *. 

* * 

FORMAT 

1 

LABEL 

*. .* 

*. .* 

*YES 



**** 

* * 

* 2 * 



*****K2********** 

* 

* 

* EX 



SAVE 

EXPIRATION 

DATE 



***************** 



***** 
*JH * 
* Al* 
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Chart JH. $$B0SD03: SD Open Output, Extent Overlap (Section 2 of 4) 



* PACK * 

* EXTENT FIELDS * 

* IN LABEL * 

* * 
***************** 



**** 

* * 

* 1 *.X 



***** 
*JJ * 
* E4* 



**** 
INC RE MEN -X 

**C1******* 

* * 

* INCREMENT 
* ADDRESS TO 

* CHECK NEXT 

* EXTENT * 
*********** 



EXTENT 
TYPE 
ZERO 



X. 

X 
TSTPOINT .*. 

El *. 
.* PNTR * 
.* PRESENT 
*. FOR NEXT 
*. LABEL 



***** 
*JG * 
* B2* 



*****P1 ********** 

* * 

* GET READ KEY * 

* AND DATA CCW * 

* IN CHAIN * 



****Gi *********** 
READDISK KB 
*_*_*_*_*_*_*_*_* 

READ 
* LABEL * 
IN CHAIN 
***************** 



.* WAS 
RECORD 
*. FOUND 



Jl *. 
.* WAS * 
NO .* IT 
...*. FORMAT 3 
*. LABEL 



****H2*********** 

* MESSAGE * 
49091 
44091 * 



***************** 



****J2********* 

* CANCEL * 

* * 
*************** 



CHEKXTNT .*. 






E3 *. 






.* IS * 






.* THERE 


*« 


NO 


*. OVERLAP ON 




*. ... 


*. LABEL 


.* 




♦EXTENT.* 






*. .* 




X 


*YES 




**** 
* 
* 1 


. 





.* LABEL *. 
.* EXTENT 
. TYPE SPLIT 
♦.CYLINDER . 



G3 *. 

.* IS *. 

.* EXTENT * 

*.THE TYPE FOR 

*. SPLIT .* 

*.CYL. .* 



*YES 



***** 
*JK * 
* C2* 



SPLITCYL .*. 

G4 *. 
.* IS *. 
.* EXTENT *. YES 
*.THE TYPE FOR .*.... 
*. SPLIT .* 
*.CYL. .* 
*. .* 
*N0 



*****H3********** 

* * 

* MOVE EXTENT * 

* TYPE SPLIT * 

* IN BUCKET * 

* * 
***************** 



*****I-I4********** 

* * 

* MOVE LBL * 

* SPLIT IN * 

* BUCKET * 

* * 
***************** 



COMPHEAD .*. 

H5 *. 
.* IS *. 
NO .* THERE AN *. 
...*OVLAP ON LABEL. 
EXTENT 



* . 



.* 



*****K1 ********** 

* GET ADDRESS * 

* OF 1ST EXTENT * 

* IN FORMAT 3 * 

* LABEL -1 * 

* * 
***************** 



* 1 * 

* * 
**** 
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Chart JJ. $$B0SD03: SD Open Output, Extent Overlap (Section 3 of 4) 



**** 

* * 

* i * 



CREATE A * 

L CYLINDER * 

EXTENT * 

* 

*************** 



C3 *. 

.* IS *. 

.* EXTENT LL *. 

.GREATER THAN . 

♦.BUCKET UL.* 



.* EXTENT UL * 


NO 




*. LESS THAN 


*. ... 




*. BUCKET LL.* 






*. .* 






*. .* 


X 




*YES 


***** 
*JK * 
* C2* 

* * 




x! 


* 




X 






CYLEQUAL .*. 






E3 *. 




♦ ♦ i /,♦♦♦♦♦ 


.* IS ». 




* 


.* DUCKET UL * 


YES 


♦ ui'.rma 


*. LOUAL TO 


*. 


. X ♦ 1 X 1 1 N 1 


*. EXTENT UL.* 




♦ KldlMiK 



* ♦ 

* INCKLHLNT * 

* LI * 

* BY UNE * 

* * 
***************** 



♦ ♦♦ + ♦ 

♦ Jll * 

♦ CI* 



**H3******* 

* * 
INCREMENT 

C2 BY 1 
RESET HI 

* * 
*********** 



*****J2**********. 

* IF DEVICE * 

* IS A 2321, * 

* THIS BRANCH * 

* BECOMES * 

* A NOP * 
***************** 



**K3******* 



*********** 



* 1 * 

* * 
**** 
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Chart JK. $$B0SD03: SD Open Output, Extent Overlap (Section 4 of 4) 



**** 

* * 

* 2 * 

* * 
**** 




X 
EXPIRED .*. 

A3 *. 
.* *. 
.* IS *. YES 
*. EXPIRATION .*... 
*. DATE UP .* 


X 

*****A4*****=* 
* 

* LOAD 

* MESSAGE 

* 43971 - 



* RESTORE * 

* EXTENT * 

* REGISTER * 

* * 
***************** 



**D2******* 



*****B3********** 

* * 

* LOAD * 

* MESSAGE * 

* 43981 * 

* * 
***************** 



DATA 
SECURED 
FILE 



INITIALIZE CCW* 


* MESSAGE 


♦CHAIN AND SEEK * 


4444A 


* ADDRESS * 


* 4944A 


* * 




*********** 


***#********** 




**** * 




* * 




* 1 *... 




* * 




**** X 


X 


.*. 


****E2*********** 


E3 *. 


READDISK KB 


.* DO A 


**_*_*_*_*_*_*_** 


.* DELETE 


READ 


*. ON EXP 


* FORMAT 1 * 


*. FILE 


LABEL 


*. . 


***************** 


*. .* 



****Gi *********** 
MESSAGE 
* 49091 * 
44091 
* 42091 * 

***************** 



****H1 ********* 

* * 

* CANCEL * 

* * 
*************** 



WAS 

RECORD 

FOUND 



G2 *. 
.* IS *. 

THERE 
OVERLAP ON 
. SAME 
*.FILE .* 



**F3******* 
*SET BYPASS * 

* IND. ON 
MODIFY TO 

* FETCH PH2 

* OF S.D- * 
*********** 



*************** 



DATA *. NO 
SLCURED .*... 
FILE .* 



* SET UP * 
X* TO FETCH * 

* SSBOOSMW * 

* * 
***************** 



****D4********* 

* SVC 2 * 

* FETCH * 

* $$BODSMW * 
*************** 



DELETION X 

*****E4******** 

* GET ADDRESS 

* OF FORMAT 1 
...X* LABEL TO 

* DELETE 



***************** 



NEXTREAD X 

****P4 *********** 

READDISK KB 
**_*_*_*_*_*_*_** 

READ LABEL TO 
* BE DELETED * 
***************** 



WAS 

RECORD 

FOUND 



****G5*********** 

* MESSAGE * 
49091 
44091 * 



*YES 



H2 *. 

.* IS IT *. 

ISFMS 

FILE 

. TYPE 



**** 

* * 

* 2 * 

* * 
**** 



****H4*********** 
WRITDISK KB 
**_*_*-*_*_*_*_** 

DELETE LABEL 
* * 

***************** 



****j2*********** 
MESSAGE 
* 4440A * 
OR 
* 494QA * 

***************** 



IS IT *. 


.* IS * 


AN *. NO NO .* POINTER 


ISFMS .*....X... 


.*. TO NEXT 


LOAD .* 


*. LABEL 


.* 


*. .* 


*. .* X 


*. .* 


*YES ***** 


*YES 


*JG * 




* B2* 




X * * 




**** * 




* * MOVERCM 




* 2 * 


X 


* * 


*****K4****** 


**** 






* SET UP 




* ADDRESS OF 




* THIS LABEL 



*************** 



***************** 



****H5********* 

* * 

* CANCEL * 

* * 
*************** 
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Chart JL. $$B0SD04: SD Open Output, File Label (Section 1 of 2) 



* 2 * 

* * 



****A1 ********* 

* SSBOSDO^ * 

* * 

*************** 



************* 



IS 
IT A 
2311 



*****D1 ********** 

* * 

* MODIFY DASD * 

* ADDRESS * 

* CONSTANTS * 

* * 
***************** 



***************** 



.* CREATING 

.*. DATA SECRD 

*. FILE 



**C2******* 

* SET * 
DATA 

SECURITY 
SWITCH 

* * 
*********** 



VERSION 

1 

TABLfc 



***** 
*JM * 
* Bl* 



SPECIAL 

SYSTEM 

OPEN 



* IS *. 
SYSLNK *. 
ALREADY 
OPENED .* 



FINDSPOT 

****D2* ********** 
SEARCH KB 
**_*_*_*_*_*_*_** 

FIND SPOT 
* FOR NEW * 
LABEL 
***************** 



*****E2********** 

* * 

* SAVE ADDR * 

* OF THIS LABEL * 

* IN DTF * 

* * 
***************** 



.* AN *. 
.* EMPTY *. NO 
. SPOT FOR .*... 
*. EXTENT .* 



MOVE CONTROL * 

FACTOR TO * 

DTF * 

* 

**************** 



IS IT 

A TYPE 1 

EXTENT 



*****E4**** ****** 

* MOVE HEAD * 

* LIMITS IN * 

* DTF * 



* CLEAR UPPER 

* LABEL BUILD : 

* AREA 
* 
**************** 



* ARE * 

USER LABELS 
♦.SPECIFIED.* 



*****«! ********** 

* BUILD USER * 
♦LABEL EXTENT IN* 
♦LABEL, SET IND * 

* FOR HEADER * 

* LABELS * 
***************** 



MOVLOLIM 

*****P4**** ****** 

* INITIALIZE * 

* RECORD NO * 
*AND LOWER LIM. * 

* FOR LICCS * 

* * 
***************** 



*****G 2 ********** 

* * 

* MOVE EXTENT * 

* TO 1ST POS'N * 

* IN Fl LABEL * 

* * 
***************** 



*****G3********** 

* * 

* MOVE EXTENT * 

* TO 2ND POS'N * 

* IN Fl LABEL * 

* * 
***************** 



****H2*********** 
WRITDISK KC 
**-*-*-*-*_*-*-** 
WRITE FORMAT 1 
* LABEL IN * 
VTOC 
***************** 



* POST EXTENT * 
♦LIMITS AND SET * 
♦HEAD LIMIT TO 0+ 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



SYSLNK *. 


YES 


OPENED 


*.. .. 


. ALREADY .* 




*. .* 




*. .* 


X 


*N0 


***** 




*JM * 




* A3* 




* * 




* 




VERIFYCP 



*****J4********** 

* * 
♦INITIALIZE JOB ♦ 

♦ CONTROL DISK ♦ 

♦ ADDRESS SAVE * 

* AREA * 
***************** 



. ...X. , 

X ' 

***** 

*JM * 

* Bl* 

* * 
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Chart JM. $$B0SD04: SD Open Output, File Label (Section 2 of 2) 



**** 

* * 

* i * 



***** 

*JL * 
* H4* 



VIA1052 .*. 
Bl * 
WAS 





* EXTENT 


*. YES 


*. 


ENTERED BY 






*. 1052 


* 




*. .* 






*. .* 








«NO 








< 




*****C1 ********** 


* 


SAVE 


* 


* 


EXTENT 


* 


* 


SEQUENCE 


* 


* 


NUMBER 


* 


* 


IN )TF 


* 


** 


****** 


(c******** 






.X.... 





**Dl******* 

* AS * 

REQUIRED 

SET VARIOUS 

OPEN 

♦INDICATORS * 

*********** 



****F1********* 

* SVC 2 * 

* $$B0SD06 * 



VERIFYCP X 

*****A3 ********** 

* INITIALI7E * 

* CCW CHAIN * 

* FOR FINDING * 

* FORMAT 1 * 

* LABEL * 
***************** 



FIND FORMAT 1 
* LABEL FOR * 
DTFCP FILE 
***************** 



*****£ 3********** 

* MOVE * 

* LOWER LIMIT * 

* TO DTF FROM * 

* COMMUNICATION * 

* REGION * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



FILE 

PROTECT 

.SPECIFIED. 



* SYSTEM *. YESX .* RETURN * 

UNIT BEING .* X*. TO $$B0SDC1 

*. OPENED .* *. .* 



****F4*********** 



***************** 



****G4********* 

* CANCEL * 

* * 
*************** 



MORE 
FILES TO 
. OPEN 



****H5 ********* 

* SVC 2 * 

* $$BOPEN * 

* * 
*************** 



*****jl ********* 

* SET UP 

* RETURN 

* ADDRESS 

* TO SSBOSDCl 
* 
**************** 



****kl******** 

* FETCH 

* SSBUFLPT 
* 

************** 



*****K2********** 

* SET UP * 

* RETURN * 

* ADDRESS * 

* TO $$BOPQN * 

* * 
***************** 



* SET UP * 

* TO FETCH * 

* $$B0SDC1 * 

* * 
***************** 



****K3********* 

* SVC 2 * 

* FETCH * 

* $$B0SDC1 * 
*************** 



****j4********* 

* SVC 11 * 

* RETURN TO * 

* PROBLEM PROG * 
*************** 



V 
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Chart JN. $$B0SD05: SD Open Output, Format 3 Label (Section 1 of 2) 



* * 

* i * 

**** 



****A1 ********* 

* * 

* $$B0SDO5 * 

* * 
*************** 



SfcT 

LAST EXTbNT 
INDICATOR 



.X. 



***************** 



****C1 *********** 

READDISK KC 

*_*_*_*_*_*_*_*_* 

READ 
* FORMAT 1 * 
LABEL 
***************** 



****D2*********** 



MAS 
RECORD 
FOUND 



Fl *. 
* IS *. 

LABEL *. NO 

IN .*... 
VTOC .* 



.* 



***************** 



****E2********* 

* * 

* CANCEL * 

* * 

*************** 



****F2*********** 



*****G1 ********** 

* ADD 1 TO THE * 

* NUMBER OF * 

* EXTENTS * 

* ON THE * 

* VOLUME * 
***************** 



***************** 



****G2********* 

* * 

* CANCEL * 

* * 
*************** 



EMTYSPOT .*. 
B3 
.* IS 
.* THERE 
*EMPTY SPOT FOR. 
*.AN EXTENT.* 



AN 



*****C3********** 

* * 

* INCREMENT TO * 

* NEXT EXTENT * 

* LOCATION * 

* * 
***************** 



D3 *. 

* IS *. 

5TH 

EXTENT 

AN F3 . 

*. LABEL.* 



*YES 



*****E3********** 

* INCREMENT TO * 

* NEXT EXTENT * 

* LOCATION * 

* * 
***************** 



F3 *. 
.* IS IT *. 
.* THE LAST 
. EXTENT LOC 
*. ON THE . 
*. LABEL.* 
*. .* 
*YES 



**** 

* * 

* 3 * 

* * 
**** 



* GET POINTER * 

* ADDRESS TO * 

* NEXT LABEL * 

* * 
***************** 



****F4*********** 
READDISK KC 
*-*_*-*-*_*_*_*-* 
READ 
* FORMAT 3 * 
LABEL 
***************** 



POINTER *. YES 


.* WAS 


PRESENT TO .*.... 


*. RECORD 


. NEXT .* 


*. FOUND 


*. LABEL.* 


*. 



SAVE ADDRESS 

OF THIS 

LABEL 



****B5*********** 
SEARCH KB 

*_*_*_*_*_*_*_*_* 

FIND SPOT 
* FOR * 

LABEL 
***************** 



*****C5********** 

* INSERT ADDR * 

* OF NEW LABEL * 
*IN POINTER FLD.* 
*INIT SEEK BUCK.* 
*WITH SAVED ADDR* 
**$***********#** 



****D 5***** ****** 
WRITDISK KC 
*_*_*_*_*_*_*_*_* 

WRITE 
* UPDATED * 
LABEL 
***************** 



*****E5********** 

* INITIALIZE * 

* SEEK BUCKET * 

* WITH ADDRESS * 

* OF NEW * 

* LABEL * 
***************** 



*****F 5*** ******* 

* * 

* BUILD A * 

* FORMAT 3 * 

* LABEL * 

* * 
***************** 



*****H3********** 

* * 

* RESET LAST * 

* EXTENT * 

* INDICATOR * 



IS IT 
FORMAT 1 
LABEL . 



****H4**** ******* 



***************** 



****J4********* 

* * 

* CANCEL * 

* * 
*************** 



* GET ADDRESS * 

* OF 1ST XTENT * 

* ON F3 LABEL * 

* * 
***************** 



**** 

* * 

* l * 

* * 
**** 



WRITE UPDATED 
* FORMAT 1 * 
LABEL 
***************** 
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Chart JP. $$B0SD05: SD Open Output, Format 3 Label (Section 2 of 2) 



**** 

* * 

* i * 

**** 



INSERTX X 

*****A1 ********** 

* INSERT XTENT * 

* IN LABEL * 

* CLEAR LAST * 

* EXTENT INO * 

* * 
***************** 



*************** 



*****Ci ********** 
♦POST EXTENT LL * 

* AND UL, SET * 

* HEAD LIMITS * 
*T0 FOR TYPE 1* 

* EXTENT IN DTP * 
***************** 



IS 
DEVICE 
. 2321 



***** 02* ********* 

* * 

* MODIFY DASD * 
♦ADDRESS CONTROL* 

* FACTOR * 

* * 
***************** 



*****C2********** 

* MOVE CONTROL * 

* FACTOR INTO * 

* DTF CONTROL * 

* BUCKET * 

* * 
***************** 



* EXTENT 

ENTERED BY 
*. 1052 



*****B3********** 

* * 

* SAVE SEQ * 

* NO. OF LAST * 

* EXTENT OPENED * 

* * 
***************** 



**C3******* 

* POST FILE * 
OPENED AND 

SYMUNIT 
IN DTF 

* * 
*********** 



IS IT 

DTFPH 
FILE 



IS IT 
VERSION 
. TABLE 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 2 * 



D2 „ *• 
* IS 
EXTENT 

A 

TYPE 1 

* . . 

* . .* 

*NO 



*****E2*=********* 

* MOVE UL AND * 

* LL'S OF HEAD * 

* INTU DTF * 

* CONTROL * 

* BUCKET * 
***************** 



*****F2********** 

* INITIALIZE * 

* RECORD NUMBER * 

* AND CCHHR * 

* BUCKET IN DTF * 

* FOR LIOCS * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



**E3******* 

* RESET * 
•XTENT 

AT CLOSE' 
SWITCH 

* * 
*********** 



**P3******* 

* SET 

SWITCH 

FOR NO 

USER LXIT 

* 

*********** 



END *. YES 
OF VOLUME .*.... 
. FORCED .* 



MODIFY 

TC FETCH 

$$BOSDEV 

* , * 

*********** 



LASTXTNT 

**G5******* , 
*AS REQUIRED* 

* SET VARIOUS * 
...X* OPEN 

* INDICATORS * 
* * 

*********** 



**H3******* 

* * 

* MODIFY TO * 
*FETCH $$B0SDC1 *.. 

* CLOSE * 

* * 
*********** 



****K3********* 

* SVC 2 * 

* $$BOPEN OR * 

* $$BOSDCl * 
*************** 



.* FILE *. 

PROTECT 

♦.SPECIFIED.* 



MORE 
FILES T 
. OPEN 



**#*K4********* 

* SVC 11 * 

* TO PROBLEM * 

* PROGRAM * 
*************** 



**** J 5********* 

* SVC 2 * 

* $$BOFLPT * 

* * 
*************** 



( 
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Chart JQ. $$B0SD06: SD Open Output, User Labels (Section 1 of 2) 



****A1********* 

* * 

* $$B0SD06 * 

* * 
*************** 



♦RELOCATE CCW'S * 



***************** 



CI *. 

.♦ IS *. 

.* THIS A 

. RE-ENTRY 

♦.INTO THIS. 

♦.PHASE.* 



♦ YES 



**D1 ******* 

* * 
RESET 

RE-ENTRY 
INDICATOR 

* * 
*********** 



****E1 ********* 

* GO TO ADDR * 

* IN REGISTER 5 * 

* * 
*************** 



*G1 
HEADER LABEL 
INDICATOR IS 
SET IN $$B0SD04. 



**** 




**** 


* * 




* * 


* 1 * 




* 2 * 


* * 




* * 


**** 




**** 


MOVEUTLO X 




FILEADD2 X 


*****A3******** 


'* 


*****A4** ******** 


* 


* 


* SET UP COUNT * 


♦ INIT UTLO KEYt 


* 


* KEY AND DATA * 


♦ EXIT PHASE AND 


* 


* FIELDS * 


* EOV INDICATOR 


* 


♦INITIALIZE CCW * 


* 


* 


* CHAIN * 


***************** 


***************** 



* IS 

LABEL ON 

♦ . v 2321 



**E2******* 

* * 
SET MAX 

COUNT OF 
LABELS TO 

* 5 * 
*********** 



*****B3********** 

* RESET VOLUME * 
♦AND HEADER LBL ♦ 

* INDICATORS. ♦ 

* INITIALIZE TO ♦ 
♦FETCH $$BOSD02 ♦ 
***************** 



C3 ♦. 

.* NEED ♦ 

.♦ TRAILER 

LBLS AT 

♦. CLOSING 



CLOSEMON 

*****D3********** 

♦ SET TRAILER ♦ 

♦ AND EOF INDS. ♦ 

♦ INIT TO FETCH ♦ 

♦ $$BCLOSE * 

***************** 



**B4******* 

♦RESET TRLR * 

♦LBL CLOSE IN-* 

* DICATOR. TURN ♦ 

♦OFF HEADER SW* 

* *C4 ♦ 

*********** 



.X. 



♦ C4 
TRAILER LABEL 
INDICATOR IS 
SET IN $$BQSDC1. 



*****F2********** 

♦ INITIALIZE ♦ 

♦ CCB, SEEK ♦ 

♦ BUCKET. WRITE ♦ 

♦ COUNT FIELD * 

♦ * 
***************** 



ADER 
BELS . 
*G1 .♦ 



* LABEL IND. ♦ 

* SET IND FOR ♦ 

* NO USER LBL'S ♦ 
***************** 



****P3*********** 

WRITDISK JR 
*_*_*_*_*_*_*_*_* 

LOOK FOR 
* UTLO * 
FILEMARK 
***************** 



LOADUSER X ' 

*****B 5 ********** 

♦ INITIALIZE ♦ 

♦ REGISTERS FOR * 

♦ USER LABEL ♦ 

♦ ROUTINE ♦ 

♦ * 
***************** 



****C5********* 
» SVC 8 * 

♦ EXIT TO USER ♦ 

♦ LABEL ROUTINE * 
*************** 



*****0 5********** 

♦ RESTORE * 

♦ REGISTERS ♦ 

♦ NEEDED BY ♦ 

♦ OPEN ♦ 

♦ * 
***************** 



E5 ♦. 
.* DOES *. 
.♦ USER 
. NEED MORE 
♦. LABELS . 



WRITELBL X 

****F4*» ********* 
WRITDISK JR 
*_*_*_*_*_*_#_*_* 

WRITE 
♦ USfcR * 
LABEL 
***************** 



**G4******* 



WAS 
FILEMARK 
. FOUND 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 2 ♦ 

* * 
**** 



**j2******* 

* * 
♦SET INDICATORS 

♦ TO PROCESS ♦ 
TRAILER LABELS^ 

* * 
*********** 



****H3*********** 



***************** 



J3 ♦. 
.* ARE ♦. 

TRAILER ♦. NO 

LABELS AT .*... 

CLOSE 



*. 



.♦ 



.* 



**K2****+*+ 

♦ RESET * 
PROCESS HEADERS 

♦ LBL IND. INIT ♦ 
♦ WRITE CCW ♦ 

♦ CHAIN * 
*********** 



**«3******* 

♦RESET TRLR ♦ 

♦LBL CLOSE IND* 

* INITIALIZE * 

♦ TO FETCH ♦ 

♦ $$BCLOSE ♦ 

*********** 



DOEXTNT.X.. 
X 
***** 

♦ JR ♦ 

* D2* 



INCREMENT 
ADDR FOR 

NEXT RECORD 
* * 

*********** 



SW FOR 
NO MORE 
LABELS 



WERE 
8 LABELS 
. WRITTEN 



**K4******* 

♦ SET ♦ 
LABEL SW 

FOR NO MORE 
LABELS 

* * 
*********** 



. .♦ 

♦ NO 



**F5^*^#^* 

♦ SET ♦ 
LABEL SW 

FOR NO MORE 
LABELS 

* * 
*********** 



****G5*********** 
WRITDISK JR 
*_*_*_*_*_*_*_*_* 

WRITE 
LAST LABEL * 

*************** 



**** 

* * 

* 3 ♦ 

* * 
**** 



FILEMARK. X. . 
X 
***** 

♦ JR ♦ 

♦ Al* 
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Chart JR. $$B0SD06: SD Open Output, User Labels (Section 2 of 2) 



JQ-G5»H4,K4 



* INITIALIZE * 
♦COUNT FIELD FOR* 
*FIRST FILE MARK* 

* * 
***************** 



WRITE FIRST 
* FILE * 
MARK 
***************** 



CI *. 

* SW 

FOR 

HEADER 

LABELS 



****A4********* 

* * 

* WRITDISK * 

* * 
*************** 



WRITDISK 

*****B4**** ****** 

* GET ADDRESS * 

* OF CCB * 

* FOR * 

* SUPERVISOR * 

* * 
***************** 



****C4*********** 



***************** 



* INITIALIZE TO * 

* WRITE UTLO * 

* FILE MARK * 

***************** 



-*-*-*_*_* 



********* 



FILE *. YES 
PROTECT .*... 
EXTENT .* 



**E2******* 
RESET DEQUEUE 

* INDICATOR * 
INITIALIZE 

* TO FETCH * 
* SSBODQUE * 

*********** 



* INITIALIZE TO * 
♦FETCH SSBOFLPT ♦ 

* OR SSBODQUE * 



***** 05 ********** 

* * SVC 7 * * 

* * WAIT FOR * * 
.X* * I/O * *. 

* * COMPLETE * * 

* * * * 
***** ************ 



****£3********* 

* SVC 2 * 

* $$BCLOSE OR * 

* $$B0SD02 * 
*************** 



*****E4********** 

* SET CONDITION * 

* CODE IF * 

* RECORD NOT * 

* FOUND * 

* * 
***************** 



****F4** ******* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



GET ADDR 

OF NEXT 

PARAMETER 



****G2** ******* 

* SVC 2 * 

* $$BOFLPT OR * 

* $$BODQUE * 
*************** 



HI *. 
.♦ANOTHER*. 
.* PARAMETER *. YES 
*.T0 BE OPENED .*.... 
*. CLOSED .* 



**J1******* 



*********** 



***Kl********* 
SVC 11 * 
TO PROBLEM * 
PROGRAM * 
****#***$***$* 



****j2********* 

* SVC 2 * 

* $$BOPEN * 

* * 
*************** 
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Chart JS. $$BOSD07: SD Open Output , Extents from Console 



****A2********* 

* $$B0SD07 * 

* * 
*************** 







0PEN0UT7 X 






*****S2********** 






* # 






* RELOCATE * 






* CCW'S * 






* * 


**** 




* * 


* * 




***************** 


* 1 * 






* * 






**** 






YPERROR X 




X 


*****ci********** 


*****C2********** 


* MOVE 




* INITIALIZE * 


* ERROR MESSAGE 


* 


* CCW AND * 


* 4477A 


* 


* INSTRUCTIONS * 


* TO TYPEOUT 


* 


* FOR MESSAGE * 


* AREA 


* 


* 4450A * 


*************** 




***************** 



TYPEMSG1 

****D2*** : 
SUMROUT 
*_*_*_*_*_*_*_*. 

TYPES MESSAGE 
* READ 

RESPONSE 
***************** 



KC 



**** 

* * 

* 3 * 

* * 

**** 



VALID 
EXTENT 
.PROVIDED 



*****Q4*******: 

* CONVERT 

* EXTENT TO 

* BINARY AND 

* STORE 



ABORTJOB 

X 
****E3********* 

* * 

* CANCEL * 

* * 
*************** 



VTOC 

DISPLAY 

.REUUESTED. 



H2 *. 

DEVICE 

A 

2311 

*. . : 

*. .* 

*NO 



**J2***#### 

* MODIFY * 

DASD 

ADDRESS 

CONSTANTS 

* * 
*********** 



YES '. 


) 


< l 


DUMPVTOC .*. 


H3 *. 


.* *. 


NO .* VTOC *. 


...*. DISPLAY .* . 


*. REQUESTED.* 


*. .* 


X *. .* 


**** *YES 


* * 


* 2 * 




* * 




**** 




X I 


*****J3********** 


* * 


* INITIALIZE * . 


* FOR * . 


* $$BOVDMP * . 


* * 


***************** 




x ! 



********** 



E4 *. 

* * 

DEVICE 

A 

2321 

*. .* 

*. .* 

*YES 



*«**«P4********** 
« * 

* CONVERT * 

* LXTcNT * 

* HIGH LIMIT * 

* * 
******** ********* 



COMPXTNT .*. 



.* HIGH *. YES 
LIMIT .*.... 
*. EXCEEDED .* 



* 1 * 

* * 
**** 



.* MAX *. 
.* NUMBERS *. NO 
*. OF EXTENTS .*... 
*. REACHED .* 



* LOAD * 

* WORK * 

* REGISTERS * 

* * 
***************** 



****K3 ********* 

* SVC 2 * 

* $$BODSPV * 

* OR $$BOVDMP * 
*************** 



*****j4********** 

* SET UP * 

* TO ISSUE * 

* MESSAGE * 

* 44451 * 

* * 
***************** 



****K4********* 

* SVC 2 * 

* $$BOMSGl * 

* * 
*************** 



***** j 5 ********** 

* ASSIGN NEXT * 

* EXTENT NUMBER * 

* TURN ON 1052 * 

* EXTENT * 

* INDICATOR * 
***************** 



****K5********* 

* SVC 2 * 

* $$B0SD02 * 

* * 
*************** 
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Chart KA. $$B0SD08: SD Open Output, Delete Label 



**** 
* * 

* 6 * 



****A1 ******** 
* 

* $$B0SD08 
* 

************** 



♦RELOCATE CCW'S * 



***************** 



*. SAME UNIT 



**** 

* * 

* 1 * 

* * 
**** 



03 *. 
.* IS *. 
NO .* LABEL * 
...*. WITHIN VTOC 
*. LIMITS .* 



.* IS * 
INTERNAL 
SYSTEM 
. OPEN 



**D1 ******* 

* * 

* SET SYSTEM * 
SWITCH FOR NO * 

* MESSAGE * 

* * 
*********** 



*. 



.*. 

El *. 

.*IS THIS*. 

A REENTRY 

INTO THIS 

PHASE . 
*. .* 
*. . * 



*****P1_ *******«r** 

* * 

* ESTABLISH * 
♦BEGINNING DASU * 

* ADDRESS * 

* * 

***************** 

**** 

* - * 

* 1 * 

* * 
**** 

MOVERCM X 

*****G1 ********** 

♦INITIALIZE CCW * 
♦CHAIN AND SEEK * 

* BUCKET * 

* * 
***************** 

**** 



**** 
NEXTLBL X 

*****H1 ********** 



***************** 



****J1 *********** 
READDISK KB 
*_*_*_*_*_*_*_*_* 

SEARCH FOR 
* EQUAL FILE NAME 
LABELS 
***************** 



NO .* SYSTEM 
...*. CLEAR LBL 
*. SWITCH . 



****D2********* 
* * 

*SVC 2 $$B0SD03 * 



****E2********* 

*SVC 2 $$BOSD01 * 

*************** 



**P2******* 



*********** 



****G2********* 
♦EXIT TO ADDRESS* 

* IN REGISTER 5 * 

* * 
' *************** 



****j2*********** 



***************** 



****K2****: 
CANCEL 



C4 *. 
.*NASTER *. 
* INDEX 
PRESENT SW 



***** C5********** 



***************** 



********* 



********* 



**** 

* * 

* 7 * 

* * 
**** 



_ TENT 

* STOP FACTOR 

* 

*****#********** 



EXPIRED 
YES 



****G3*********** 



***************** 

**** 

* * 

* 3 * 

* * 
**** 

X 
*****H3********** 



NO .*IS POINTER *. 
...*.AT NEXT LABEL.* 



***** F5*******^+* 

* * 
*GET ADDRESS OF * 

* NEXT LABEL, * 

* INCREMENT CCW * 

* CHAIN * 
***************** 



***************** 



***************** 
**** 



**** 
CLEARLBL 

*****J3********** 



***************** 



****K3*********** 
WRITEDISK KB 
*_*_*_*_*_*_*_*_* 

DELETE LABEL 
* * 

**************** 



.* IS IT THE * 

. SAME LOWER 

*. LIMIT .* 

*. .* 

*. .* 

*NO 


. YES. 
.*..X. 

X 

**** 

* * 

* 5 * 

* * 
**** 


.* RECORD * 
*. FOUND 

*. .* 
*. .* 
*. .* 
♦NO 


. YES 
.*. ... 

X 
**** 

* * 

* 2 * 

* * 
**** 


X 

****J4 *********** 


X 
****J5*********** 


MESSAGE 42431 


* 


* MESSAGE 44091 
42091 49091 
* 47091 


* 
* 



****K4********* 

* ♦ 

* CANCEL * 

* * 
*************** 



**************** 



****«5********* 

* CANCEL * 

* * 
*************** 



* 7 * 

* * 
**** 
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Chart KB. SD Open Output Subroutines (Section 1 of 2) 



****A1********* 

* * 

* SEARCH * 

* * 
*************** 



SEARCH 

*****Bi ********** 

* INIT SEEK * 

* BUCKET WITH * 

* MINIMUM START * 

* ADOR CF VTOC * 



*********** 



***** 



****d *********** 

READDISK KC 

*_*_*_*_*_*_*_*_* 

SEARCH FOR 
* AVAIL LBL SPOT* 
********** 



****A4********* 

* * 

* READDISK * 

* * 
*************** 



**************** 



*****C4 ********** 

* * 

* INIT CCB WITH * 

* ADDR QF CCW * 

* CHAIN * 

* * 
***************** 



*****D4 ********** 



****A5********* ' 

* * 

* WRITDISK * 

* * 
*************** 



************* 



Fl *. 

.* CCUNT *. 

ADDRESS 

PAST VTOC 

. UPPER . 

♦LIMITS.* 

*. .* 

*NO 



****GX********* 

* * 
*EXIT VIA REG 14* 

* * 
*************** 



****F2********* 

* MESSAGE 44011 
..X 49011 44001 
* 49001 * 

***************** 



****G2********* 

* * 
*EXIT TO LINKREG* 

* * 
*************** 



***************** 



****E4**«* ******* 

* * 

SVC IOCSCALL 
* * 

***************** 



*. I/O BUSY 

*. 

*. .* 
*. .* 



.* DISASTER 
*. ERROR 
*. OCCURRED 



*****p 5 ********** 

* * * * 

* * * * 
.X* *SVC 7 WAIT * *. 

* * * * 

* * * * 
***************** 



****G5********* 

* SVC 11 RETURN * 
.X* TO PROB PROG * 

* * 
*************** 



J 



*****H4** ******** 

* * 

* SET CONDITION * 

* CODE IF NO * 

* RECORD FOUND * 

* * 
***************** 



****J4********* 
* RETURN TO * 
♦CALLING ROUTINE* 



Sequential Access Charts 299 



Chart KC. SD Open Output Subroutines (Section 2 of 2) 



****A1 ******'*** 

* * 

* READDISK * 

* * 
*************** 



* GET ADDRESS * 

* OF FIRST * 

* READ CCW * 

* * 
***************** 



***#*d ********** 

* INITIALIZE * 

* CCB WITH * 

* ADDRESS OF * 

* CCW CHAIN * 

* * 
***************** 



*****Q1********** 

* * 

* GET ADDRESS * 

* OF CCB FOR * 

* SUPERVISOR * 

* * 

***************** 



****E1 *********** 

* SVC * 
READ 
* DISK * 

***************** 



****A2********* 
* 

* WRITDISK 
* 

*************** 



* GET ADDRESS * 

* OF FIRST * 

* WRITE CCW * 

* * 
***************** 



****/\4 ********* 

* SUMROUT * 

* SUBROUTINE * 

* * 
*************** 



SUMROUT X 

*****B4**** ****** 

* GET CURRENT * 

* SYMBOLIC UNIT * 

* IN WORKREG * 

* CONVERT TO * 
♦PRINTABLE FORM * 
***************** 



*****C4** ******** 

* * 

* GET ADDR * 

* OF TYPEWRITER * 

* CCB * 

* * 
***************** 



****D4** ********* 

* SVC * 
TYPE 
* MESSAGE * 

***************** 



**** £5********** 



***************** 



.* DISASTOR *. YES 
*. ERROR .*.... 
♦.OCCURRED .* 



.X* 



*****F2********** 
* * SVC 7 * * 

WAIT FOR * * 
I/O * *. 

COMPLETED * 



* * 



* * 



***************** 



****G2********* 

* SVC 11 * 

* RETURN TO * 

* PROB PROG * 
*************** 



.* OPERATOR *. YES 
. RESPONSE .*... 
*. EOB .* 



*****G4** ******** 
*, CONVERT * 

* RESPONSE * 

* TO UPPER * 

* CASE * 

* * 
***************** 



.*. 
HI * 








.*. 

H4 * 


.* 


*. 


****H2********* 


****H3********* 


.* 


* RECORD 


*. YES 


* RETURN TO * 


* EXIT VIA * 


NO .* CANCEL 


FOUND 


.*..... 


...X* CALLING * 


* SUMREG *X... 


*. JOB 


*. 


.* 


* ROUTINE * 


* * 


*. 


*. 


* 


*************** 


*************** 


*. 



ABORTJOB 

**** H5 ********* 

* * 
...X* CANCEL * 

* * 
**** *********** 



*****jl********** 

* * 

* INITIALIZE * 

* TO FETCH * 

* $$BOMSGl * 

* * 
***************** 



****K1 ********* 

* SVC 2 * 

* FETCH * 

* $$BOMSGl * 
*************** 
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**** 

* * 

* i * 



****A1 ********* 

* * 

* $$B0SDW1 * 

* * 
*************** 



***************** 



ENTRY *. 
FROM MSG 
. ROUTINE .* 



**D1 ******* 

* * 
RESET 

MESSAGE RTN 
INDICATOR 

* * 
*********** 



****£!********* 

* GO TO POINT * 

* INTERRUPTED * 

* FOR MESSAGE * 
*************** 



BYPASS 

THIS 
EXTENT 



VALID 
SYMBOLIC 
. UNIT 



***** 
*KE * 
* F2* 



**F2******* 

* SET UNIT * 
♦DISPLACEMENT * 

* SET NEXT VOL * 
* IF REQUIRED * 

* * 
*********** 



**** 

* * 

* 2 * 

* * 
***# 



SET OPEN 

SWITCH 

IN DTF 

* * 

*********** 



***** 
*KE * 
* C3* 



*****£ i ********** 

* * 

* LOAD * 

* DLBL * 

* ADDRESS * 

* * 
***************** 





G2 *. 


*****G3********** 




.* *. 


* INITIALIZE * 




* IS IT *. NO 


* TO FETCH * 


* 


THE LAST .*.... 


* OPEN * 




*. EXTENT .* 


* MONITOR * 




*. .* 


* * 




*. .* X 


***************** 




*YES **** 






* * 






* 3 * 






* * 






**** 






X 


X 




.*. 


.*. 




H2 *. 


H3 *. 




.* *. 


.* *. 




* ARE *. YES 


.* ANOTHER *. y 


* 


ANY EXTENTS .*.... 


*. FILE TO BE .* 




*. OPEN .* 


*. OPENED .* 




*. .* 


*. .* 




*. .* X 


*. .* 




*NO **** 


*N0 




* * 






* 2 * 






* * 






**** 






X 


X 


*****j2********** 


** J3******* 


* 


SETUP * 


♦RESET OPEN * 


* 


TO ISSUE * 


* MONITOR SW * 


* 


MESSAGE * 


* LOAD DTF ADDR * 


* 


49601 * 


* IN REG 1 * 



***************** 



***** 
*KE * 
* G2* 



*********** 



****«3********* 

* SVC 11 * 

* EXIT TO * 

* USER * 
********** 



****j4********* 

* SVC 2 * 

* $$BOPEN * 

*************** 



**** 

* * 

* 3 * 

* * 
**** 

VECCW X 
*****A5 ******** t* 

* * 

* INITIALIZE * 

* CCB AND CCk * 

* CHAIN * 

* * 
***************** 



*****B5********** 

* SET UP TO * 

* ISSUE MESSAGE * 

* 49071 * 

* IF RECORD * 

* NOT FOUND * 
***************** 



****C5*********** 
READDISK KF 

*_*_#-*_*_*_*_*_* 

READ NEXT 
* EXTENT * 
RECORD 
***************** 



*****D5********** 

* SAVE EXTENT * 

* ADDRESS * 

* INITIALIZE * 

* CCB WITH * 

* SYMB. UNIT * 
***************** 



.* THIS *. 

EXTENT ON 

NEW 

. VOLUME . 



***** p 5********** 

* SET UP TO * 

* ISSUE MESSAGE * 

* 49't7A * 
*FOR EXTTNTS NOT* 

* ON SAMI UNIT * 



***** ***** 



**H5******* 

* TURN OFF * 
*NEW VOL IND. * 

* TURN ON * 

*BYPASS EXTENT* 

* IND. * 
*********** 
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***** 




**** 




**** 




*KD * 




* * 




* * 


* B2* 




* 2 * 




* 5 * 


* * 




* * 




* * 


* 




**** 




***# 


X 




X 




* 


ANYOPEN .*. 




.*. 


.* . 


X 


Bl *. 




B2 *. 


B3 *. 


*****[)/ f ********** 


.* *. 




.* UNIT *. 


.* *. 


* SET UP TO * 


.* ANY *. YES 




.*UNASSIGNLD *. YCS 


.* UNIT *. YES 


* ISSUE MESSAGE * 


*. EXTENTS .*... 




*. OR .*.... 


. ...X*. UNASSIGNED .*.... 


* 49061 IF NO * 


*. OPENED .* 




*. IGNORED .* 


*. .* . 


* STANDARD * 


*. .* 




*. .* 




* V0L1 LABEL * 


*. . * 




*. .* 


*. .* X 


***************** 


*N0 




*NO 


*NO **** 

* * 

* 3 * 




* 














* * 










**** 




X 








X 


.*. 


BELOWFE X 


X 


.*. 


CI *. 




**C2******* 


**C3******* 


C4 *. 


.* *. 




* * 


* * 


.* *. 


.* DTF *. YES 




* SET OFF * 


* SET ON * 


.* V0L1 *. NO 


*. SYMBOLIC .*..X 




* IGNORE BIT * 


* IGNORE * 


*. LABEL .*.... 


*.UNIT INI r.* 




* * 


* INDICATOR * 


*. .* 


*. .* 




* * 


* * 


*. .* 


*. .* 


< 


*********** 


*********** 


*. .* X 


*NO **< 


*** 






*YES ***** 


*KF 


- *CHKVTOC 




*KF * 


* t 


)2* 






* J5* 


* 


* 




X 


* * 




•f 




***** 


* 


X 






*KD * 


X MSGPHAS1 


.*. 


CONTIN X 


* G3* 


.*. 


Dl *. 




*****D2** ******** 


* * 


D4 *. 


.* SYMB *. 




* INITIALIZE * 


* 


.* VOL *. 


.* UNIT IN *. NO 




* TO TEST * 




.* SERIAL *. YES 


*. EXTENT .*... 




* DEVICE * 




*. NUMBER .*.... 


*. CARD .* 




* VALIDITY * 




*- OMITTED .* 




*. .* 




* * 




*. .* 




*. .* ) 


< 


***************** 




*. .* 




*YES *< 


*** 






*N0 




* 


* 










* 


L * 










* 


* 


X 




X 




SAVEUNIT X 


COMPDEV .*. 


MOVEUNIT 


.*. 




*****tl ********** 




E2 *. 


*****E3********** 


E4 *. 




* * 




. * *. 


* INITIALIZE * 


.*BYPASS *. 




* SET SYMBOLIC * 




.* DEVICE *. YES 


* OPEN CCB * 


.* VOLUME *. YES 




* UNIT IN * 




*. CORRECT .*.... 


....X* WITH * 


*. SERIAL NUMBER.*. .X 
*. CHECK .* 




* DTF * 


*. .* 


* SYMBOLIC UNIT * 




* * 




*. .* 


* * 


*. .* 




***************** 




*. .* 
*NO 
**** . **** 

* * . * * 
*KF * * 3 * 

* C2* . * * 
**** . **** 


***************** 


*. .* 
*N0 

X 




X 


LOADMSG X 


X 


.*. 




**P1******* 




**#**F2 ********** 


*****P3********** 


F4 *. 




*StT SWITCH * 




* SET UP * 


* * 


.* *. 




* TO INDICATE * 




* TO ISSUE * 


* INITIALIZE * 


.* CORRECT *. YES 




* SYMBOLIC * 




* MESSAGE ♦ 


* SEEK * 


*. * PACK .*..X 




* UNIT IN * 




* 49831 * 


* ADDRESS * 


*. MOUNTED .* 




* DTF * 






* * 


*. .* 




*********** 




************ ***** 


***************** 


*. .* X 
*N0 ***** 


**** I 




**** '. 


**** * 


*KF * 


* * . 




* * 


* * 


* Bl* 


* 1 *... 




*KD *... 


* 4 *. .. 


* * 


* * . 




* J2* 


* * 


* 


**** X 




**** 


**** 


VTOCADDR 


TESTDTF .*. 


MOVESYM X 


M0VECCW9 X 


X 


Gl *. 




*****G2********** 


*****G3********** 


*****G4********** 


.* *. 




* MOVE SYMBOLIC * 


* INITIALIZE * 


* SETUP * 


.* SYMBOLIC *. NO 




* UNIT TO * 


* CCW CHAIN * 


* TO ISSUE * ' 


*. UNIT IN .*... 




* CCB FOR * 


* TO READ * 


* MESSAGE * 


*. DTF .* 




* ERROR * 


* VOLUME * 


* 4955A * 


*. . * 




* MESSAGE * 


* LABEL * 


* * ■ 


*. .* 


k 


***************** 


***************** 


***************** 


*YES * 


«=** 








* 


* 








* 


3 * 








* 


* 


X 






* 




***** 
*KF * 






X 




* J5* 


X 


X 


*****Hi ********** 




* * 


*****H3********** 


*****H4**** ****** 


* * 




* 


* SET UP TO * 


*MSGPHAS1 JF* 


* SET SYMBOLIC * 




MSGPHAS1 


* ISSUE * 


*_*_*_*_*_*_*_*_* 


* UNIT IN * 






* MESSAGE * 


* TYPE ERROR * 


* EXTENT * 






* 49061 IF NO * 


* MESSAGE * 


* * 






* RECORD FOUND * 


* * 


***************** 






***************** 


***************** 





VERIFY X 

*****jl ********** 

*FINO LUB ENTRY * 

* FOR LOGICAL * 
*UNIT SPECIFIED * 
*IN FIRST EXTENT* 

* USING SYSIR * 
***************** 



_*_*_*_*_*_*_ 
READ 
* VOLUME * 
LABEL 
***************** 
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* INITIALIZE * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



*****d ********** 

* * 

* SAVE ADDR * 

* OF FORMAT 4 * 

* LABEL * 

* * 
***************** 



*****D1 ********** 

* SET UP TO * 

* ISSUE * 

* 49041 IF * 

* NO RECORD * 

* FOUND * 
***************** 



****E1 *********** 
READDISK KF 
*_*_*_*..*_*_*_*_* 

READ 
* FORMAT 4 * 
LABEL 
***************** 



*****P1 ********** 

* SET UP TO * 

* ISSUE MESSAGE * 

* 49041 IF * 

* NO FORMAT 4 * 

* LABEL * 
***************** 



LABEL 
FORMAT 4 
. LABEL 



* 1 * 

* * 
**** 



**** 

* * 

* 3 * 



*** 

WRI 

*_*_ 



NEXTPHAS .*. 



*_*_*_*_*_ 

WRITE 
FORMAT 4 

LABEL 



**** 

SAVELIMI 

***** 

* * 

* SAVE * 

* VTOC * 

* LIMITS * 

* i * 
***************** 



C .*. 

D2 *. 
.♦EXTENT *. 
LOW LIM GT 
VTOC UPPER 
. LIMIT . 
*. .* 



.♦EXTENT *. 

UP LIM LT 

VTOC LOW 

LIM 



* VTOC * 

CHECKED FOR 

*. EG FILE .* 

*.NAME .* 



**C3******* 

* SET VTOC * 

CHECKED 
FOR EQUAL 
FILENAME 

* * 
*********** 



^♦♦SOS********** 

* * 

* MODIFY TO * 

* FETCH * 

* $$BOSD0B * 

* * 
***************** 



* 4 * 

* * 
**** 



****E3********* 

* SVC 2 * 

* FETCH * 

* *D4 * 



****A4********* 

* * 

* READDISK * 

* * 
*************** 



*****B4**** ****** 

* * 

* GET ADDRESS * 

* OF READ * 

* CCW CHAIN * 

* * 
***************** 



.*. 




ABORTNOT X 


G2 *. 






*****G3********** 


* * 






* * 


EXTENT 
LQ HD GT 


* 


YES 


* SET UP TO * 




*. . . . 


* ISSUE MESSAGE * 


VTOC UP 


* 




* 4941A * 


*. HD .* 








*. .* 




X 


***************** 


*N0 




#*** 

* * 

* 3 * 

* * 




X 

.* . 




**** 








X 


H2 *. 






*****H3********** 


* * 






*MSGPHAS1 KF* 


EXTENT 


* 


NO 


*_*_*_*_*_*_*-*_* 


UP HD LT 




*.. . . 


* TYPE * 


VTOC LO .* 




* ERROR * 


*. HD .* 






* MESSAGE * 


*. .* 
*YES 




X 

**** 


***************** 



**J1 ******* 

* SET BOS * 

DADSM 

INDICATOR 

ON 

* * 
*********** 



* 3 * 

* * 
**** 



** J3******* 

* SET * 
BYPASS 
EXTENT 

INDICATOR 

* * 
*********** 



$$B0MSG1 - TO ISSUE 
MESSAGE. 

$$B0SD08 - TO CHECK 
FOR EQUAL 
FILENAMES. 

$$B0SD03 - TO CHECK 
FOR FILE 
OVERLAP 
CONDITIONS. 



*****F4 ********** 

* * SVC 7 * * 

* * WAIT FOR * * 
.* * I/O * *X 

* * COMPLETED * * 

* * * * 
***************** 



****G4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****H4** ******* 

* * 

* MSGPHAS1 * 

* * 
*************** 



****A5********* 

* WRITDISK * 

* * 
*************** 



*****B5 ********** 

* * 

* GET ADDRESS * 

* OF WRITE * 

* CCW CHAIN * 

* * 
***************** 



*****C5********** 

* INITIALIZE * 

* CCB WITH * 

* ADDRESS OF * 

* CCW CHAIN * 

* * 
***************** 



****05********** 

GET ADDRESS * 

OF CCB * 

FOR * 

SUPERVISOR * 

* 

**************** 



**** E5*********** 

* SVC * 

READ 
* DISK * 

***************** 



* MODIFY * 

* TO HL-TCH * 

* $$U0MSG1 * 

***** ************ 



**** 

* * 

* 1 * 

* * 
**** 
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**** 
* * 

* 4 * 

* * 
**** 



****A1********* 

* * 

* $$B0SDW2 * 

* * 
*************** 



0PENWRK2 

**B1******* 

* RELCCATE * 

* CCW S CHECK * 
*FILE EXPIRATION* 

* DATE USING * 

* SYSDC * 
*********** 



* ARE * 

FILE LABELS 
*. MADE .* 



*****Di ********** 

* * 

* BUILD * 

* FORMAT 1 * 

* LABEL * 

* * 
***************** 



NC .* CREATING *. 

...*.DATA SECURITY. 

*. FILE .* 



**F1 ******* 

* * 
SET DATA 
SECURITY 

SWITCH 

* * 
*********** 



FINDSPT X 

****G1 *********** 

SEARCH KB 



**************** 



*****Hl ********** 

* SAVE ADDR IN * 

* DTF, INIT * 

* SEEK * 

* BUCKET * 

* * 
***************** 



* ADD 1 TO * 

* NUMBER * 

* CF EXTENTS * 

* * 
***************** 



* GET ADDR * 
X* OF CREATED * 

* Fl LABEL * 

* * 
***************** 



*****D2********** 

* * 

* INITIALIZE * 

* TO READ * 

* KEY AND DATA * 

* * 
***************** 



*****£ p********** 

* * 

* MOVE * 

* SYMBOLIC UNIT * 

* INTO CCB * 

* * 
***************** 



*****Q3********** 

* * 

* SET LAST * 

* EXTENT * 

* INDICATOR * 

* * 
***************** 

**** 

* * 

* 2 *. .. 

* * 
**** 

EXTENT5 .*. 

C3 *. 

.* IS *. 

.*5TH EXTENT 

*. ON F3 

*. LABEL . 

*. .* 

*. .* 



*****D3********** 

* * 

* BYPASS * 

* FORMAT * 

* ID FIELD * 

* * 
***************** 



* GET POINTER * 

* TO NEXT LABEL * 

* IN CHAIN * 

* * 
***************** 



READ F3 LABEL 



***************** 



SAVE ADDR 

OF THIS 

LABEL 



F2*** 
DISK 



EMPTY A SPOT 
*FOR EXTENT. 



*****P3********** 



.* WAS 
RECORD 
*. FOUND 



****D4#* ********* 



***************** 



****E4********* 

* * 

* CANCEL * 

* * 
*************** 



********* 



****B5*********** 
SEARCH KB 

*_*_*-*_*_*_*_*_* 
LOOK FOR 
AVAIL. SPOT * 
FOR LABEL 
*************** 



*****C5********** 

* INITIALIZE * 

* POINTER IN * 

* CURRENT LABEL * 

* INIT SEEK * 
BUCKET 



*********** 



**** 



*****D5********** 
♦WRITDISK KH* 

*_*_*_*-*_*_*_*_* 

♦PUT UPDATED LBL* 

* BACK ON DISK * 

* * 
***************** 



***** E5********** 



***************** 



********** 



FORMAT 1 
LABEL 
. FOUND 



INCREMENT 
TO NEXT 
EXTENT 



****j 2* ********** 



***************** 



****K2********* 

* CANCEL * 

* * 
*************** 



.* IS *. 

.* POINTER *. 

♦PRESENT TO NEXT* 

*. LABEL .* 



IS IT 

FORMAT 1 

. LABEL 



****K3*********** 

WRITDISK KH 

*-*-*_*_*-*_*-*-* 

WRITE 

MODIFIED * 

LABEL 



..X 



FORMAT3 X 

**P5******* 

* GET ADDR. * 

* OF 1ST 

* EXTENT ON 

* F3 LABEL 

* * 
*********** 



**** 

* * 

* l * 

* * 
**** 



* 5 * 

* * 
**** 



****H5*********** 



***************** 



**** j 5********* 

* * 

* CANCEL ■ * 

* * 
*************** 
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***** 

♦ KG * 

* E3* 



****A3********* 

* * 

* READDISK * 

* * 
*************** 



****A4********* 
* 

* WRITDISK 
* 

*************** 



* MOVE * 

* EXTENT * 

* TO LABEL * 

* * 
***************** 



****C1 *********** 
WRITDISK KH 
*-*-*-,*-*_*_*_*_* 
WRITE 
* LABEL * 

***************** 



GET ADDRESS 
OF FIRST 
READ CCW 



*****£!********** 

* * 

* POST LIMITS * 

* IN DTF, SET * 

* LIOCS SW * 

* * 
***************** 



.* IS 
. EXTENT A 
*. TYPE 1 



*****G1 ********** 

* * 
♦MOVE UPPER AND * 

* LOWER LIMITS * 

* IN DTF * 

* * 
***************** 



♦TURN ON BYPASS * 

♦ EXTENT * 

* INDICATOR * 

***************** 



* HAS * 

FILE 

PROTECT 

EXTENT 



****K1 ********* 

* SVC 2 ♦ 

* $$B0SDW1 * 

* * 
*************** 



**C3******* 

* CLEAR * 
LAST 

EXTENT 
INDICATOR 

* * 

* ***#*:***** 



***** 03** ******** 

* INITIALIZE * 

* CCB WITH ♦ 

* ADDRESS OF * 

* CCW CHAIN * 

* * 
***************** 



*****E3********** 

* * 

* GET ADDRESS ♦ 

* OF CCB FOR * 

* SUPERVISOR * 

* * 
***************** 



****P3*********** 

* SVC * 
READ 
* DISK * 

***************** 



* GET ADDRESS * 

* OF FIRST * 

* WRITE CCW * 

* * 
***************** 



*****G4** ******** 

* * SVC 7 * * 

♦ * WAIT FOR * ♦ 
X* * I/O * *- 

COMPLETED 



* * 



* * 
************** 



*****H3#********* 

* SET ♦ 

* CONDITION ♦ 

* CODE FOR ♦ 

* RECORD FOUND * 

* * 
**** 



************ 



****J3 ********* 

* RETURN TO * 

* CALLING ♦ 

* ROUTINE * 
*************** 



****K2********* 

* SSBOFLPT * 

* * 
*************** 



~N 
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****A1 ********* 

* * 

* $$B0SDW3 * 

* * 
*************** 



* RELCCATE * 
CCW'S AND CCB 

* INITIALIZE * 
♦EXTENT REG.* 

*********** 



* INCREMENT 
REG. TO NEXT 

* LABEL 

* EXTENT * 
*********** 



IS 

THIS A 
. ■ POINT 
*.OPEN . 



* "*. 


.* IS * 


IS *. NO 


.* NEXT 


EXTENT A .*.... 


*. EXTENT TO 


TYPE .* 


*. PASS 



*****d** 



****** 



****C2*********** 



* INIT. CCB AND * 

* SEEK ADDR * 

* TO READ Fl * 

* LABEL * 
***************** 



****D1 *********** 
READDISK KK 
*_*_*-*_*_*_*_*-* 
READ FORMAT 1 
* LABEL * 

***************** 



***************** 



****D2********* 

* * 

* CANCEL * 

* * 
*************** 



****E2* ********** 
* MESSAGE * 



***************** 



****P2********* 

* * 

* CANCEL * 

* * 
*************** 



****Q2*********** 



.* POINTER * 
. PRESENT FOR 
*. FORMAT 3 .* 
*. LABEL.* 



* GET ADDR OF 

* NEXT LABEL 

* FROM POINTER 
* 
*************** 



****E3*********** 

READDISK KK 
*_*_*_*_*_*_*_*_* 

READ LABEL 
* IN * 
CHAIN 
***************** 



. NO .* THIS 
X...*. THE POINT 
*. EXTENT . 
♦EXTENT.* 



* 1 * 

* * 
**** 



POSTXTNT 

*****D5********** 

* MOVE EXTENT * 
*TO DTF. MOVE U * 

* AND L HEAD * 

* LIMITS IN DTF * 

* * 
***************** 



E5 *. 
.* IS IT *. 
YES .* A SPLIT *. 
...*. CYLINDER 
*. EXTENT 



****F4**** ******* 



.* IS 

LABEL 
*. STILL IN 
*.VTOC .* 
*. .* 
*YES 



****#H1 ********** 

* LOAD REG * 

* WITH ADDR * 

* OF 1ST EXTENT * 

* IN Fl * 

* LABEL * 
***************** 



***************** 



****H2********* 

* * 

* CANCEL * 

* * 
*************** 



*****G3********** 

* INITIALIZE * 

* REGISTER WITH * 

* ADDRESS OF * 
*FIRST FORMAT 3 * 

* EXTENT * 
***************** 



***************** 



****G4** ******* 

* * 

* CANCEL * 

* * 
*************** 



.* 



*NO 



**F5******* 
* * 

*SET LIMIT IN 
* DTF TO 9 
* FOR TYPE 1 



RESETPNT X 

**G5******* 
♦RESET POINT* 

* IND IN DTF * 
* SAVE SEO. NO. 

* OF THIS * 
* EXTENT * 

*********** 



PAXENTS 

*****jl ********** 

* SHIFT LABEL * 

* EXTENT 1 * 

* POSITION TO * 

* LEFT * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



****j4********* 

* SVC 2 * 

* $$BOSDCl * 

* * 
*************** 



NEED 

CLOSE 

ROUTINE 



RESET 
MONITOR 
SWITCH 

*********** 



****K5********* 

* SVC 11 * 

* RETURN TO * 

* USER * 
*************** 



306 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart KK. $$BOSDW3: SD Open Work file. Extent to DTF (Section 2 of 2) 



****A1 ********* 

* * 

* READDISK * 

* * 
*************** 



* GET ADDRESS * 

* OF CCB FOR * 

* SUPERVISOR * 

* * 
***************** 



****C1 *********** 

* SVC * 
READ 
DISK * 

*************** 



*****D2********** 

* * SVC 7 * * 
WAIT FOR * * 

I/O * *. 
COMPLETED * * 

* * * * 
***************** 



.X* 



***** El ********** 

* * 

* SET CONDITION * 

* CODE FOR * 

* RECORD FOUND * 

* * 
***************** 



****F1********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



Sequential Access Charts 307 



Chart LA. $$BOSDCl: SD Close Input and Output (Section 1 of 3) 



**** 

* * 

* i * 

* * 
**** 



****Al ********* 

* ENTRY FROM * 

* $$BCLOSE * 

* * 
*************** 



***************** 



CI 

FILE 
OPEN 



***** 
*LC * 
* Fl* 



NEED 
TO WRITE 
. LAST 
♦RECORD.* 



****C2*********** 

* TO LIOCS * 
MODULE 

AND * 
RETURN 
***************** 



SYSRDR 

TO 
SYSLST. 



X 
***** 
*LC * 
* Dl* 



CLOSEFILE+4 



* SYSTEM 

FILE BEING 
*. CLOSED . 



X 

.*. 

El *. 

TYPE 

OF 
FILE 

**. .** 



* l * 

* * 
**** 

SYSRES 

TO 
SYSRLB 



**D2******* 

* STORE DTF * 

* ADDRESS. * 
* TURN REENTRY 

* INDICATOR * 

* ON * 
*********** 



NEED 
NEXT 
EXTENT 



****F 2* ******** 

* SVC 2 * 

* $$B0SDW3 * 

* * 
*************** 



COMPILER 
FILE 
. CLOSE 



***** 

*LB * 

* Al* 

* * 



RESET9 X 

*****£ 3********** 

* SET * 

* INDICATORS * 

* FOR * 
,* LIOCS * 

* MODULE * 
***************** 



DELETE *. NC 
VTOC .*..X 
.SPECIFIED.* 



.*. 


PVTLIBRY .*. 


HI *. 






H2 *. 


.* *. 






.* 


* SYSLNK *. YES 




.* 


PRIVATE 


INPUT .*... 


* 




LIBRARY 


*. CLOSE .* 




* 


CLOSE 


*. .* 






*. 


*. .* 






* . .* 


*NO 






*YES 
. ...X*. 








X 








***** 








*LB * 


X 






* Al* 


***jl ********** 






* * 


* 






* 


GET NEXT * 






SETSW1 


DISK ADDRESS * 









CLOSFILE+4 



.* NEED *. 
NO .* TO UPDATE 
...*. A LAST 

*. RECORD . 



**F5******* 

* * 

* SET COMMSW1 
FOR CLOSING. 

* TURN OFF 

* UPDATSWT * 
*********** 



* TO LIOCS 
MODULE 
* AND * 
RETURN 
***************** 



X...*. 




INPUT 




* 


. FILE 






* . 


X 




*. .* 


***** 




*NO 


*LC * 






* Bl* 






* * 






* 






COfaOLBL 


X 






.*. 






J5 * 






.* 


NO 




NEED 




* 






. EXTENT 



***************** 



***** 
*KB * 
* B2* 



****K5********* 

* SVC 2 * 

* $$BOSD01 * 

* * 
*************** 
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Chart LB. $$B0SDC1: SD Close Input and Output (Section 2 of 3) 



*LA-C3,F3,H1,H2 



**A1******* 

* SET OFF * 
SWITCHES TO * 
CLEAR VTOC * 
AND CHAINED * 

* LABELS * 
*********** 



MOVEUNIT 

*****B2********** 

* INITIALIZE * 

* CCB AND * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



' ****C2*********** 

READDISK LC 
*_*_*_*_*_*_*_*_* 

READ VOL 
* LABEL * 

***************** 



**** 

* * 

* 1 * 

* * 
**** 


**** 

* * 

* 2 * 

* * 
**** 


X 




LEARSW1 .*. 

B3 *. 

.♦'switch to"*. OFF 

*. DELETE FILE .*... 
*. LABEL .* 


X 

*****B4 ********** 

* CLEAR KEY * 

* LABEL AREA. * 

* MODIFY * 

* CCW«S * 



***************** 



WRITEF1 

****C3*********** 
WRITDISK LC 
*_*_*_*-*-*_*_*_* 

WRITE OR 
* DELETE Fl * 



***** 



*********** 



CLEARSW2 .*. 



*****P1 ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 45061 * 

* * 
***************** 



****G1********* 

* SVC 2 * 

* $$B0MSG1 * 

* * 
*************** 



RECORD 
FOUND 



.*WAS IT * 
* STANDARD 

VOLUME 
*. LABEL 



**F2******* 
* INIT CCW * 

* CHAIN AND 
SEEK BUCKET 

* TO FIND Fl 
*FILE LABEL * 

*********** 



****G2*********** 
READDISK LC 
*_*_*_*_*_*_*_*_* 

READ Fl 
* LABEL FOR * 

***************** 



SW *. ON 
TO CLEAR .*.. 
. CHAINED .* 
*.LBLS .* 



.* POINTERS 

*. TO NEXT 

*. LABEL 



**F3******* 

* GET ADDR * 

*OF NEXT LABEL* 

*IN SEEK BUCKET * 



*********** 



****G3*********** 
READDISK LC 
*_*_*_*_*_*_*_*_* 

READ NEXT 
* LABEL IN * 
CHAIN 
***************** 



IS IT 
WORKFILE 

CLOSE . 



IS 
IT A 
DTFPH 
FILE 



***** 
*LC * 
* Fl* 



***** 
*LC * 
* Dl* 



CL0SFILE+4 



WAS 

RECORD 

FOUND 



***** j 1 ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 45011 * 

* * 
***************** 



**#*Ki ********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



.* IS IT *. 
YES .* END OF 
...*. CYLINDER 



*****K2********** 

* GET ADDR OF * 

* Fl LABEL IN * 

* SEEK BUCKET * 

* UPDATE LABEL * 

* * 
***************** 



**** 
* 
* 2 



*****j3********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 45031 * 

* * 
***************** 



****K3********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



PROCESS 
TRAILER 
LABELS 



**J4******* 

* TURN ON * 

* PROCESS * 
TRAILER LABEL 

* INDICATOR * 

* * 
*********** 



****K4********* 

* SVC 2 * 

* $$BOSD06 * 

* * 
*************** 



Sequential Access Charts 309 



Chart LC. $$B0SDC1: SD Close Input and Output (Section 3 of 3) 



***** 
** * 

* A2* 



COBOL 
TRAILER 
LABELS 



** *. . 
* D3* 
**** 
CLOSFILE 

**C1******* 
RESET 



LIOCS 

DTF 

SWITCH 

* * 

*********** 



**Di******* 

* SET * 

* ILLEGAL * 
*SEEK ADDRESSES 

* IN DTF LOW * 

* LIMIT * 
*********** 



**E1******* 

* RESET * 
♦COMMUNICATION* 

* SWITCHES * 
* IN DTF * 

* * 
*********** 



** * 

* J2* 
**** 

UNEXDEF X 

**pi******* 

* RESET * 

* UNIT EXCP 

* IN DTF 

* RESET OPEN 

* INDICATOR * 
*********** 



**G1******* 

* RESET * 
LABEL 

CREATED 
INDICATOR 

* * 
*********** 



.* TRACK *. 

. HOLD OPTION .; 

♦.SPECIFIED.* 



**B2******* 
*SET SWITCH * 

* TO INDICATE 
FROM CLOSE 

* ROUTINE 

* * 

*********** 



****C2********* 

* SVC 2 * 

* FETCH * 

* $$B0SDI3 * 
*************** 



**** 






* * 






* 1 * 






* * 






**** 






. 




*E3 


; 




LA-D4,E1 
LB-G4 


NOTRKHLD X 






*****E2********** 




* GET 


* 




* RETURN ADDR 


* 




* FOLLOWING 


* 




* AN OPEN 


* 





***************** 



****A4**** ***** 
* 

* READDISK 
* 

*************** 



READDISK 

*****Q4*« ******** 

* GET ADDRESS * 

* OF FIRST * 

* READ * 

* CCW * 

* * 
***************** 



*****C4 ********** 

* INITIALIZE * 

* CCB WITH * 

* ADDRESS * 

* OF CCW CHAIN * 

* * 
***************** 



*****D4 ********** 

* GET ADDRESS * 

* OF CCB * 

* FOR * 

* SUPERVISOR * 

* * 
***************** 



****E4 *********** 



****A5********* 

* * 

* WRITDISK * 

* * 
*************** 



* GET ADDRESS 

* OF FIRST 

* WRITE CCW 
* 
*************** 



SVC 

READ 

DISK 



.* ANOTHER * 
.PARAMETER TO 
*.BE CLOSED.* 



*****G2********** 

* * 

* INITIALIZE * 

* TO RETURN * 

* TO $$BCLOSE * 

* * 
***************** 



****H2********* 

* SVC 2 * 

* FETCH * 

* $$BCLOSE * 
*************** 



RESET 

MONITOR 

SWITCH 

* * 

*********** 



****G3********* 

* SVC 11 * 

* RETURN TO * 

* PROBLEM PROG * 
*************** 



.X* 



*****P5********** 

* * SVC 7 * * 

* * WAIT FOR * * 
1 * I/O * *. 

* COMPLETED * 



* * 

********: 



* * 



*****G4 ********** 

* SET CONDITION * 

* CODE FOR * 

* RECORD * 

* FOUND * 

* * 
***************** 



****H4* ******** 

* RETURN TO * 

* CALLING * 
*- ROUTINE * 

*************** 



*J2 
LA-C1 
LB-F4 



****jl********** 

* 

INITIALIZE * 

TO FETCH * 

FREE PHASE * 

* 

**************** 



**Kl ********* 
SVC 2 * 
FFTCH * 
$$BOSDC2 * 
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Chart LD. $$B0SDC2: SD Close - Free Tracks Function 



****A1 ********* 

* ENTRY FROM * 

* SSBQSDCl * 

* * 
*************** 



* RELOCATE 

* CCW ADDRESS 

* IN CCB 
* 
*************** 



*****d ********** 

* , * 

* RELOCATE * 

* SEEK ADDRESS * 

* IN CCW * 

* * 
***************** 



*****D1 ********** 

* * 

* GET ADDRESS * 

* OF TRACK * 

* HOLD TABLE * 

* * 
***************** 



*****£]_********** 

* * 

* GET NUMBER * 

* OF TRACK * 

* HOLD * 

* ENTRIES * 
***************** 



***** pi ********** 



* 


GET ADDRESS 


* 


* 


OF CCB 


* 


* 


FOR FREE 


* 


* 


ROUTINE 




***************** 


**** 






* 


* 






* 


1 *.. 






* 


* 






**** X 




TRKLOOP .*. 






GL *. 






.* *. 






* CURRENT * 


. NO 


*! 


ENTRY HELD 


.*.. 




*. BY 1 


ASK .* 





HI *. 

.* IS *. 

* CURRENT *. NO 

CCB CORRECT .*... 

*. ONE .* 

*. .* 

*. .* 



**** 

* * 

* 3 * 

* * 
**** 



*****B2********** 

* SET ADDRESS * 

* OF TRACK * 

* BEING HELD * 

* IN DUMMY * 

* AREA * 
***************** 



*****C2********** 

* SET SYMBOLIC * 

* UNIT ADDRESS * 

* OF TASK IN * 

* DUMMY CCB * 

* * 
***************** 



*****02********** 

* * * * 

* * SVC 36 * * 

* * FREE * * 

* * TRACK * * 

* * * * 
***************** 



* 3 



**** 
NOHOLD X 

*****E2********** 

* GET ADDRESS * 

* OF NEXT * 

* ENTRY IN * 

* TRACK HOLD * 

* TABLE * 
***************** 



*****F2********** 

* DECREASE * 

* NUMBER OF * 

* TRACK HOLD * 

* ENTRIES BY * 

* 1 * 
***************** 



END OF 

TABLE 

REACHED 



*****H2********** 

* GET- RETURN * 

* ADDRESS * 

* FOLLOWING * 

* AN OPEN * 

* * 
***************** 



**J1******* 

* SET COUNT * 

* OF TIMES 
TRACK WAS 

* HELD TO 

* ZERO * 
*********** 



**** 

* * 

* 2 * 

* * 
**** 



.* IS *. NO 

THIS AN .*.... 
*.ISAM FILE.* 



MORE 
FILES TO 
. CLOSE 



****J4********* 

* SVC 2 * 

* FETCH * 

* $$BCLOSE * 
*************** 



RESET 

MONITOR 

SWITCH 

* * 

*********** 



**** j 5********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



* . .* 
*YES 


**** 
* 

* 4 
* 

**** 


X 

****K2********* 
SVC 2 * 
RETURN TO * 
$$BCIS0A * 

*************** 
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Chart LE. $$BODQUE: Dequeue Extent JIBs 



****A1******4*4 

* * 

* JSBODQUE * 

* * 
*************** 



SAVE * 

REGISTERS * 

3 THROUGH 8 -* 

* 

********* #44**4 



**#**Cl ********** 

* INITIALIZE * 

* TO RETURN * 

* TO CALLING * 

* PHASE IF NAME * 

* IS SUPPLIED. * 
******4 444*44*44* 



*****D1 ********** 

* * 4 4 

* * SVC 22 * * 

* * SEIZE * * 

* * SYSTEM * * 

* # * * 
***************** 



SKIP04 

*****££! ****4**#** 

* GET ADDRESSES * 

* COMM. RGN. * 

* FAVP * 

* JIB TABLE * 
4 * 
***************** 



*****Fl ********** 

* GET * 

* ADDRESS * 



***************** 



TPTR .*. 










Gl *. 










* * 








. * 


POINTER 


*. NO 




*. 


TO 


.* 






*. 


JIB 
*. .* 
*. .* 
*YES 

X 


* 


* 
* 
* 


X 

**** 

3 

**** 


*****H1 ********** 






* 




* 






* 


GET JIB 


* 






* 


ADDRESS 


* 







4*** 

* * 

* 2 * 



4*4**B3********** 



4**************** 



*****C3********** 

* 4 

* SAVE * 

* FAVP * 

* POINTER * 

* 4 
***************** 



*****D3********** 

* UPDATE * 

* FAVP WITH * 

* POINTER TO * 

* JIB * 

* * 
***************** 



v *****E3********** 

* UPDATE * 

* POINTER TO * 

* JIB FROM * 

* POINTER TO * 

* NEXT JIB * 
***************** 



*****F3********** 

* UPDATE * 

* JIB * 

* POINTER FROM * 

* FAVP SAVE * 



* * SVC 22 * * 

* * RELEASE * * 

* * SYSTEM * * 

* * * * 
***************** 



MONORTN X 

***4*D5********** 

* GET POINTER * 

* TO FILE BEING * 

* OPENED AND * 

* INCREMENT IT * 

* * 
***************** 



ANOTHER 
FILE TO 
OPEN 



444**4 



4444* 



*****P4********** 

* TURN OFF * 

* OPEN BIT * 

* AND RESTORE * 

* REGISTERS * 

* * 

4444444*444444*44 



****G4«44*»*4** 

* SVC 11 

* RETURN TO 

* USER 
4******4*4444** 



RESTORE 

***** p 5********** 

* RESTORE * 



***************** 



**** G5********* 

* SVC 2 * 

* RETURN TO * 

* CALLING PHASE * 

**** 4***4*4**44 



4************4*4* 



EXTENT 

TYPE 
JIB 



GETNEXT 

*****j2********** 

* REPLACE * 

* LUB ADDRESS * 
...X* WITH * 

* JIB ADDRESS * 

* * 

**** 4******4***4* 
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Chart LF. $$BOSDEV: Forced End of Volume for Disk (Section 1 of 2) 



**** 

* * 

* i * 

* * 
**** 



*A1 
ENTRY FROM 
FEOVD MACRO, 
$$B0SD05, OR 
SVC 9. 



****B1********* 

* * 

* $$B0SDEV *A1 * 

* * 
*************** 



*****C1 ********** 



***************** 



**£!******* 



*********** 



*****F1 ********** 

* * 

* * 

* GET DTF ADCON * 

* * 

* * 
***************** 



***************** 



-* RE-ENTRY 
FOR NEW 
*. EXTENT 



*****A2********** 



***************** 



.*. 

B2 *. 

.* IS *. 

* MAIN TASK *. YES 

RUNNING .*... 

*. .* 

* . .* 



*****C2********** 



**************** 



****** 2********** 

* * 

* GET AODR OF * 
♦PROBLEM PROGRAM* 

* SAVE AREA * 

* * 
***************** 



*A4 
SVC 9 

ENTRY FROM 
MODULE 



*GET AODR OF PIB* 

* AND REG SAVE * 

* AREA * 

* * 
***************** 



*SET USER REG 15* 

* WITH MODULE * 

* ADDR * 

* * 

**********: 



****C4********* 

* TESTIPT * 

* *A4 * 

* * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 



* LOAD ADDR OF * 

* DTF AND LOGIC * 

* MODULE * 

* * 
***************** 



Nn ^''BRANCH ***. 
NC V* VECTOR TO ' 
••****CLOSE FILE ** 



**E3******* 




E4 +. 




E5 *. 


* ' * 


.* *. 




.* *. 


SET EOV BIT * YES .* INPUT *. 


YES .* INPUT *. 


FOR INPUT * .... 


.*. FILE .* 




.*. FILE .* 


* 




*. .* 




*. .* 


* * 




*. .* 




* . .* 


*********** 




*. .* 


X 


*. .* 






*NO 


**** *NO 








* 


* 








* 3 


* 








* 


* 








**** 


X 




- X 




X 


.*. 




.*. 




.*. 


F3 *. 




F4 *. 




F5 *. 


.* *. 




.* *. 




.* *. 


* -UPDATE *. NO 




.* EXTENT *. 


^JO 


.* GOING TO *. NO 


FILE .*..X 




*. NEEDED BY .* 




*. MODULE SECOND.*.... 


*. .* 




*. MODULE .* 




*. TIME .* 






*. .* 




* . .* 


*. .* 




*. .* 


X 


*. .* 


*YES 




*YES 


***** 

*LG * 

* A2 * 

* * 

* 


*YES 


X 




'. LOADIO 




.*. 




X 




X '. 


G3 *. 




**G4******* 




*****G5********** 


.* *. 




* * 




* * 


*BLOCK TO BE*. NO 




*SET EXTENT AT* 




* GET RE-ENTRY * 


UPDATED .*..X 




* CLOSE TIME * 




* ADDR * 


*. .* 




* SWITCH * 




* * 


*. .* 




* * 




* * . 


*. .* x 


*********** 




***************** . 


*YES ***** 








*LG * 








* B4* 








* * 














*x .! 


! POSTEOX 




X 






X 


**H3******* 


X 




**H5******* 


* * 


****H4********* 




* * 


SET RETURN * 


* SVC 2 FETCH * 




* SET EOV BIT * 


SWITCH * 


* $$BOPEN * 




* FOR OUTPUT * 


* 


* * 




* * 


* * 


*************** 




* * 


*********** 






*********** 
**** '. 


x! 






* * . 


x 






* 3 *... 


**** 






* * . 


* * 






**** 


* 2 * 











**** J5#******#* 

* SVC 8 EXIT TO * 

* LOGIC MODULE * 

* * 
*************** 



****K2********* 

* SVC 11 * 

* RETURN TO * 

* USER * 
*************** 
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Chart LG. $$BOSDEV: Forced End of Volume for Disk (Section 2 of 2) 



***** 

*LF * 

* F4* 

* * 



* CLEAR 10 REG * 

* * 

***************** 



*LF-E4 
LF-F3 
LF-G3 



* * * 
**** 
POSTEDX 



* GLT * 
*DISPLACLMENT IN* 

* REG SAVE AREA * 



* **«* ***** 



*********** 



*****c^********** 



***************** 



****D5********* 

* SVC 11 * 

* RETURN TO * 

* USER * 
*************** 



.* VARIABLL 
LENGTH 
*. RECORDS 



*****E3********** 

* * 

* POINT TO DATA * 
.X* AREA FOR * 

♦VARIABLE RECORD* 

* * 
***************** 



****p 2** ******** 



***************** 



*****E4********** 



*SAVE ADCON ADDR* 



***************** 



*****P4********** 



***************** 



****G4********* 

* SVC 2 FETCH * 

* $$ B0SDC2 * 

* * 
*************** 
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DIRECT ACCESS CHARTS 



Chart NA. DAMOD: Input/Output Macros (Section 1 of 3) 



**** 

* * 

* i * 

* * 

**** 



****Q1 ********* 

* ENTRY FROM * 

* WRITE RZERO * 

* MACRO * 
*************** 



****A2********* 

* ENTRY FROM * 

* WRITE AFTER * 

* MACRO * 
*************** 



**B2******* 

* MODIFY * 

MACRO 
SWITCH FOR 
WRITE AFTER 

* MACRO *G1 * 
*********** 



AFTER= *. NO 
BLANK .*... 
*F3 .* 



NO 


.* 


RECFORM 






= UNDEF 


• 


*. 


*F3 


X 




*. .* 


***** 




*YES 


*NB * 






* El* 






* * 







***** 
*NB * 
* El* 



****ci********* 

* ENTRY FROM * 

* WRITE KEY * 

* MACRO * 
*************** 



*#C2******* 

* MODIFY * 

* MACRO * 
* SWITCH FOR * 

* WRITE RZERO * 

* MACRO *G1 * 
*********** 



.* EOF *. 
.* OR *. NO 
*. RECORD TYPE .*... 
♦.UNDEFINED.* 



****D1********* 

* ENTRY FROM * 

* WRITE ID * 

* MACRO * 
*************** 



**D2******* 

* MODIFY * 

* MACRO 
SWITCH FOR 

* WRITE KEY 

* MACRO *G1 * 
*********** 



*X. 



**** El ********* 

* ENTRY FROM * 

* READ KEY * 

* MACRO * 
*************** 



**E2******* 

* MODIFY * 

* MACRO 
SWITCH FOR 

* WRITE ID 

* MACRO *G1 * 
*********** 



IJIEOF 

*****03********** 

* CLEAR * 

* RECORD 

* LENGTH 

* REGISTER 

* * 
***************** 



X 

***** 
*NB * 
* Bl* 



****F1 ********* 

* ENTRY FROM * 

* READ ID * 

* MACRO * 
*************** 



**F2******* 

* MODIFY * 

MACRO 

SWITCH FOR 

READ KEY 

* MACRO *G1 * 
*********** 



*F3 
DAMOD MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR IN 
AN ASSEMBLY LISTING. 



* GET UNDEFINED * 

* RECORD LENGTH * 

* FROM USER * 

* * 
***************** 



* SET RECORD * 

* LENGTH TO * 

* MAXIMUM * 

* * 
***************** 



*G1 
THE 

RESULTING 
MACRO SWITCH 
FOR EACH MACRO- 
WRITE AFTER = X 
WRITE RZERO = X 
WRITE KEY = X 
WRITE ID = X 
READ KEY = X 
READ ID = X 



RDONLY 

OMITTED 

*F3 



RECORD 
LENGTH GT 
. MAXIMUM . 



* SAVE * 

* USER'S * 

* REGISTERS * 

* * 
***************** 



IJISTO 

*****H2********** 

* STORE USER'S * 

* REGISTERS IN * 

* SAVE AREA * 

* SPECIFIED BY * 

* USER'S REG 13 * 
***************** 



* RESET 

* ERROR BYTE 
*IN DTF TABLE 
* * 

*********** 



**** 

* * 

* 1 * 



*****H4 ********** 

* SET RECORD * 

* LENGTH TO * 

* MAXIMUM * 

* LENGTH * 

* * 
***************** 



**J4******* 

* SET WRONG * 
*LENGTH RECORD* 

* BIT IN DTF * 
* TABLE * 

* * 
*********** 



A 



*****H5********** 

* * 

* STORE DATA * 

* LENGTH IN * 

* READ DATA CCW * 

* * 
***************** 



***** j 5********** 

* * 

* UPDATE DATA * 

* LENGTH WITH * 

* KEY LENGTH * 

* * 
***************** 



*****K5********** 

* STORE DATA * 

* LENGTH + KEY * 

* LENGTH IN * 

* READ KEY AND * 

* DATA CCW * 
***************** 



***** 
*NB * 
* Ul* 
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Chart NB. DAMOD: Input/Output Macros (Section 2 of 3) 



* * 

* 1 * 

* * 
**** 



IJIRON X 

*****Bl ********** 

* UPDATE * 

* RECORD * 

* LENGTH * 

* REGISTER * 

* BY 8 * 
***************** 



NO* WRITE 
X... AFTER OR 

♦.UNDEFINED. 



*****D1 ********** 

* STORE RECORD * 

* LENGTH IN * 

* READ COUNT * 

* KEY, DATA CCh * 

* * 
***************** 



IJIRZO 

*****EL ********** 

* GET ADDRESS * 

* OF CHANNEL * 

* PROGRAM * 

* BUILDER * 

* STRING * 

***************** 



****F1 *********** 
IJIOVP NJ 

*_*_*_*_*_*_*_*_* 

CONTROL 
* SEEK * 

***************** 



*****Gi ********** 
♦IJIBLD NL* 
*_*_#_*_*_*_*_*_* 

* BUILD CCW * 

* STRING * 

* * 
***************** 



NO .* RECFORM 
...*. = UNDEf- 
*. *D4 



RECORD *. 
LENGTH 
.UNDEFINED.* 



*****C2********** 

* INSERT CCMM * 

* IN DTF FROM * 

* USER'S TRACK * 

* REFERENCE * 

* FIELD * 
***************** 



* INSERT RECORD * 

* NUMBER - 1 IN * 

* DTF FIELD * 

* * 
***************** 

**** 

* * 

* 2 "* 

* * 
**** 

X 

**E2******* 

*SET BIT TO * 

* SUPPRESS * 

* LENGTH 
♦INDICATOR IN * 

* SEEK CCW * 
*********** 



IJIAFT X 

*****B3 ********** 

* INSERT CCHH * 

* IN DTF FROM * 

* USER'S TRACK * 

* REFERENCE * 

* FIELD * 
*##*#*****#****** 



*****C3********** 

* * 

* SET RECORD ID * 
♦NUMBER TO ZERO * 

* IN DTF FIELD ♦ 

* * 
***************** 



IJIZER 

*****E3********** 

* PUT CCHHO ♦ 

* FROM DTF * 

* IN COUNT ♦ 

* FIELD (WORK * 

* AREA) * 
***************** 



♦***NC-D2,D3 



IJIDOM 
IJIRND X 

****F2********** 



***************** 



AFTER= 

BLANK 

*D4 



.* WRITE *. 

AFTER ♦. YES 

OR WRITE .♦ 

. RZERO .* 



**** 

* * 

* 4 * 

* * 
**** 



.* 


HOLD = 




* . 


BLANK 




*. 


*D4 






*. 


* 




♦ . .♦ 






♦NO 




**** 




* 


* 




* 3 


*.. . 




* 


♦ 




**** x 




IJITRHLD .*. 






H2 *. 






* TRACK 


* 


.*" 


HOLD 




*. 


SPECIFIED 


*« 


IN DTF 





* 1 

* 

»*** 



*****K2********** 

* * * * 

* * SVC 26 * * 

* * FREE * * 

* * TRACK * * 

* * * * 
***************** 



.X.. 
X 

**** 

* * 

* 5 * 

* * 
**** 



*****P3********** 

* RE-INITIALIZE * 
♦TRACK CAPACITY ♦ 

* IN RO * 

* WORK AREA * 

* * 
***#***#********* 



G3********** 

♦ INSERT LOW ♦ 

♦ CORE ADDRESS ♦ 

♦ IN SECOND ♦ 

♦ ERASE CCW * 

♦ * 
***************** 



*****H3********** 

* * 

* INSERT LENGTH * 

* OF 8 IN FIRST * 

* ERASE CCW * 

* * 
***************** 



**j3******* 

* * 
* SET CC, * 

* SLI , AND DC * 
FLAGS IN FIRST* 

* ERASE CCW * 
*********** 



OAM00 MACRO PARAMETER OPTION. 
DECISION DOES NOT APPEAR IN 
AN ASSEMBLY LISTING. 



**D4********* 



SVC 

EXCP 

READ RO 



***************** 



***** £5********** 

* * SVC 7 * ♦ 

♦ ♦ WAIT FOR ♦ * 
.X* ♦ I/O ♦ ♦. 

COMPLETE 



* * 



* * 



***** ************ 



*****F4** ******** 

* GET DATA * 

* LENGTH + * 

* KEY LENGTH OF * 

* RECORD TO * 

* BE WRITTEN * 
***************** 



IJISBK 

*****G4 ********** 

* CALCULATE * 

* NUMBER OF * 

* BYTES * 

* REMAINING ♦ 

* ON TRACK ♦ 
***************** 



.♦ SPACE ♦. 
NO .♦ REMAINING * 
...*. ON TRACK LT 
*. RECORD .* 



***** *YES 
*NC *IJISUBRS. 
* Bl* 



**J4******* 
♦ SET NO * 

RCCM FOUND 
BIT ON IN 
DTF TABLE 



♦ RESTORE ♦ 

♦ USER ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



**** H5********* 

♦ RETURN TO ♦ 

♦ PROBLEM * 

♦ PROGRAM ♦ 
*************** 



*********** 



NO .♦ HOLD = 
...*. BLANK 

*. *D4 



**** *YES 

* * 

* 3 * 

* * X 
**** **#* 

* * 

* 5 * 

* * 
**** 
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Chart NC. DAMOD: Input/Output Macros (Section 3 of 3) 



IJISUBRS X 

*****B1 ********** 

* CALCULATE * 

* NUMBER OF * 
♦BYTES REMAINING* 
*GN TRACK AFTER * 
*RCD IS WRITTEN * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****B2********** 

* INITIALIZE * 

* COUNT FIELD * 

* IN I/O * 

* AREA * 

* * 

***************** 



*****C1 ********** 


C2 *. 






* STORE NUMBER * 


.* *. 




* OF UNUSED * 


.* INSERT *. YES 




* BYTES IN * 


*. CCHH END OF .*.... 






* RO WRITE * 


*. FILE .* 






* AREA * 


*. .* 






***************** 


*. .* 
*NO 






X 


X 


1JIFIN 


< 


*****D1 ********** 


*****D2********** 


*****D3********** 


* GET ADDRESS * 


* INSERT KEY * 


* SET KEY AND * 


* OF CCW * 


* LENGTH AND * 


* DATA LENGTH * 


* BUILDING * 


* DATA LENGTH * 


* TO ZERO IN * 


* AREA * 


* IN COUNT * 


* COUNT FIELD * 


* * 


* FIELD * 


* * 


***************** 


***************** 

*x... ........ 


***************** 




X 
***** 






*NB * 




IJILCH X 


* F2* 




*****Ei ********** 


* * 




*IJIBLD NH* 


* 




*_*_*_*_*_*_*_*_* 


IJIRND 




* BUILD CCW * 






* STRING TO * 






* WRITE AFTER * 






***************** 









*****F1 ********** 

* PUT PREVIOUS * 

* RECORD ID * 

* IN SEEK * 

* ADDRESS * 

* * 
***************** 



IJIPRI X 

*****Gi ** ******** 
♦UPDATE PREVIOUS* 

* RECORD ID BY * 

* 1 AND STORE * 

* IN RO WRITE * 

* AREA * 
***************** 



*****H1 ********** 

* GET I/O * 

* AREA ADDRESS * 

* FROM CCW * 

* * 
***************** 



*****jl ********** 

* PUT CCHH * 

* FROM SEEK * 

* ADDRESS IN * 

* RO WRITE * 

* AREA * 
***************** 



^N 
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Chart ND. DAMOD: WAITF Macro (Section 1 of 4) 



* i * 

* * 
**** 



*************** 



* STORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



♦ A2 
DAMOD MACRO 
PARAMETER 

OPTION — DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



NO .♦ IDLOC ♦ . 

,X.*. SPECIFIED . 

♦ . IN DTF .♦ 



***** 

*NF * 

* E2* 

* * 



*****C2********** 



***************** 



.*. 


1.1 


IXTFD 


Dl *. 




*****D2********** 


.* IS ♦ . 




* PUT SECOND * 


* RECORD *. NO 




* ERROR BYTE * 


OUT OF EXTENT.*.... 




X* FROM CCB INTO * 
* USER ERROR * 


*. AREA .♦ 




*. .♦ 




* STATUS IND * 


*. .* 




***************** 



*D3 
ACTUAL ADDRESSING — 

ALL X'FF' 
RELATIVE ADDRESSING 
(HEX) ALL X'FF' 
(DEC) ALL 9'S 



END 

OF 

FILE 



**E1******* 

* SET BYTE * 
2 OF ERROR 

INDICATOR 
TO ZEROS 

* * 
*********** 



♦. 
♦ . 
BLANK. 



E2 ♦ . 

.♦ *. 

.* END *. 

OF 

♦.CYLINDER .♦ 

♦ . .* 

*. .* 

♦ NO 



.♦ NO *. 

.♦ RECORD *. 

♦FOUND OR TRACK. 

♦ . OVERRUN .* 



Gl *. 




.* ♦ . 




.* IDLOC * 


. YES 


*. SPECIFIED 


.*.... 


*. IN DTF .* 




*. .♦ 




♦ . .♦ 


X 


*NO 


**** 




* 




* 2 




* 


x. 




X 




*****H1 ********** 


* MOVE 


* 


* ERROR CODES 


* 


* TO USER 


* 


* ERROR STATUS 


* 


* INDICATOR 
*************** 


* 
** 


X 




***** 




*NF * 




* D5* 





**H2******* 
* SET * 

* INCORRECT * 
LENGTH BIT IN 

* USERS ERROR * 
♦STATUS IND * 

*********** 



*****E3********** 

* GET * 
X* LOCATION OF * 

* SEEKADR+3 * 

* * 
***************** 



END 

OF 

VOLUME 



*****E4 ********** 

* * 

* GET * 

* ADDRESS OF * 

* IDLOC * 

* * 
***************** 



IJIEOV 

**G3******* 

* SET END * 
* OF VOLUME * 

* BIT IN USER'S 
♦ERROR STATUS ♦ 

* INDICATOR * 
*********** 



*****H3********** 

* MOVE ID * 

* OF CURRENT * 

* RECORD TO *X 

* IDLOC * 

* * 
***************** 



YES .♦ UNDEFINED *. 
...... RECORDS AND .* 

*. SRChM .♦ 



**** 

* * 

* 2 * 

* * 
**** 

IJIDUMY X 

*****F 5*** ******* 

* PLACE * 

* DUMMY * 

* RECORD IN * 

* IDLOC * 

* #03 * 
***************** 



IJIRTER 

*****G5********** 

* MOVE ERROR * 

* BYTES TO * 

* USER'S ERROR ♦ 

* STATUS * 

* INDICATOR * 
***************** 



IFRM 


.♦. 




J2 




* 


.♦ 


END 


*. 


OF 


*. 


FILE 



IJIYID 

.* 
♦ . 
* 


.♦. 
J4 *. 

* *. 
END * 
OF 

CYLINDER .* 

♦ . .* 

♦ . .* 
* 


YES 
* 


♦UPDATE SEEKADR ♦ 

♦ TO NEXT CYL. ♦ 
..X^ AMD INSERT * 

♦ NEW ADDRESS * 

♦ IN IDLOC ♦ 
***************** 




X 

***** 
♦NF * 







* 1 * 

<< * 

**** 
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Chart NE. DAMOD: WAITF Macro (Section 2 of 4) 



*****ci ********** 



******** ********* 



***D1 ********** 



***************** 



*SVC READ * * 

* COUNT OF * * 
*EQF RECORD * * 

* * * 
**************** 



***************** 



**G2******* 



*********** 



*********** 



***** 

*ND * 

* B4* 

* * 
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Chart NF. DAMOD: WAITF Macro (Section 3 of 4) 



RELTRK = 

BLANK 

*B2 





* RELATIVE 


*. 


YES 


* 


ADDRESSING 








♦.SPEC. IN 


* 






*. DTF .* 








*. .* 




X 




*N0 




***** 
*NG * 
* Bl* 



*B2 
CAMOD MACRO PARAMETER 
OPTION - DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



ND-A4,B4 
NG-D5.E4 
***** 
*** * 



Dl *. 

.* * 

END 

CF 

. VOLUME 

*. .* 

*. .* 

*YES 



***** 
*ND * 
* F5* 



IJIJCK 

*****E2********** 

* MOVE ERROR * 

* BYTES TO USER * 

* ERROR STATUS * 

* INDICATOR * 

* * 
***************** 



*****F2********** 

* SAVE SETTINGS * 
*FOR WLR AND NO * 
*ROOM FOUND, AND* 

* ALL BITS IN * 

* SECOND BYTE * 
********** ******* 



.*. 



G2 

.* UNDEF *. 

RECORDS 

SPECIFIED 

. IN DTF .■■ 



RECFORM *. NO 
= UNDEF .*... 
*B2 .* 



RECORD 

LENGTH GT 

. MAXIMUM . 



** 04 ******* 

* SET WLR * 

* BIT IN DTF 
* MSGR/STATUS 

* BYTE 

* * 
*********** 



**** 

* * 

* 3 * 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 



*****C4**** ****** 

* * 

* RESTCRE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****D4**** ****** 

* * 

* RETURN * 

* RECCRD LENGTH * 

* TO USER * 

* * 
***************** 



**£4******* 

* * 

* RESET 

* MACRO SWITCH 

* IN DTF 

* * 
*********** 



NO .* ERRfcXT 
,..*. SPECIFIED 
*. *B2 



***ND-G5tHl 
NK-A4 
***** 
*** * 



**** 

* * 

* 3 * 

* * 
**** 

IJITOM X 

*****D5********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



**G5******* 

* RESET * 
UNRECOV 

I/O 
ERROR 

* INDICATOR * 
*********** 



**j4******* 

*SET UNRECOV* 

*I/0 ERROR BIT* 

* IN USER * 

*ERROR/STATUS * 

* BYTE * 

*********** 



****K4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
******** 
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Chart NG. DAMOD: WAITF Macro (Section 4 of 4) 



***** 

*NF * 
* CI* 



*A3 
IDLOC RECORD IN FORM- 
C1,C2,H1,H2,R 



*****B1 ********** 
♦GET ADDRESS OF * 

* 5-BYTE SAVE * 
♦AREA FOR IDLOC * 

* RECORD IN DTF * 

* TABLE *A3 * 
***************** 



*****C1 ********** 

* GET ADDRESS * 

* OF CCHH SAVE * 

* AREA IN THE * 

* DTF TABLE * 

* * 
***************** 



***** 01 ********** 

* MULTIPLY CI * 

* FROM IDLOC * 

* RCD BY CI * 

* ALTERATION * 

* FACTOR *H3 * 
***************** 



*****£!********** 



***************** 



* 1 * 

* * 
**** 



*#***B2********* 

* MULTIPLY C2 

* FROM IDLOC 

* RCD BY C2 

* ALTERATION 

* FACTOR *H3 
**************** 



*****C2********** 

* ADD RESULT * 

* TO PREVIOUS * 

* RESULT ♦ 

* * 
***************** 



*****D2********** 

* MULTIPLY HI * 

* FROM IDLOC * 

* RCD BY HI * 

* ALTERATION * 

* FACTOR *H3 * 
***************** 



*****E2********** 

* * 

* ADD RESULT ♦ 

* TO PREVIOUS * 

* RESULT * 

***************** 



*****p 2* ********* 



*B3 
DAMOD MACRO PARAMETER 
OPTION-DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



RELTYPE 

DEC 
*. *B3 . 



*****C4********** 

* INSERT RECORD * 

* NUMBER, R, * 
♦WITH TTT VALUE ♦ 

* TO GET REL. * 

* ADDR, TTTR * 
***************** 



*****C4********** 

* * 

* SAVE TTTR IN * 
*CCHH SAVE AREA * 

* IN DTF TABLE * 

* * 
***************** 



IJIDIC 

*****C 5 ********** 

♦ CONVERT R FROM * 

♦ IDLOC RECORD ♦ 
♦TO DECIMAL AND * 

♦ UNPACK INTO ♦ 

♦ USER'S IDLOC ♦ 
***************** 



*****P5********** 

♦ CONVERT TTT * 

♦ VALUE TO ♦ 

♦ DECIMAL AND ♦ 

♦ UNPACK INTO * 

♦ USER'S IDLOC * 
***** ************ 



NCT X 




*****E4********** 


♦ MOVE TTTR 


* 


* TO USER'S 


* 


♦ IDLCC 


* 


* ADDRESS 


* 


* 


* 


***************** 


!x.... 





***** 
*NF ♦ 
* E2* 



*G1 
SEE CHART NK 
BLOCK G2. 



***************** 



*****G2* ********* 

* ADD ♦ 

* RECONVERSION ♦ 

* FACTOR TO * 

* RESULT (TTT * 

* VALUE) *G1 * 
***************** 



*****H2*« ******** 

♦ INCLUDE R * 

♦ WITH THE TTT * 

♦ VALUE OF THE * 

♦ RELATIVE * 

♦ ADDRESS ♦ 
***************** 



*H3 
ALTERATION FACTOR FOR CI 

2311 - 1 

2314 - 1 

2321 - 1000 
ALTERATION FACTOR FOR C2 

2311 - 10 

2314 - 20 

2321 - 100 
ALTERATION FACTOR FOR HI 

2311 - 1 

2314 - 1 

2321 - 20 
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Chart NH. DAMOD: CNTRL and FREE Macros 



****A2********* 

* ENTRY FROM * 

* CNTRL * 

* MACRO * 
*************** 



STORC * 

USER * 

REGISTERS * 

* 

*************** 



****C2*********** 

IJIOVP NJ 
* _*_*_*_*_*_*_ * 

CONTROL 
* SEEK * 

***************** 



**02******* 

* * 
TURN OFF 

MACRO 
INDICATOR 

* * 
*********** 



* RESTORE 

* USER 

* REGISTERS 
* 
************** 



****F2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****A4********* 

* ENTRY FROM * 

* FREE * 

* MACRO * 
*************** 



IJIFREE 

**B4******* 

* TURN ON * 

* FREE IND 
* (BIT 1) IN 

* DTF BYTE 

* 16 * 
*********** 



* STORE * 

* REGISTERS * 

* 1-8 * 

* * 
***************** 



*****C4 ********** 
*IJI0VP NJ* 
*_*_*_*_*_*_*_#_* 

* FREE * 

* HELD * 

* TRACK * 
***************** 



**E4******* 

* * 
TURN OFF 
FREE IND 

IN DTF 

* * 
*********** 



*****F4********** 



RESTORE 
REGISTERS 



***************** 



****G4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



322 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart. NJ. DAMOD: Seek Overlap Subroutine (Section 1 of 2) 



***** 

*NK * 
* H4* 



****A2********* 

* IJIOVP * 

* * 
*************** 



RELTRK 

= BLANK 

*D3 



C2 *. 
.* REL *. 
* TRACK 

ADDRESSING 
*. USED 
*. *D3 .* 
*. .* 
*N0 



ENTRY 
FROM FREE 
. MACRO . 



***** 
*NK * 
* Al* 



*****C4**** ****** 



***************** 
**** 



****C5*********** 
SVC 35 
* SEEK * 
AND 
* . HOLD * 

***************** 



IJIOV2 

*****02********** 

* CALCULATE * 

* ADDRESS QF * 

* CCW CHAIN * 

* BUILD AREA * 

* * 
***************** 



*****£ 2* ********* 

* * 

* OBTAIN * 

* SEEKADR FROM * 

* SEEK CCW * 

* * 
***************** 



*****P2********** 

* DETERMINE * 

* SYMBOLIC UNIT * 

* ADDRESS AND * 

* STORE IN CCB * 

* * 
***************** 



*D3 
CHART CONTAINS 
THE ROUTINE 
USED TO CONVERT 
THE RELATIVE 
ADDRESS TO AN 
ACTUAL DASD 
ADDRESS. 



**** 
IJILOAD X 

*****C4********** 



***************** 



****E4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



YES .* HOLD 
...*. = BLANK 
*. *D3 



H2 *. 
.* TRACK *. 

HOLD *. YES 
SPECIFIED .*.... 
. IN DTF .* 



.* 



* ENTRY 

FROM CNTRL 
*. MACRO . 



*********** 
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Chart NK, DAMOD: Seek Overlap Subroutine (Section 2 of 2) 



***** 

*NJ * 
* C2* 



**** 

* * 

* 2 * 

* * 
**** 



*****A1 ********** 

* GET * 

* USER'S SEEK * 

* ADDRESS FROM * 

* DTF TABLE * 

* * 
***************** 



IJINCD 

*****d ********** 

* ALIGN REL * 

* AODR TTT * 

* VALUE TO * 

* FULLWORD * 

* * 
***************** 



*****Di ********** 

* INSERT REL * 

* ADDR R VALUE * 

* INTO SEEK * 

* ADDRESS IN * 

* DTF TABLE * 
***************** 



*****£! ********** 

* * 

* SAVE USER * 

* TTT VALUE * 

* IN REGISTER * 

* * 
***************** 



IJICMC X 

*****P1 ********** 

* LOAD REG * 

* WITH ADDRESS * 

* OF DSKXTNT * 

* TABLE -8 * 

* * 
***************** 



IJILBK 

*****G1 ********** 

* SAVE USER * 

* TTT VALUE * 

* IN * 

* REGISTER 11 * 

* * 
***************** 



*****H1 ********** 
♦SAVE CUMULATIVE* 

* TRACK TOTAL * 

* (TTT2) OF * 
♦PREVIOUS ENTRY * 
*IN DSKXTNT TBL * 
***************** 



***** j 1 ********** 
*ADD TTT2 VALUE * 

* OF PREVIOUS * 

* DSKXTNT ENTRY * 

* TO USERS TTT * 

* VALUE * 
***************** 



*****Kl ********** 
♦UPDATE DSKXTNT * 

* AODR TO POINT * 

* TO CURRENT * 

* TABLE ENTRY * 

* -0 BYTES * 
***************** 



*****B 2* ******** 

♦ CONVERT FIRST 
♦8 BYTES OF REL 

.X+ADDR (TRK NO.) 

♦ TO HEX FORM 

♦ TTT (3 BYTES) 
**************** 



*****C2*****^**** 

* * 

* SAVE USER * 

* TTT VALUE * 

* IN REGISTER * 

* * 
***************** 



*****Q2********** 

* CONVERT LAST * 
*2 BYTES OF REL * 
*ADDR (RCD NO.) ♦ 

* TO HEX FORM * 

* R (1 BYTE) * 
***************** 



*****£ 2* ********* 

* STORE * 

* R VALUE IN * 

* SEEK ADDRESS * 

* IN DTF TABLE * 

* * 
***************** 



.♦END OF ♦ 
DSKXTNT 
TABLE 
. REACHED 



*****Q3********* 

♦GLT TTT2 VALUL 

* OF CURRENT 

* ENTRY IN 

* THE DSKXTNT 
TABLE 



**/\4******* 

♦ SET IND * 
FOR EXTENT 

NCT FOUND 
IN DSKXTNT 

♦ TABLE ♦ 
*********** 



******# 



***** 



♦ G2 
RECONVERSION FACTOR = 
CUMULATIVE TRACK 
TOTAL OF PREVIOUS 
EXTENT (TTT2) MINUS 
NUMBER OF TRACKS TO 
LOWER LIMIT OF 
CURRENT EXTENT (TTT1). 



♦ H2 
USER'S TTT VALUE, 
SAVED IN BLOCK Gl, 
IS ADDED TO THE 
LOWER LIMIT OF 
CURRENT EXTENT. 



*****C3********** 

* SUBTRACT TTT2 * 

* OF CURRENT ♦ 

* DSKXTNT ENTRY * 

* FROM USER'S * 

* UPDATLD TTT * 
***************** 



RESULT 

NEGATIVE 

♦ C4 



*****£ 3********** 
♦STORE M AND B2 ♦ 

♦ VALUES FROM ♦ 
♦CURRENT DSKXTNT^ 

♦ ENTRY IN SEEK * 

♦ ADDRESS *D4 * 
***************** 



*****F3********** 
♦GET LOWER LIMIT* 

* (TTT1) OF THE ♦ 
♦CURRENT DSKXTNT* 

* TABLE EXTENT * 

* ENTRY * 
***************** 



*****G3********** 

* CALCULATE * 

* AND SAVE * 

* RECONVERSION ♦ 

* FACTOR * 

* *G2 ♦ 
***************** 



*****H3********** 

* ADD USER'S * 

* ORIGINAL TTT * 

* VALUE TO TTT1 * 

* TO GET TTT OF * 

* RECORD *H2 * 
***************** 



*C4 
NEGATIVE RESULT 
INDICATES THAT 
USER'S ITT VALUE 
FALLS WITHIN THE 
CURRENT DSKXTNT 
EXTENT ENTRY. 



SCEK ADDRESS = 
M,Bl»B2»Clf 
C2,H1,H2,R 



CI ALTERATION FACTOR 
1 FOR 2311 
1 FOR 2314 
1000 FOR 2321 



*F4 
C2 ALTERATION FACTOR 
10 FOR 2311 
20 FOR 2314 
100 FOR 2321 



**** 

* * 

* 3 * 

* * 
**** 



*****B5********** 

♦ DIVIDE RECORD * 

♦ TTT VALUE ♦ 

♦ (DIVIDEND) BY ♦ 

♦ CI ALTERATION ♦ 

♦ FACTOR *E4 * 
***************** 



*****C5********** 
*STORE QUOTIENT * 

♦ (HIGH ORDER ♦ 

♦ REG) IN CI OF * 

♦ SEEK ADDRESS * 

♦ (ACTUAL) ♦ 
***************** 



*****D 5 ********** 

♦ RESTORE * 
♦REMAINDER (LOW * 

♦ ORDER REG) AS * 

* NEW DIVIDEND * 

* * 
***************** 



.X 

IJIDV2 X 

***** [=5********** 

* DIVIDE * 

* DIVIDEND BY ♦ 

* C2 ALTERATION ♦ 

* FACTOR * 

* *F4 * 
***************** 



***** P5********** 
♦STORE QUOTIENT ♦ 

* (HIGH ORDER ♦ 

* REG) IN C2 OF * 

* SEEK ADDRESS ♦ 

* (ACTUAL) ♦ 
***************** 



YES .♦ HI 

...... ALTERATION 

♦.FACTOR = . 
* . 1 .* 



IJIDV3 

*****H4 ********** 

♦ STORE * 
♦REMAINDER (LOW ♦ 

♦ ORDER REG) AS ♦ 

♦ M2 IN SEEK ♦ 

♦ ADDR (ACTUAL) ♦ 
***************** 



HI ALTERATION FACTOR 

1 FOR 2311 

1 FOR 2314 

20 FOR 2321 



*****H5********** 

♦ RESTORE ♦ 
♦REMAINDER (LOW ♦ 

♦ ORDER REG) AS ♦ 

♦ NEW DIVIDEND ♦ 

***************** 



***** j 5********** 

♦ DIVIDE ♦ 

♦ DIVIDEND BY ♦ 

♦ HI ALTERATION * 

♦ FACTOR ♦ 

♦ *K4 ♦ 
***************** 



****** 5***^+^^+ 
♦STORE QUOTIENT * 

♦ (HIGH ORDER ♦ 

* REG) IN HI OF * 

♦ SEEK ADDRESS ♦ 

* (ACTUAL) * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 
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****A1 ********* 

* * 
♦IJIBLD/IJISBLD * 

* * 
*************** 

**** 



**** 
D X 
*****Bi ********** 

♦UPDATE POINTERS* 

* TQ NEXT CCW * 

* STRING NUMBER * 
*AND BUILD AREA * 

* * 
***************** 



*****d ********** 

* ISOLATE * 
♦RELATIVE PTR TO* 

* BASIC CCU * 

* NEEDED * 

* * 
***************** 



*B2 
IF OP CODE IS 
TO BE CHANGED, 
THIS OPERATION 
ALTERS THE OP 
CODE. OTHERWISE, 
THE CODE IS 
RESTORED AFTER 
THE MULTITRACK 
BIT IS SET ON. 



NOTE—THIS SUBROUTINE IS USED 

IN BOTH DAMOD AND DAMODV. 
THE LABELS SHOWN ON THIS 
FLOWCHART ARE PRECEDED BY 
ONE OF THE PREFIXES— 
DAMOD- IJ I 
**** DAMODV-IJIS 

* * 

* 3 * 



*****B3********** 

* * 

* ALTER OR * 
♦RESTORE COMMAND* 

* CODE *B2 * 

* * 

**********: 



*****C3********** 
*ALTER FLAGS IN * 

* CCW WITS BITS * 
♦FROM CCW STRING* 

* NUMBER * 

* * 
***************** 



*****D2********** 

. YES * STORE CCW * 
.* X*ADDRESS IN TIC ♦ 

♦ CCW ♦ 

* * 

***************** 



*****£!********** 

* * 
♦MOVE BASIC CCW ♦ 

* TO BUILDING ♦ 

* AREA ♦ 

* * 
***************** 



*****£ 2********** 

* * 

* INSERT TIC * 
♦COMMAND CODE IN+ 

* TIC CCW * 

* * 
***************** 



****f-3«******** 



*************** 



♦ BASIC 


*. NO 


CCW TO Be 


.♦.. .. 


♦.MODIFIED 


* 


♦ . .♦ 




♦ . -* 


X 


♦YES 


**** 




* 


. 


♦ 1 




* 




**** 


X 




.♦. 




Gl ♦. 




.♦ ONLY * 




♦FLAG FIELD 


*. YES 


TO BE 


.*.... 


♦.MODIFIED 


* . 



OP CODE 

TC BE 
CHANGED 



*****jl ********** 

* * 
*SET MULTITRACK ♦ 

* BIT ON ♦ 

* * 

* * 
***************** 

X 
**** 

* * 

* 2 * 

* ♦ 
**** 
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* i * 

* * 
**** 



****U1********* 

* ENTRY FROM * 

* WRITE RZERO * 

* MACRO * 
*************** 



****C1 ********* 

* ENTRY FROM * 
*WRITE KEY MACRO* 

* * 
*************** 



****D1 ********* 

* ENTRY FROM * 
♦WRITE ID MACRO * 

* * 
*************** 



»***(-! ********* 
*ENTRY FROM READ* 

* KEY MACRO * 

* * 
************#** 



****P1********* 
♦ENTRY FROM READ* 

* ID MACRO * 

* * 
*************** 



****A2********* 

* ENTRY FROM * 

* WRITE AFTER * 

* MACRO * 
*************** 



**B2******* 

* MODIFY * 
*MACRO SWITCH * 

* FOR WRITE * 
* AFTER MACRO * 

* *Jl * 



DAMODV MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPLAR IN 
AN ASSEMBLY LISTING 



**C2******* 

* MODIFY * 
♦MACRO SWITCH 

* FOR WRITE 
* RZERO MACRO : 

* *J1 * 
*********** 



**D2******* 
MODIFY MACRO* 

* SWITCH FOR * 
♦WRITE KEY MACRO* 

* *J 1 * 



**E2******* 

* MODIFY * 
♦MACRO SWITCH * 

* FOR WRITE ♦ 
* ID MACRO ♦ 

* *Jl * 
*********** 



**F2******* 

♦ MODIFY * 
♦MACRO SWITCH ♦ 

♦ FOR READ ♦ 
♦ KEY MACRO * 

* *J 1 * 
*********** 



***************** 



IJISSTO 

*****H2********** 

♦ STORE USER'S * 

♦ REGISTERS IN ♦ 

♦ SAVE AREA ♦ , 

♦ SPECIFIED BY * 

♦ USER'S REG «3 ♦ 
***************** 



♦Jl 




THE .... 




RESULTING 




MACRO SWITCH 




FOR EACH MACRO- 




WRITE AFTER = X 


Oh 


WRITE RZERO = X 


04 


WRITE KEY = X 


OH 


WRITE ID = X 


0/ 


READ KEY = X 


01 


READ ID = X 


00 



. *. 

D't *. 
.* *. 
* 

READ MACRO 
*. 

*. .* 
*. .* 
♦ NO 



IJIWRT 

*****E4********** 

* INITIALIZE * 

* BASIC ROD CCW * 
♦BYTE COUNT WITH* 
♦SEG LENGTH (RR)* 

* FROM I/O AREA * 
***************** 



F4 *. 

.♦IS SEG *. 
.* TO BE 
. WRITTEN A 
*.NULL SEG 



JJISSEDF X 

*****C5********** 
* SET RECORD ♦ 
♦LENGTH REGISTER* 
♦CONTENTS = ZERO* 



***************** 



***** 05********** 
*SET BYTE COUNT * 

* IN BASIC RDD * 
.X* CCW EQUAL TO *. 

* BLKSIZE * 

* * 
***** ************ 



***** 
*NN * 
* F2* 



.* 



.* IS *. 
* RECORD *, 

BLOCK SIZE> 
*. BLKSIZE .* 



.X* 



***** 
*NN * 
* A3* 



*****G5********** 

* SET RECORD * 
*BLOCKSIZE (LL) * 

EQUAL TO * 

* BLKSIZE * 

* * 
***************** 



**H5******* 



*********** 



RESET ERROR 

BYTE IN DTF 

TABLE 

* * 

*********** 



* 1 * 

* * 
**** 



*********** 



*****J4********** 

* INITIALIZE * 

* BASIC RCDCCW * 

* BYTE COUNT W ITFI* 

* RECORD * 
♦BLOCKSIZE (LL) ♦ 
***************** 



*****K4 ********** 

♦ ZERO BYTES 2 * 
*AND 3 OF BLOCK * 

* AND SEG ♦ 

* DESCRIPTOR ♦ 

♦ WORCS ♦ 
***************** 
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Chart NN. DAMODV: Input/Output Macros (Section 2 of 11) 



***** 

*NM * 
* K4* 



*****d ********** 

* INSERT RECORD * 
♦BLOCK SIZE ILL)* 

* IN BLOCK * 

* DESCRIPTOR * 

* WCRD * 
***************** 



INDICATOR 
SET 



*****E1 ********** 
♦SUBTRACT 4 FROM* 

* RECORD * 

* BLQCKSIZE AND * 

* STORE IN SEG * 

* DESCRIPTOR * 
***************** 



*A2 
DAMODV MACRO 
PARAMETER OPTION- 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



.*. 
Bl *. 

*. 
VARUNB *. NO 
RECORDS ...... 


IJISWSB .♦. 
B2 * 

.** WRITE 
....X*. AFTER 


.* 
.* 
*. .* 
*YES 


*. 
*. 

*. .* 
*YE 



***** 
*NM * 
* H3* 



*****A3********** 

* SET BLOCK * 
♦LENGTH (LL)TO 8* 

* BYTES FOR * 

* CONTROL WORDS * 

* * 
***************** 



*****g 3*** ******* 

* SET BASIC ROD * 
*CCW BYTE COUNT * 

.X*TO 8 BYTES FOR * 

* CONTROL UORDS * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*NP-J2 
NU-H1 
NU-K4,K5 



****C4** ******** 

SVC 

* EXECUTE * 

CHANNEL PROGRAM 

(READ) * 

*************** 



*****D3********** 



A**************** 



IJISDOM 

****C5*********** 
SVC 
* EXECUTE * 
CHANNEL 
* PROGRAM * 

***************** 



D5 *. 

.* *. 

.* *. Y 

.HOLD = BLANK .♦. 

*. .* 

* . .* 

*. .* 



*****F2********** 

* USING MACRO * 

* SWITCH VALUE * 
*GET ADDRESS OF * 

* CCW STRING * 

* * 
***************** 



*****G2********** 
♦IJISOVP PD* 
*-*_*_*_*_*_*_*_* 

* CONTROL SEEK * 



***************** 



*****H2********** 
♦IJISBLD NL* 
*_*_*_*_*_*_*_*_* 

*BUILD CCW CHAIN* 

* * 

* * 
***************** 



*NM-A5,C5,D5 



RECORD *. 
FOUND 
.CGNDITION.* 



*NO 



.*TRACK HOLD ♦ . NO 
. INDICATOR .*..X 
*. SET, .* 



F5 



G4 *. 

* \ 

SRCHM 



K2 *. 
.♦ WRITE *. 
NO .* AFTER OR *. 
...*. WRITE RZERO .* 



X 

***** 
*NT * 
* F3* 

* * 



IJINRF 

IJISRFD X 

*****j4 ********** 

* SET BASIC RDD * 
*CCW BYTE COUNT * 
*= LENGTH OF SEG* 

* (LL) +4 * 

* * 
***************** 



X 

***** 
*NP * 
* A2* 



*. 



*. NO 
WRITE MACRO .*..X 
.* 
.* 
.* 
♦YES 



*****G5********** 



***************** 



*YES 

'. IJISAFT 

X 
***** 
*NA * 
* A 2* 
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Chart NP. DAMODV: Input/Output Macros (Section 3 of 11) 



**** 
* * 

* 2 * 

* * 
**** 



*A1 
00-SINGLE SEGMENT 
01-FIRST SEGMENT 
02-LAST SEGMENT 
03-NEITHER FIRST 

NOR LAST SEGMENT 



**A2******* 

* * 
SET HOLD 

IGNORE 
SWITCH 

* * 
*********** 



*****02********* 

* LOAO SCGMENT 
♦LENGTH (LL) OP 

* SEGMENT JUST 

* READ INTO RCD 

* LENGTH REG 
**************** 



.*X *. READ MACRO 



X...* 


SEGMENT TYPE .*.. 




...*. DASD A NULL 




*. *A1 .* 




*. SEGMENT . 




*. .* 




* . .* 


X 


*. .* 




*. .* 


***** 


*01 




*N0 


*NT * 


* 




" 


* Gl* 








* * 








* 








IJISWND X 




X 




.*. 




.*. 




El *. 




10 OR E2 *. 




.* IS *. 




11 .* DASD *. 


YES 


* LENGTH OF *. 




.* SEGMENT 


...* 


SEG JUST READ.* 


X...*. TYPE *A1 




*.BLKSIZE .* 


*. 




*. -4 . * 


. *. .* 


X 


*. .* 


X *. .* 


***** 


*NO 


***** *00 OR 


*NT * 




*NT * .01 


* CI* 




* Bl* 


* * 


X 


* * 


* 


**** 


* 


IJIWLR 


* * 


K 


ISERT 



C4 

* 

SRCHM 



IJISNL 

*****D4********** 

♦SUBTRACT 8 FROM* 
*CCW BUILD AREA * 

* ADDR FOR RDID * 

* CCW * 

* • * 
***************** 



IJISTK X 

*****54********** 

* STORE * 
♦READ/WRITE DATA* 
*CCW ADDRESS IN * 
*SPNUNB WORKAREA* 

* * 
***************** 



*****P2********** 
♦INITIALIZE CCW * 

* BUILD AREA * 

* POINTER WITH * 

* STARTING ADDR * 

* - 32 BYTES * 
***************** 



***#* H 1 ********** 
*ADD 16 TO ADDR * 

* OF CCW BUILD * 
.X*AREA POINTER TO* 

* RETAIN FIRST * 

* TWO CCW *J1 * 
***************** 



*****H2** ******** 
*UISBLD 19* 
*_*_*-*-*-*_*_*_* 

* BUILD WRITE * 

* CCW STRING * 

* * 
***************** 



F3 *. 
.* *. 
* *. 

READ MACRO .*X. 



***** 

*NR * 

* A2* 

* * 



.* IS *. 
KEYLENGTH *. 
ZERO 



IJISSF 

**H3******* 

* SET TEMP * 
* SWITCH IN 

* SPNUNB AREA 
*0F DTF TABLE 

* *F3 * 
*********** 





J2 *. 


J3 *. 


*J1 


.* DASD *. 


.♦VERIFY *. 


SRCHHAE AND 


01 .* SEGMENT *. 


NO .* OPTION *. 


TIC CCW'S FROM 


...*. TYPE *A1 .* 


...*. SPECIFIED .* 


READ CHAIN 


*. .* 


*. .* 




*. .* 


*. .* 




X *. .* 


X *. .* 




**** *oo 


***** *YES 




* * 


*NQ * 




* 2 * 


* E2* 




* * x 


* * 




**** ***** 


* 




*NN * 


IJISWC 




* CD* 


X 




* * 


*****K3********** 




* 


* MOVE ADDR OF * 




IJISDOM 


* RDD (VERIFY) * 

* CCW TO SECOND * 

* ADDR LOC IN * 
*SPNONB WORKAREA* 
***************** 

X 

***** 
*NQ * 
* A2* 



*****j4********** 



*************** 



***** 
*NS * 
* Al* 
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Chart NQ. DAMODV: Input/Output Macros (Section 4 of 11) 



***** 

*,MP * 
* K3* 



*A1 
TEMPORARY 
SWITCH IS SET 
FOR WRITE ID 
AT CHART LOCATION 
3-H3 



*#***H1 ********** 

* * 
♦MOVE BLKSIZE TO* 

* RDD (VERIFY) *X 
*CCW BYTE COUNT * 

* * 
***************** 



A2 


* 








IS 


* 




*TEMP 


sw 


IN 




DIF 1 


ABLE 


st- r 


*. 


*A1 




* 



*****B 2* ********* 
*SUBTRACT 8 FROM* 
*CCW BUILD AREA * 

* POINTER TO * 
♦BYPASS RDKD CCW* 

* - * 
***************** 



IJISVT1 

*****C2********** 

* SUBTRACT 24 * 
♦FROM CCW BUILD * 
*AREA POINTER TO* 
*GET ADDR OF WRD* 

* CCW ♦ 
***************** 



*****D2********** 

* STORE ADDR OF * 

* WRD CCW IN * 
*FIRST ADDR LOC * 

* IN SPNUNB * 

* WORKAREA * 
***************** 

**** 

* * 
*NP * 

* J 3* 
**** 

IJISWC X 

**E2******* 
*RESET TEMP * 

* SWITCH IN * 
♦SPMUNB AREA OF 

* DTF TABLE * 
* * 

*********** 



F2 *. 
.* SEG *. 
* LENGTH ON 
DASD > RCD 
*. LL 

*. .* 
*. .* 



**G2******* 
♦MOVE LENGTH* 

* OF RCD (LL) * 
TO BE WRITTEN 

* TO WRD CCW * 
♦BYTE COUNT * 

*********** 



*B3 
DAMODV MACRO 
PARAMETER OPTION- 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING 



* A3^ 
**** 

IJISVW X 

****B4** ********* 
SVC 

♦ EXECUTE * 
CHANNEL 

♦ PROGRAM ♦ 
(WRITE) 
***************** 



*B5 
OO-SINGLE SEGMENT 
01-FIRST SEGMENT 
10-LAST SEGMENT 
11-NEITHER FIRST 
NOR LAST SEGMENT 



*****C3********** 

* * * * 

* * * * 
...* *SVC 7 WAIT * *X. 

* * * * 

* * * * 
***************** 



.*. 



.* VERIFY *. 

OPTION 

♦.SPECIFIED.* 



C4 

.* *. 

.* ♦. 

.♦.I/O COMPLETE .♦ 

*. .* 

*. .* 

'♦YES 



.♦ SEGMENT ♦ 
.♦.TYPE WRITTEN 
♦. ^85 .♦ 



***** 

*NT ♦ 

* B2* 

* * 



F4 *. 
.* TRACK *. 
NO .*H0LD OPTION*. 
I..*. SPECIFIED . 



*****C4********** 

*IJISSVCF PE-H3* 
*_*_*_*_*_*_*_*_* 

* FREE TRACK ♦ 



**************** 



* SAVE SEGMENT ♦ 
.X^CONTROL FLAG IN* 

* I/O AREA * 

* * 
***************** 



♦ RESTORE BLOCK ♦ 

♦ AND SEGMENT * 

♦ DESCRIPTER ♦ 

♦ WORDS ♦ 
***************** 



F5 ♦. 
.* ♦. 
♦ SEGMENT 

TYPE = 10 
*. *B5 



***** 
*NS ♦ 
* Al* 



SEGMENT 


* 


. NO 


LENGTH = 




.♦.. .. 


BLKSIZE 


.♦ 




* . .* 






*. .* 




X 


♦ YES 




***** 






*NT ♦ 
♦ CI* 


X 




* * 


***** 




* 


♦ NT ♦ 




IJIWLR 


* Dl* 






* * 






* 






IJISWLL 







*YES 



***** 
*NR * 
* Al* 
* * X 

* ***** 
IJISKID *NR * 
* A2 * 
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Chart NR. DAMODV: Input/Output Macros (Section 5 of 11) 



***** 


***** 


*NQ * 


*NQ * 


* H4* 


* H4* 


* * 


* * 


* 
X 


* 


IJISKID .*. 


IJISKS X 


Al *. 


*****A2********** 


. * *. 


*INITIALIZE CCW * 


YES .* KEYLENGTH *. 


* BUILD AREA * 


...*. = ZERO .* 


* POINTER WITH * 




* STARTING * 


♦ . . * 


* ADDRESS - 32 * 


*. .* 


***************** 



*****B1 ********** 



***************** 



NO .♦ VERIFY 
X..*. OPTION 

♦.SPECIFIED. 



*****D1 ********** 



***************** 



* 1 



**** 
IJISKS1 X 

*****q 2* ********* 

* MOVL SRCHIDE * 

* CCW TU SECOND * 

* CCW IN BUILD * 

* ARL-A *[)3 * 

* * 
***************** 



*****C 2* ********* 

* * 

* MOVE TIC*-8 CCU* 
*TO THIRD CCW IN* 

* BUILD ARLA * 

* * 
***************** 



*****D2* ********* 

* # 
♦MOVE RDD CCW TO* 

* FOURTH CCW IN * 

* BUILD ARLA * 

* * 
***************** 



*U3 
IF VERIFY IS 
SPCCIFIED,I JISKS1 
IS ENTERED A SECOND 
TIME TO SET UP THE 
VERIFY CCW'S FOR 
A WRITE KEY MACRO 



*****A4**** ****** 

* MODIFY RDIC * 

* COMMAND CODE * 

* FOR MULTIPLE * 

* TRACK (X«92' ) * 

* * 
***************** 



*****B/ f ********** 

* * 

* ADD TO CCW * 

* BUILD AREA * 

* POINTER * 

* * 
***************** 



* RESET FLAG 
BYTE IN LAST 

♦ CCW TO X'20' 

* (SLI) * 
*********** 



**Q4******* 

* RESET * 
♦TEMPORARY SW * 

♦IN SPNUNB AREA 
*IN DTF TAELE * 

* * 
*********** 



**B5******* 

* RESET * 

* VERIFY RDD * 

CCW FLAG BYTE 



IJISKI1 

*****G1 ********** 

* STORE ADDR OF * 
*VERIFY RDD CCk! * 
*IN SPNUNB AREA *X. 

* IN DTF TABLE * 

* * 
***************** 



*****H1 ********** 

* * 
♦RESTORE POINTER* 

* TO FIRST RDD * 

* CCW * 

* * 
***************** 



**J1******* 

* * 

• ♦SET SKIP AND ♦ 

♦ CC BITS IN * 

♦ VERIFY RDD * 

♦ CCW ♦ 
*********** 



**** 

* * 

* 2 * 



VERIFY 

OPTION 

.SPECIFIED. 



.* TEMP SW * 
.IN DTF TABLE 
*. SET .* 



**H2******* 

* SET * 

* TEMPORARY * 
♦ SWITCH IN * 

* SPNUNB AREA * 

* IN DTF * 
*********** 



*****J2********** 

* ADD 24 TO CCW * 

* BUILD AREA * 

* POINTER FOR * 

* VERIFY CCWS * 

***************** 



*****K2********** 



***************** 



*********** 



* 2 



**** 
IJISKI X 

*****G3********** 

* STORE ADDR OF * 

* READ DATA CCW ♦ 
*IN SPNUNB AREA ♦ 

* OF DTF TABLE * 

* * 
***************** 



***** E5********** 

♦ MOVE IDLOC ♦ 

♦ CCHHR FROM ♦ 
.X* FILENAME.! TO * 

♦ FILENAME. S IN ♦ 

♦ DTF TABLE * 
***************** 



***** 
*NS * 
* Al* 



*****K3********** 

* MOVE RDID CCW * 

* TO NEXT * 
♦POSITION IN CCW* 

* BUILD AREA * 

* * 
***************** 



* 1 # 

* * 
**** 
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Chart NS. DAMODV: Input/Output Macros (Section 6 of 11) 





**A1 
GET 

GET 

SE 




* 


**** 

1 * 
**** 


IJISVK 
*** 

CHA 


• 


I JISGS 
*** 
*IJ 

*-* 

* 

* 


X * 
********** 

PC* 

-*_*_*_*_* 

NEXT * 
EKAOR * 


X 

*A2*********** 
SVC 

EXECUTE * 
NNEL PROGRAM 

(READ) * 



***************** 



*****B1 ********** 

* GET I/O AREA * 
♦ADDRESS OF NEXT* 

* SEGMENT -3 * 

* BYTES FOR * 

* CONTROL WORDS * 
***************** 



*****d ********** 

* SAVE LAST 8 * 

* DATA BYTES OF * 
♦PREVIOUS SEG IN* 
*SPNUNB AREA IN * 

* DTF TABLE * 
***************** 



*****D1 ********** 
♦INITIALIZE CCW * 

* BUILD AREA * 

* POINTER TO * 

* POINT TO RDD * 

* CCW * 
***************** 



*****E1 ********** 

* MOVE SEGMENT * 
. * I/O AREA * 

* ADDRESS INTO * 
*DATA ADDRESS OF* 

* RDD CCW * 
***************** 



*****Gl ********** 

* SAVE RDD CCW * 

* FLAG BYTE IN * 
*SPNUNB AREA OF * 

* DTF TABLE * 

* * 
***************** 



**H1******* 

*SET RDD CCW* 

*FLAG TO X'OO'* 

♦AND BYTE COUNT 

* TO 8 * 

* * 

*********** 



*****«!********** 

* UPDATE DATA * 

* ADDRESS IN * 
♦VERIFY RDD CCW * 

♦ FOR NEXT * 

♦ SEGMENT * 
***************** 



X. 

X 

**** 

* * 

* 2 * 

* * 

**** 



***************** 



♦ A3 
ND-J4 T J5 
N0-F5 

NR-Al,Cl,Dl f 
E4,E5 



*****B3********** 



.X* *SVC 7 WAIT * 



TO BE WRITTEN 
IS THE LAST 
(TYPE 10) FOR 
THIS RECORD 



.* SEGMENT *. YES 
*. READ A NULL .*... 
*. SEGMENT .♦ 



SEGMENT 
TYPE JUST 

.READ *C3 . 



***** 

♦ NT ♦ 

♦ B2* 



*****E2********** 
♦ADD DATA LENGTH* 
♦OF THIS SEG TO ♦ 

♦ LENGTH OF ♦ 

♦ PREVIOUS ♦ 

♦ SEGMENTS ♦ 
***************** 



OO-SINGLE SEGMENT 
01-FIRST SEGMENT 
10-LAST SEGMENT 
11-NEITHER FIRST 
NOR LAST SEGMENT 



IJISVR1 

*****F3********** 

* SAVE SEGMENT * 

* CONTROL FLAG ♦ 
...X*FOR THIS SEG IN* 

* SEGMENT * 
*DESCRIPTOR WORD* 
***************** 



IJISTDL .♦. 

A5 *. 

.COMBINED^. 

.♦SEG LENGTHS*. 

*. AVAILABLE 

*. BLKSIZE^.* 

*. *A4 .♦ 

♦ . .* 

*YES 



*****B5********** 

* ADD SEGMENT * 

* LENGTH TO ♦ 

* BLKSIZE -8 ♦ 

* (FOR CONTROL ♦ 

* WORD) ♦ 
***************** 



*****C 5 ********** 
*SUBTR COMBINED * 
♦LENGTHS OF THIS* 

* SEG AND * 

* PREVIOUS ♦ 

* SEGMENTS ♦ 
***************** 



.♦IS NEW *. 
NO .* RECORD * 
,..*. SHORTER THAN 
♦.ORIGINAL .♦ 



*****E 5 ********** 

* SET WRD CCW * 

* BYTE COUNT * 
*EQUAL TO LENGTH* 

* OF SEGMENT TO * 

* BE WRITTEN * 
***************** 



*****P4** ******** 
*SET VERIFY RDD * 
*CCW BYTE COUNT * 
♦FOR SEGMENT TO *X. 

* BE WRITTEN * 

* * 
***************** 



IJISTDL1/ 
IJISTDL2 . 
F5 



**G2******* 
*CHANGE RDD * 

* CCW TO WRD 
AND RESTORE 

* FLAG BYTE 

* * 

*********** 



*****H2********** 
*MOVE LENGTH OF * 

* AVAILABLE * 
♦SEGMENT TO WRD ♦ 
♦CCW BYTE COUNT ♦ 

* * 
***************** 



*****G3********** 

* * 
♦RESTORE 8 DATA * 
♦BYTES TO END OF* 

* PREVIOUS * 

* SEGMENT * 
***************** 



H3 *. 

.* TYPE *. 

.*0F SEGMENT *. 

*.JUST READ *E3. 



.* COMBINED *. NO 
.X*SEGMENT LENGTH.*... 
*.<; BLKSIZE.* 



*****K2****^*^^ 
♦MOVE LENGTH OF ♦ 

* AVAILABLF SEG ♦ 

* TO VERIFY ROD ♦ 
♦CCW BYTE COUNT ♦ 

* * 
***************** 



.COMBINED^. 
* SEGMENT *. YES 
LENGTH< .*... 
*. BLKSIZE .* 



*****K3********** 
♦STORE COMBINED * 

* LENGTH - 4 IN * 

* SEGMENT ♦ 
♦DESCRIPTOR WORD* 

* * 
***************** 



*****J4** ******** 

* STORE BLKSIZE * 

* -4 IN SEGMENT * 
♦DESCRIPTOR WORD* 

* * 

* * 
***************** 



***** j 5********** 

♦ SET RDD CCW * 

♦ BYTE COUNT = ♦ 

♦ BLKSIZE+8 MINUS* 

♦ COMBINED ♦ 
♦SEGMENT LENG1H * 
***************** 



Direct Access Charts 331 



Chart NT. DAMODV: Input/Output Macros (Section 7 of 11) 



***** 
*# * 

* C3* 



*NP-D1,D2,C2 



IJISERF X 


IJISING X 


**B1 *** **** 


*****B2** 


* SET NO * 


* RESTORE 


♦RECORD FOUND * 


* BYTE 


* INDICATOR * 


* DATA 


* IN DTF * 


* PRCVI 


* TABLE * 


* SEGM 


** ********* 


********* 



IJIWLR 

**C1******* 

* SET WRONG * 
♦LENGTH RECORD* 

* INDICATOR * 
* IN DTF * 

* TABLE * 
*********** 

**** 



NQ * 

* G5* 

**** 



******** 
LAST * 
S OF * 
TO * 
OUS * 
ENT * 
******** 



*C3 
NP-E1 
NQ-G5 
NS-J4 
NT-G4 



*****E1 ********** 

* * 

* CALCULATE MAX * 

* RECORD LENGTH * 

* (BLKSIZE-4) * 

* * 
***************** 



*****P1 ********** 

* INSERT MAX * 

* RECORD LENGTH * 

* IN SEGMENT * 
♦DESCRIPTOR WORD* 

* IN I/O AREA * 
***************** 



*E2 
NM- J 3 

NN-D5,E5,F5,G5 
NP-C1,D1 
NS-K3 
NW-H4 
NY-E2,E4 

***** 
** * 
* E2* 



IJINRMU X 

*****E4********** 

* RESTORE FULL * 

* RECORD LENGTH * 

* TO SEGMENT * 
♦DESCRIPTOR WORD* 

* IN I/O AREA * 
***************** 



*E5 
NU-B3»J2,J3 
NV-J2 



**F3******* 

* SET .MO 
RECORD FOUND 

* INDICATOR 

* * 

*********** 



**F4******* 

* SET NO ♦ 
ROOM FOUND 

INDICATOR 
IN DTF 

* TABLE * 
*********** 



♦ RESTORE ♦ 

♦ USER * 
♦, REGISTERS ♦ 

♦ * 
***************** 



****H1 ********* 

* RETURN TO * 

* PROBLEM ♦ 

* PRCGRAM * 
*************** 
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Chart NU. DAMODV: Input/Output Macros (Section 8 of 11) 



*A1 
SEEKADR IS 
OBTAINED FROM 
USER'S TRACK 
REFERENCE 
FIELD AND IS 
THE SEEK/SEARCH 
ADDRESS FOR 
RO. 



IJISAFT X 

*****A2********** 
*MOVE CCHH FROM * 

* SEEKADR INTO * 

* FILENAME. F IN * 

* DTF TABLE *A1 * 

* * 
***************** 



*****B2********** 



***************** 



.* WILL *. 
* ENTIRE 

RECORD FIT 
*.ON TRACK . 



NO .♦ 


RECFORM = 


. . .♦. 


SPNUNB *D3 








*. .* 


X 


*. .* 


***** 


*YES 


*NT * 




* F4* 




* * 


X 


* 


***** 


IJISNRM 


*NV * 




* A2* 




* * 




* 




IJINFIT 



IJISZER 

*****Di ********** 
*M0VE CCHHO FROM* 

* FILENAME. F TO * 

* FILENAME. K * 

* IN DTF TABLE * 

* * 
***************** 



*****E1 ********** 

* RE-INITIALIZE * 
♦TRACK CAPACITY * 
*IN RO WORK AREA* 

* (FILENAME. K) * 

* * 
***************** 



*****F1 ********** 

* * 
♦INSERT LOW CORE* 

* ADDRESS IN * 

* SECOND ERASE * 

* CCW * 
***************** 



*****Gi ********** 

* * 

* INSERT LENGTH * 

* OF 8 IN FIRST * 

* ERASE CCW * 

* * 
***************** 



**H1******* 

* * 

* SET CC, SLI * 
♦AND DC FLAGS IN* 

* FIRST ERASE * 

* CCW * 
*********** 



IJIAFRD X 

****D2*********** 
SVC EXECUTE 
♦CHANNEL PROGRAM* 
(READ RZEROJ 



***************** 



*****P2********** 

* ADD KEYLEN TO * 
♦LOGICAL RECORD * 

♦ LENGTH FROM * 

♦ SEGMENT ♦ 

* DESCRIPTOR * 
***************** 



*****G2********** 

* CALCULATE * 
♦NUMBER OF BYTES* 

* REMAINING ON * 

* TRACK * 

* * 
***************** 



H2 ♦. 

.♦RECORD ♦ 

TO BE 

WRITTEN A 

.NULL SEG 



♦ D3 
DAMODV MACRO 
PARAMETER OPTION - 
DECISION DOES NCT 
APPEAR IN AN 
ASSEMBLY LISTING. 



*****£ 3********** 



***************** 



***H3********** 
CALCULATE * 
♦MINIMUM LENGTH * 
SEGMENT * 
(KEYLEN +9) * 
* * 

***************** 



. X* 



**** 

♦ * 
*NV ♦ 

♦ C3* 
**** 

IJISAFIT 

*****B4 ********** 

♦ CALCULATE NO. ♦ 

♦ OF BYTES TO ♦ 

♦ WRITE NEW ♦ 

♦ RECORD *A5 ♦ 

♦ ♦ 
***************** 



*****C4*^** ****** 

♦ SUBT RIC AND * 

♦ BYTES NEEDED ♦ 

♦ FOR RCD FROM ♦ 
♦BYTES REMAINING* 

♦ ON TRACK ♦ 
***************** 



*****D4********** 
♦STORE RESULT IN* 

♦ RO DATA FIELD ♦ 

♦ AS NEW COUNT ♦ 

* FOR RO ♦ 

* * 
***************** 



*****E4********** 

* INITIALIZE * 
*CCW BUILD AREA * 

* POINTER WITH * 

♦ STARTING ADCR ♦ 

♦ -32 BYTES ♦ 
***************** 



*_*_*_*_*_*_*_*_* 

* BUILD WRITE ♦ 

* AFTER CCW * 

* STRING ♦ 
***************** 



*****G4** ******** 
♦INSERT PREVIOUS^ 
♦ID FROM RO INTO* 

* SEEKADR AND ♦ 

* INCREASE RO * 

* DATAID BY 1 * 
***************** 



*****H4********** 
♦MOVE CCHHR FROM+ 
♦RO DATA INTO RO* 

* COUNT FIELD ♦ 

* (FILENAME. CJ ♦ 

* > * 
***************** 



.* WILL * 
. NULL SEG 
FIT ON TRACK* 



J3 *. 
.* WILL *. 
, NO NO .* MINIMUM * 

,* *. SEGMENT FIT. 

*.ON TRACK .* 



***** 
*NT * 
* F4* 



EOF ♦. NO 
INDICATOR .*... 
SET .* 



IJISFIN X 

*****K4 ********** 

♦ MOVE ZEROS TO ♦ 
♦KEY LENGTH AND ♦ 

♦ DATA LENGTH ♦ 

♦ BYTES IN RO ♦ 

♦ COUNT FIELD ♦ 
***************** 

'. IJISDOM 



**** 

NN * 

C5 + 



***** j 5********** 
♦MOVE KEYLEN TO ♦ 
♦KEY LENGTH BYTE^ 
X* IN RO COUNT * 
♦ FIELD * 



***** **** 



******* 



****** 5 ********** 
♦MOVE ULKSIZE TO* 

♦ DATA LENGTH ♦ 

* BYTES IN RO * 

♦ COUNTFIELD ♦ 

* * 
***************** 
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Chart NV. DAMODV: Input/Output Macros (Section 9 of 11) 



**** 

* 2 * 

* * 
**** 



*E1 
NEW VOLUME 
SWITCH IN DTF 
TABLE MAY BE 
SET BY THE 
IJIGET 
SUBROUTINE. 



♦♦***H1 ********** 

* * * * 

* *SVC 7 WAIT * *X. 

* * * * 
+ * * * 
***************** 



IJINFIT X 




.*. 


*****A2******^**« 


***** A3 ********** 


A'» *. 


* SAVE SEEKADR * 


♦CALCULATE TRACK* 


.* IS * 


* AND LL IN * 


* CAPACITY * 


YES .* THIS A 


♦SPNUNB AREA OF * 


*(MAX BYTES/TRK *X.. 


*. NEW VOLUME 


* DTF TABLE * 


*- DEVICE TRACK * 




* * 


* CONSTANT) * 


" *. .* 


***************** 


***************** 


*. .* 



*****B2********** 

* CALCULATE NO. * 
*OF BYTES IN RCD* 
*REMAINING\ TO BE* 

* WRITTEN * 



***** 



*********** 



IJISASRO 

*****C2********** 

* SAVE DATA * 

* PORTION OF RO * 
*IN SPNUNB AREA * 

* OF DTF TABLE * 

* * 
***************** 



* 1 



**** 
IJIANT X 

*****D2********** 
*IJIGET PC* 
*-*_*-*_*_*_*_*_* 

*GET SEEKADR FOR* 

* NEXT TRACK * 

* * 
***************** 



.* IS *. 

.*NEXT TRACK *. 

*.ON NEW VOLUME. 

*. *E1 .*, 



**B3******* 

* RESET NEW * 
♦VOLUME SW IN * 

* SPNUNB AREA * 
*OF DTF TABLE * 

* * 
*********** 



C3 *. 

•*CAN ALL*. 

.* REMAINING * 

.BYTES OF RCD 

*BE WRITTEN.* 



*. 



.* 



***** 
*NU * 
* B4* 



*****P2********** 

* MOVE CCHH FOR * 

* RO OF NEXT * 

* TRACK TO * 

* FILENAME. F * 

* * 
***************** 

**** 

* * 
*NX * 

* F4* 
**** 

UIARD X 

****G 2** ********* 
SVC READ 

* RZERO OF NEXT * 

TRACK 



***************** 



NO .* 


IS THIS 


.. .♦. 


rRACK EMPTY 


* 






**. .** 


X 


*. .* 


***** 


*YES 


*NT * 




* F4* 




* * 


X 


* 


**** 


IJISNRM 


* * 




* 2 * 




* * 




**** 



IJIANV 

*****E3********** 

* EXCHANGE * 

* ORIGINAL AND * 
. ..X*NEW VOLUME SEEK* 

* ADDRESSES * 



***************** 



*****P3********** 

* MOVE ORIGINAL * 

* RO DATA FIELD * 
*INTO FILENAME. K* 
*AND ZERO NO. OF* 
*BYTES REMAINING* 
***************** 



*****G3********** 
♦INITIALIZE CCW * 

* BUILD AREA * 

* POINTER WITH * 

* STARTING ADDR * 

* -32 BYTES * 
***************** 



**H3******* 

* * 
♦CHANGE RZERO 

* ROD CCW TO A 
* WRD CCW 

* * 
*********** 



*****j3********** 

*IJISOV2+6 PE-D3* 
*_*_*_*_*_*_*_*-* 

* SEEK TO * 

* ORIGINAL RO * 

* TRACK * 
***************** 



***** 
*NW * 
* A3* 



*****B4** ******** 
*ADD B BYTES FOR* 

* DESCRIPTOR * 

* WORDS TO RCD * 
♦BYTES REMAINING* 



********* 



******* 



C4 *. 
.* WILL *. 
.♦ REMAINING *. YES 
*. BYTES OF RCD .*.... 

♦FIT ON THE.* 

♦.TRACK.* 

♦ . .♦ 

♦ NO 



*****D4 ********** 
♦SUBTRACT TRACK ♦ 

♦ CAPACITY FROM ♦ 
♦NUMBER OF BYTES^ 

♦ IN RECORD ♦ 

♦ REMAINING ♦ 
***************** 



**** 

♦ * 

♦ 1 * 

♦ * 
*♦*♦ 



IJIANT1 

*****C5***^***** 

♦ RESTORE INFO * 
♦SAVED IN SPNUNB^ 

...X^AREA OF DTF IN ♦ 
♦PREPARATION FOR^ 

♦ FIRST SEGMENT * 
***************** 



***** 05********** 

* INITIALIZE RCD * 

* CAPACITY REG * 
*WITH BYTE COUNT* 

* OF BASIC RDD * 

* CCW * 
***************** 



***** £5********** 

* SET SEGMENT * 
*TYPE FLAG TO 01* 

* (FIRST SEGMENTS 

* * 
***************** 



**P 5 ******* 

♦ SET HOLD ♦ 

♦ IGNORE SW IN ♦ 
♦SPNUNB AREA OF 

♦ DTF TABLE ♦ 

* * 
*********** 



*****G5 ********** 

♦ INSERT ID OF ♦ 

♦ LAST RCD ON * 
*TRACK IN R BYTE* 

♦ OF SEEKADR ♦ 

♦ ♦ 
***************** 



*****H5********** 

* ADD 1 TO R * 
♦BYTE IN RO DATA* 
♦FIELD AND COUNTS 

* FIELD ♦ 

* * 
***************** 



***** j 5********** 

♦ SET NUMBER OF ♦ 

♦ BYTES REMAIN. ♦ 
f IN RO DATA ♦ 

♦ (FILENAME. K) ♦ 

♦ EQUAL TO ZERO * 
***************** 
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Chart NW. DAMODV: Input/Output Macros (Section 10 of 11) 



***** 

*NV * 
* J5* 



* 2 * 

* * 
**** 



*****A1 ********** 

* MCVE KEYLEN * 

* INTO R0 COUNT * 
♦FIELD (FILENAME* 

* . C) * 

* * 

***************** 



* * 



**** 

IJIWAFT X 

*****B1 ********** 

* CALCULATE RCO * 

* LENGTH FOR * 

* BASIC RDD CCW * 
*AND COUNT FIELD* 
♦(FILENAME. C)*B2* 
***************** 



*****Cl ********** 
♦MOVE CCHH FROM * 

♦ SEEKADR TO * 

♦ COUNT FIELD * 

* (FILENAME. C> * 

* * 
***************** 



Dl *. 
.*IS THIS*. 
THE FIRST 

SEGMENT 
.(TYPE OL). 



*****£}********** 

♦INITIALIZE CCW * 

* BUILD AREA * 

* POINTER WITH * 

* STARTING ADDR ♦ 

* -32 BYTES * 
***************** 



*****F1 ********** 

♦IJISBLD NL^ 
*_*_*_*..*_*_*_*_* 

* BUILD WRITE ♦ 
♦AFTER CCW CHAINS 

* - * 
***************** 



IJIAFS X 

**G1 ******* 

* CHANGE * 
♦ COMMAND ♦ 

♦ CODE IN BASIC 
*RDD CCW TO A * 

* WRITE * 
*********** 



*****Hl ********** 
*INIT. BLOCK AND* 
♦SEG DESCRIPTORS^ 
♦WITH LENGTHS OF^ 

♦ SEGMENT TO BE ♦ 

♦ WRITTEN ♦ 
***************** 



*****jl ********** 
♦INSERT SEGMENT ♦ 

♦ CONTRCL FLAG ♦ 
♦(SEGMENT TYPE) * 

♦ INTO SEGMENT ♦ 

♦ DESCRIPTOR ♦ 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*B2 
RECORD LENGTH= 
NUMBER OF BYTES 
REMAINING ON 
TRACK MINUS 
KEYLEN 



*****C2********** 



* ♦ SVC7 WAIT 



***************** 



*MOVE CCHH FROM * 

♦ SEEKADR TO ♦ 

♦ FILENAM.F ♦ 

♦ * 
***************** 



****B3*********** 

SVC WRITE 
* * 

***************** 



.♦.I/O COMPLETE 



PARAMETER OPTION- 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING 


.* HOLD = 
*. BLANK *D2 
*. 

*. .* 
*. .* 
♦ NO 


* 
* 


YES 
♦ . . .. 


*****£ 2********** 
*IJISSVCF PE-H3* 
*_*_*_*_*_*_*_*_* 

* FREE TRACK *X. . . 


X 

.♦. 
E3 ♦. 

YES .♦TRACK HOLD 


* 
* 


♦ '. 


* * 

* * 
***************** 


♦ . 

"♦. .** 

♦ NO 




xl X 









F3 


* 






.♦ 


:s 


* 


YES . 


♦ THIS 


A NEW 


. . .*. 


VOLUME 






*. 








*. 




* 


X 

***** 


* 


. .* 

♦ NO 




*NX * 








* B4* 








* * 








* 








IJIANVL 









*****G3********** 
♦INITIALIZE CCW ♦ 

* BUILD AREA * 

* POINTER WITH * 

* STARTING ADDR * 

* -32 BYTES ♦ 
***************** 



*****H2#********* 


H3 *. 




* RESTORE LAST ♦ 


.* WAS *. 




♦8 BYTES OF DATA* 


NO .♦ SEGMENT ♦. 




♦ TO END OF *X.... 


...♦.JUST WRITTEN 


* 


* PREVIOUS * 


*.THE FIRST.* 




♦ SEGMENT ♦ 


♦. SEG .♦ 




***************** 


*. .* 




X 


♦YES 




Ix. ........... 


* 




**** 


' 




* * 


X 




* 3 * 


IJIAE11 .*. 




* * 


J3 ♦. 




**** 


.♦ ♦. 
YES .♦ ♦ 






...*. KEYLEN = 


* 




*. .* 






♦ . .♦ 






*. .* 






♦ NO 






X 






**** 






* * 






* 2 ♦ 






* * 






**** 





*****A4** ******** 

* MOVE X'OO' TO ♦ 
♦KEY LENGTH BYTE^ 
*IN COUNT FIELD * 

* (FILENAME. C) ♦ 

* * 
***************** 



****B4*« ******** 

OVERLAY WRKD * 

CCW WITH THE ♦ 

WRD CCW *B5 * 

* 

* 

**************** 



.♦ VERIFY ♦. 

OPTION 

♦. SPECIFIED. ♦ 



*****D4********** 

♦ CHANGE SECOND ♦ 
♦WRD CCW (STRING* 

♦ BYTE 91) TO ♦ 

♦ TIC *+8 *B5 ♦ 

♦ * 
***************** 



*****E4********** 

* * 
♦OVERLAY RDK CCW* 

* WITH THE RDD * 

* CCW *B5 * 

* * 
***************** 



♦ B5 
REFER TO 
FIGURE 36, 
CHART 0. 

FOR KEYED RECORDS, 
THE KEY IS 
WRITTEN FOR THE 
FIRST SEGMENT 
ONLY. 



*D5 
REMAINDER OF 
RECORD= LENGTH 
OF SEGMENT JUST 
WRITTEN AND DATA 
BYTES YET TO BE 
WRITTEN 



F4 *. 

.♦RMAINDR^. 

.* OF RECORD *. 

. >LAST DASD . 

♦.SEG WRITN.* 

*. *D5 .* 

*. .* 

♦ NO 



IJIAFX 

**G4******* 

♦RESET HOLD ♦ 

♦IGNORE SW IN 

* SPNUNB AREA 

*0F OTF TABLE 

* * 

*********** 



*****H4** ******** 

* RESTORE FULL ♦ 

* RECORD LENGTH * 
*(LL) TO SEGMENT^ 

* DESCRIPTOR * 

* * 
***************** 



.X* 



*****P5********** 

♦ SAVE LAST U ♦ 
DATA BYTES OF * 

PREVIOUS ♦ 

* SEGMENT IN ♦ 
♦SPNUNB DTF AREA^ 
***************** 



*****G5*** + *^*^* 
♦SUBTRACT LENGTH^ 

♦ (LL ) OF LAST ♦ 

♦ SEG. WRITTEN * 
♦FROM RCD BYTES ♦ 

♦ REMAINING * 
***************** 



***** 
*NT * 
* Gl* 



♦ REMAINDER ♦. 
OF RCD FIT ON. 


YES 


♦ . . . . 


*. NEXT .♦ 




♦ .TRACKS 




*. .* 


X 


*N0 


***** 




♦ NX ♦ 




♦ Al* 




* * 




* 



♦ K4 
TYPE 11 - NEITHER 
FIRST NOR LAST 
SEGMENT OF A 
MULTISEGMENT 
RECORD. 



IJIAFT2 

***** j 5********** 

* SET NEXT SEG * 

* BLOCK * 

* DESCRIPTOR * 
♦LENGTH BYTES = * 
♦TRACK CAPACITY ♦ 
***************** 



**«5******* 

♦ SET SEGMENT* 

♦CONTROL FLAG ♦ 

*T0 TYPE 11 *K4 * 



********* 
*IJIAFG 
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Chart NX. DAMODV: Input/Output Macros (Section 11 of 11) 



* SET ' * 

* SEGMENT 
CONTROL FLAG 

* TO TYPE 10 

* *A2 * 
*********** 



*****C1 ********** 

* CALCULATE NO. * 
*0F UNUSED BYTES* 

* ON TRACK AND^ * 
*SAVE IN RO DATA* 

* (FILENAME. K) * 
***************** 



IJIAFG 

*****Di ********** 
*IJIGET PC* 
*-*_*_*-.*_*_*_*_* 

* GET SEEKADR * 

* FOR NEXT * 

* TRACK * 
***************** 



*****E1 ********** 

* MOVE CCHHR * 

* FROM NEW * 

* SEEKADR TO * 

* RO DATA FIELD * 

* (FILENAME. K) * 
***************** 



*****F1 ********** 



***************** 



*****Gl ********** 
♦UPDATE WRD CCW * 
* DATA ADDR AND * 
♦BYTE COUNT WITH* 
*ADDR AND LENGTH* 
*0F NEW SEGMENT * 
***************** 



*****Hi ********** 

* SET R BYTE * 

* IN RO COUNT * 
*FIELD TO X'01« * 

* (FILENAME. C) * 

* * 
***************** 



*A2 
TYPE 10-LAST 
SEGMENT OF A 
MULTISEGMENT 
RECORD. 



X 

*****B1 ********** 

* CALCULATE NO. * 
*0F BYTES NEEDED* 

* TO WRITE LAST * 

* SEGMENT * 

* *B2 * 
***************** 


*B2 
(D 


)( TOLERANCE) 




512 

***** 
*NW * 
* K5* 



***** 

*NW * 
* F3* 



IJIANVL X 
*****q/ ( **** 

♦IJIGET 



***************** 



C4 *. 

.*IS NEXT*. 

.♦ SEEKADR = 

. NEW VOLUME 

*. SEEKADR . 

*. .* 

#. .* 



.X* 



*****04 ********** 

* ADD KEYLEN * 
*+ 4 (FOR BLOCK * 
♦DESCRIPTOR) TO * 

* RECORD DATA ♦ 

* LENGTH ♦ 
***************** 



*****E4********** 

♦ RESTORE READ ♦ 

♦ COMMAND CODE ♦ 

♦ (X«06« ) TO RO ♦ 

♦ RDD CCW ♦ 

♦ * 
***************** 



*****P4 ********** 
♦IJIS0V2+6 PE-D3* 
*-*-*-*-*-*_*_*_* 
♦CHANGE SYMBOLICS 

♦ UNIT ADDRESS ♦ 

♦ IN CCB * 
***************** 



*****C5********** 

* MOVE SEEKADR * 
- TO RO DATA ♦ 

FIELD ♦ 

* (FILENAME. K) * 

* * 
***************** 



***** 

♦ NW ♦ 

♦ A3 + 



***** 

♦ NV ♦ 

* G2+ 



.♦ VERIFY *. 

OPTION 

♦ .SPECIFIED.* 



♦NO 

'.X.. 
X 
***** 



*****J2********** 

♦ UPDATE VERIFY * 

♦ ADD CCW * 
X* FOR NEW * 

* SEGMENT ♦ 

* * 
***************** 



*NW 
♦ Bl* 
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Chart NY. 



DAMODV: 



CNTRL and FREE Macros 



****A2********* 

* ENTRY FROM * 

* CNTRL MACRO * 

* * 
*************** 



IJISCTL 

**B2******* 

* TURN ON * 

* CNTRL MACRO 
* INDICATOR 

* IN DTF 

* TABLE * 
*********** 



****A4********* 

* ENTRY FROM * 

* FREE MACRO * 

* * 
*************** 



IJISFREE 

**B4******* 

* TURN ON * 

* FREE MACRO 
* INDICATOR 

* IN DTF 

* TABLE * 
*********** 



* STORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*********** 



**E2******* 

* * 

RESET 

CNTRL MACRO 

INDICATOR 

*********** 



* STORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*****D4**** ****** 
♦IJISGVP PD* 
*_*_*_*_*_*_*_*_* 

* FREE HELD * 

* TRACK * 

* * 
***************** 



**E4******* 

* * 
RESET 

FREE MACRO 
INDICATOR 

* * 
*********** 



***** 

*NY * 

* Gl* 

* * 
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Chart NZ. DAMODV: WAITF Macro (Section 1 of 3) 



**** 

* * 

* 3 * 

* * 
**** 



****A1 ********* 

* ENTRY FROM * 

* WAITF MACRO * 

* * 
*************** 



* STORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



*B2 
DAMODV MACRO 
PARAMETER OPTION - 
DECIS ION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



.* IS *. 




.* RECORD *. 


YES 


*OUT OF EXTENTS 


*. . .. 


*. AREA •* 




*. .* 




*. .* 


X 


*N0 


***** 




*PB * 




* A3* 




* * 




* 



IJISXTFD 

*****B3********** 

*MOVE SECOND CCB* 

* TRANSMISSION * 

* BYTE TO DTF * 

* ERROR/STATUS * 

* INDICATOR * 
***************** 



*****C2* ********* 



***************** 



WAS 
NO RECORD 
. FOUND . 



**C4******* 
* SET NO * 
*RECCRD FOUND 
.X* INDICATOR IN 
* DTF TABLE 



******** 



NO .* RECFORM 
,..*. = SPNUNB 
*. *B1 



IOLOC 

= BLANK 

*B2 



.* SPNUNB *. 
. OR IDLOC 
*. SPECIFIED.* 



*****Gi ********** 

* INITIALIZE * 

* POINTER WITH * 

* STARTING ADDR * 
*OF SPNUNB AREA * 

* IN DTF TABLE * 
***************** 



**** 

* * 

* 2 * 



* SET EOV 
INDICATOR IN 

* DTF TABL'E 

* * 

*********** 



NO .* RECORD *. 
. ..*FOUND OR TRACK.* 
*. OVERFLOW .* 



* 3 * 

* * 
**** 



.* RECFORM 

. = SPNUNB 

*. *B2 



*NO 

.xlx.. 



**j2******* 
* RESET * 

* ALL SPNUNB * 
a*SWITCHES EXCEPT* 

* RELATIVE * 
♦ADDRESSING * 

*********** 



IJISICL 

**G4******# 

* SET * 

* INCORRECT 
* LENGTH IND 

* IN DTF 

* TABLE * 
*********** 



**F5******* 
*SET END-OF-* 

* CYLINDER * 
INDICATOR IN , 

* DTF TABLE * 
* * 

*********** 



**G5******* 

* SET * 

* NO-RECORD- 
* FOUND IND 

* IN DTF 

* TABLE * 
*********** 



FEOVD 


*. 


YES 


= YES 


.* 




*B2 


* 




*. .* 






*. .* 




X 


*NO 




**** 

*PA > 

* A5 

* * 


X 






**j3******* 




SET 


* 




END OF 


* 




FILE 






SWITCH 


* 





*********** 



***** 

*PA * 

* Al* 

* * 
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Chart PA. DAMODV: WAITF Macro (Section 2 of 3) 



***** 

*NZ * 

* H3* 

* * 



***** 
*PB * 
* Bl* 



.* WRITE *. YES 
♦AFTER OR WRITE.*... 
*. RZERO .* 



*PC * 

* Fl* 

* * 



IJISNID1 X 


DAMODV MACRO 




.*. 




*****/\3 ********** 


PARAMETER OPTION - 




A5 *. 




* CONVERT CCHH * 


DECISION DOES NOT 




.* * 




* TO RELATIVE * 


APPEAR IN AN 


YES .* 


READ 


* 


* ADDRESS * 


ASSEMBLY LISTING. 


. . .*. 


KEY 




* TTT * 




* 


. ISSUED 


* 


* * 


**** 




*. .* 




***************** 


* * 

* 3 * 

* * 
**** 




*. .* 

*NO 

X 




X 






.*. 


X 




.*. 




B3 *. 


**B4******* 




B5 *. 




.*RECFORM*. 


* * 




.* * 




YES .* = SPNUB *. 


* SET * 


NO .* 


KEY 


* 


...*. AND IDLOC = .* 


* EOF *X.... 




LENGTH 




*. BLANK .* 


* SWITCH * 


* 


= .* 


*. *A4 .* 


* * 




* . .* 




X *. .* 


*********** 




*. .* 




*** *N0 


. 




*YES 





.* RECFORM *. YES 
. = SPNUNB .*.... 
*. *A4 .* 



* 2 * 

* * 
**** 



***** 
*PB * 
* B4* 



*****£ 2********** 

* * 

* UPDATE IDLOC * 
X* TO NEXT * 

* CYLINDER * 

* * 
***************** 



***** 05********** 

* * 

* SET CCW * 

* FOR READ * 

* COUNT * 

* * 
***************** 



.* RECFORM 

*. = SPNUNB 
*. *A4 



*****P3 ********** 
♦ADD RECONVERION* 

* FACTOR TO * 
♦CONVERTED CCHHR* 

* TO GET REL * 
*ADDR TTT VALUE * 
***************** 



RELTRK 

= BLANK 

*AA 



.*. 


IJIREAD X 


E4 *. 


*****E5********** 


.* IS *. 


* * SVC * * 


.* IJIGET *. 


* * READ * * 


. SW IN DTF .* 


* * COUNT OF * * 


*. ON .* 


* * EOF READ * * 


*. .* 


* * * * 


*. .* 


***************** 


*YES 




Ix 






X 




.*. 


X 


-n 
ft 


****F4********* 


.* *. 


EXIT TO * 


NO .* ONE *. 


IJIGET1 * 


...*. BYTE .* 


CHART 16-FL * 


*. KEY .* 


*************** 


* . .* 




X *. .* 




**** *YES 




* * . 




* 3 * 




* * 




**** 




X 


****G4* ********* 


**G5******* 


CGNVERT R * 


* * 


TO DECIMAL * 


♦ SET * 


IN USER * 


* FEOV * 


IDLOC * 


* SWITCH * 



***************** 



*********** 



HI *. 






H2 


*. 




*****H3********** 


*****H4**** ****** 


.* *. 






.* *. 




* 


APPEND R TO * 


* CONVERT TTT * 


.* RELATIVE *. YES 




.* RELATIVE *. 


YES 


* 


TTT AND MORE * 


* VALUE TO * 


*. ADDRESSING .* 




.X* 


. ADDRESSING 


*.... 


* 


TTTR TO USER * 


* DECIMAL IN * 


*. .* 






*. .* 






IDLOC * 


* USER IDLOC * 


*. .* 






*. .* 




* 


* 


* * 


*. .* 






*. .* 


X 


***************** 


***************** 


*NQ 






*N0 


**** 
* * 




• m 


* 












*ft 
ftft 




I X. 






X 














**** 




***** 
*PB * 




IJISMID X 














* Bl* 




*****J1 ********** 














* * 




* * 














* 




* MOVE RECORD * 














IJISJCK 




* ID INTO USER * 


















* IDLOC FIELD * 


















* * 


















***************** 


















**** * 


















* * . 


















* 4 *. .. 


















* * .x. ...... 


















**** x 












IJISUID .*. 
















Kl *. 
















.* *. 
















.* END OF *. YES 














*. VOLUME .*. 
















*. .* 
















*. .* 
















*. .* 


X 














*N0 


***** 
*PB * 














IlJISJCK 


* B't* 


IJISDUMY 










X 


* * 














***** 


* 














*PB * 
















* Bl* 
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Chart PB. DAMODV: WAITF Macro (Section 3 of 3) 



PA-BltCltDlfKl 



***** 
** * 
* A2* 



IJISJCK X 

*****B1 ********** 

* MOVE ERROR * 

* BYTES FROM * 

* DTF TO USER * 

* ERROR/STATUS * 

* INDICATOR * 
*********** ****** 



*B2 
DAMODV MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



**A3******* 

*SbT SECOND * 
*CRROR/STATUS 
IND BYTE IN 
* DTF TABLE 

* TO X'OO' * 



IDLOC 

= BLANK 

*B2 



** * 

* A5* 

* * 



*****03********** 
*MOVE DTF ERROR/* 

* STATUS BYTES * 
*TO USER ERROR/ * 

* STATUS IND. * 

* (ERRBYTE) * 
************** 



El 
.* IS 
LENGTH OF 



*#E2******* 
TURN ON * 
♦WRONG LENGTH : 



_. . YES 

RECORD READ>.* X* RECORD 

*.BLKSIZE-4.* * INDICATOR 

*. .* * * 

*. .# *********** 



*****P1********** 

* * 

* RESTORE BYTE * 

* COUNT (4) IN * 

* BASIC SRCHHAE * 

* CCW * 
***************** 



*****Gl ********** 

* * 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 
***************** 



**** 

* * 

* 2 * 



*****D4********** 

* * 

* MOVE ALL * 

* C'9' TO * 

* IDLOC * 

* * 
***************** 



IJISRTER X 




**#**E4 ********** 


* MOVE ERROR 


* 


* BYTES FROM 


* 


* DTF TO USER 


* 


* ERRCR/STATUS 


* 


* INDICATOR 


* 


***************** 


**** 


**** 


* * 


* 


* 


* 1 *. . 


. . * po 


* 


* * 


* J3* 


**** 


**** 


X 




*****P4** ******** 


* 


* 


* RESTORE 


* 


* USER 


* 


* REGISTERS 


* 


* 


* 


***************** 


**** 






* * 






* 2 *.. 






* * 






**** 






IJISTNR X 




**G4******* 




* RESTORE * 




* DTF MACRO 


* 


* SWIT( 


:h to 


* 



********* 



***** D5********** 

* * 

* MOVE ALL * 

* X'FF' TO * 

* IDLOC * 

* * 
***************** 



**H5******* 

* TURN ON * 

♦UNRECOVERABLE* 

.X* I/O ERROR BIT * 

* IN ERROR/ * 

♦STATUS IND * 

*********** 



****J4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart PC. 



DAMODV: 



IJIGET Subroutine 



****A1********* 

* * 

* IJIGET * 

* * 

*************** 



* STORE * 

* RETURN * 

* ADDRESS * 

* * 
***************** 



**C1******* 

* TURN GN * 
IJIGET SW 
IN SPNUNB 

AREA OF DTF 

* TABLE * 
*********** 



*****01 ********** 

* GET ADDR OF * 

* CCHH FROM * 

* SEEKADR AND * 

* ADDR OF * 

* DSKXTNT TABLE * 
***************** 



*****£!********** 

♦IJISNID1 PA-A3* 
*_*_*_*_*_*_*_*_* 

* CONVERT CCHH * 

* TO RELATIVE * 

* ADDRESS TTT * 
***************** 







**** 






* * 






* PA * 






* B3* 






**** 


IJIGET1 X 




*****F1 ********** 


* 


* 


* ZERO 


* 


* REGISTER * 


* IJIARR 


* 


* 


* 


*********** ****** 


**** 






* * 






* 1 *.. 






* * 






**** X 




IJIGSKM .*. 




Gl * 




.* 


*. 


YES .* SEEKADR 


M *. 


. ..*. EQUALS 


.* 


*.DSKX1 


fNT 


M.* 



**** 
IJIGTTT 

*****Hl ********** 

* SAVE * 

* CUMULATIVE * 

* TOTAL TRACKS * 

* (TTT2 FROM * 
♦DSKXTNT TABLE) * 
***************** 



*****J1 ********** 

* * 
♦UPDATE DSKXTNT * 

* ADDRESS TO * 

* NEXT ENTRY * 

* IN TABLE * 
***************** 



IJIGSKE X ' 

**A2******* 

* RESET ALL * 

* SPNUNB 

* INDICATORS 

* EXCEPT REL 

* ADDR * 
*********** 



**B2******* 

*SET RECORD * 

*OUT OF EXTENT* 

* AREA IND IN 

♦ERROR/STATUS * 

* INDICATOR * 

*********** 



***** 
*NT * 
* F3* 



***** 
*NT * 
* F4* 



IJIGSKB .*. 

A3 *. 

.*SEEKADR*. 

NO .* B2 EQUALS *. 

...*. DSKXTNT B2 .* 

*. *A4 .* 

*. .* 



B3 *. 

.*SEEKADR*. 

,♦ TTT *. 

X..*. EXTENT LOWER . 

*. LIMIT .* 



*****C3********** 

* * 

* CALCULATE * 

* EXTENT UPPER * 

* LIMIT * 

* * 
***************** 



03 *. 

.♦COMPARE*. 

GT .* SEEKADR *. LT 

X..X*.TTT TO EXTENT.*... 

*. UPPER .♦ 

*. LIMIT.* 

*. .# 

**** * 



*A4 
SEEKADR IN FORM — 
•MfBl,B2 t Cl f C2i Hl f H2' 



*****A5 ********** 

♦ CALCULATE ♦ 

♦ CONVERSION TERM* 
♦(TTT OF CURRENT^ 

♦ EXTENT TTT1 ♦ 

♦ OF PRE EXT) * 
***************** 



*****B5********** 

* STORE * 

* CONVERSION * 

* TERM IN * 

* FILENAME. X * 

* * 
***************** 



*****C5********** 

♦ GET TTT1 OF ♦ 

♦ NEW EXTENT ♦ 

♦ FROM DSKXTNT ♦ 

♦ TABLE ENTRY * 

♦ * 
***** ************ 



***D4 ********** 



***************** 



IJIGSKB1 .*. 

E3 *. 
.♦IS THIS*. 



♦ SEEKADR M ♦. 

EOUALS NEXT .* 
♦.DSKXTNT M.* 



G3 ♦. 


**G4******* 


.♦ *. 


* RESET ALL 


.♦ WRITE ♦. NO 


* SPNUNB 


*. AFTER MACRO .♦ 


...X* INDICATORS 


*. . .♦ 


* EXCEPT REL 


*. .* 


* ADDR 


*. .* 


*********** 


*YES 


\ 




X 
***** 




♦NT ♦ 


X 


* CI* 


**H3******* 


* * 


* SET NEW * 


* 


* VOLUME IND * 


IJIWLR 


* IN SPNUNB * 




* AREA IN DTF * 




* TABLE * 




*********** 





IJIGCH 

*****05********** 
♦IJIOVCH PE-AL* 
*_*_*_*_*_*_*_*_* 

♦ CONVERT TTT1 * 

♦ TO CCHH ♦ 

♦ * 
***************** 



***** E5********** 



***** ************ 



*****F5********** 

* RESTORE ♦ 

♦ RETURN * 

♦ ADDRESS ♦ 

* * 
***************** 



**G5******* 

♦ RESET ♦ 
IJIGET SW 
IN SPNUNB 

AREA OF DTF 

* TABLE * 
*********** 



****H5********* 

♦ RETURN TO * 

♦ CALLING RTN ♦ 

♦ IN DAMODV ♦ 
*************** 



IJIGNXT 

*****J3********** 

♦ MOVE M AND B2 ♦ 

♦ FROM NEXT ♦ 
♦EXTENT ENTRY IN^ 

♦ DSKXTNT TBL ♦ 

♦ TO SEEKADR ♦ 
***************** 



y 



END OF 




*. 


YES 


TABLE 






*.... 






.* 






* 






*♦. .*" 






X 


*N0 






**** 
* 
* 3 


X 






* 


**** 






**** 
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Chart PD. DAMODV: IJISOVP Seek Overlap Subroutine (Section 1 of 2) 



* i * 

* * 
**** 



**** 

* * 

* 2 * 



****A1 ********* 

* * 

* IJISOVP * 

* * 
*************** 



IJISOVP .*. 

Bl *. 
.*RELTRK *. 
.* = BLANK *. YES 
*.AND RECFORM /*.*.... 
*. SPNUNB .* 



***** 
*PE * 
* C3* 



*****B3********** 

* * 

* CONVERT * 

* TTTTTTTTRR * 
♦ADDRESS TO TTTR* 

* * 
***************** 



*****C3********** 

* STORE R VALUE * 

* IN R BYTE OF * 

* SEEKADR * 

* (FILENAME. S) * 



******* 



********* 



YES .* SPNUNB *. 




....*. SPECIFIED .* 




*. .* 




*. .* 




*. .* 




*N0 




I lXm ......... 




X 




.*. 


El *. 


.* *. 


.* VARUNB *. NO 


*. REL ADDR .*.... 


*. SPECIFIED.* 


*. .* 


*. .* X 


*YES ***** 


*PE * 


* C3* 


* * 


X. * 


IJISOV2 


X 


***** PI ********** 


* GET ADDRESS * 


* OF SPNUNB * 


* AREA IN * 


* DTF TABLE * 





***************** 



Gl 
* 
RECFORM 



.*. ^ SPNUNB 



**** 

* * 

* 1 * 

* * 
**** 



IJIS0V1 

*****J2********** 

* MOVE USER * 

* SUPPLIED * 
...X* SEEKADR TO * 

* FILENAME. S * 

* IN DTF TABLE * 
***************** 



X 
***** 
*PE * 
* C3* 



IJISCMC 

*****D3********** 

* INITIALIZE * 

* DSKXTNT TABLE * 

* POINTER TO * 
*START OF TABLE * 

* (FILENAME. X) * 
***************** 



* SAVE TTT * 

* VALUE FROM * 

* SEEKADR * 

* * 
***************** 



*****F3********** 
*ADD TTT2 VALUE * 

* FROM PREVIOUS * 

* DSKXTNT ENTRY * 

* TO TTT VALUE * 

* FROM SEEKADR * 
***************** 



*****G3********** 

♦UPDATE DSKXTNT * 

* TABLE POINTER * 

* TO NEXT ENTRY * 

* * 
***************** 



H3 *. 
.♦CURRENT*. 
* ENTRY THE *. NO 

LAST IN .*... 
*. TABLE .* 
*. .* 
*. .* 



**J3******* 

* TURN ON * 
* RECORD OUT * 

*OF EXTENT AREA 
♦INDICATOR IN * 

* DTF TABLE * 
*********** 



*****A4 ********** 

* SUBTRACT TTT2 * 

* OF CURRENT * 

* DSKXTNT ENTRY * 

* FROM UPDATED * 

* SEEKADR TTT * 
***************** 



NO .* SEEKADR *. 
,..*WITHIN CORRECT. ; 
*. EXTENT .* 



*****C4«* ******** 

* STORE DSKXTAT * 
♦ENTRY M AND B2 * 

* VALUES IN * 

* SEEKADR * 

* (FILENAME. S) ♦ 
***************** 



*****Q4********** 

* * 

* CALCULATE * 

* RECONVERSION * 

* *D5 * 

* * 
***************** 



*****E4*« ******** 
♦ADD SEEKADR TTT+' 

* VALUE TO TTT1 * 

* FROM DSKXTNT * 

* ENTRY TO GET * 
♦RECORD TTT *F5 ♦ 
***************** 



RECONVERSION FACTOR = 
CUMULATIVE TRACK 
TOTAL OF PREVIOUS 
EXTENT (TTT2) MINUS 
NUMBER OF TRACKS TO 
LOWER LIMIT OF 
CURRENT EXTENT (TTT1). 



X 

***** 




*PE * 


*F5 


* CI* 


SEEKADR TTT 


* * 


VALUE SAVED AT 


* 


BLOCK F3 IS ADDED 


IJIOVCH 


TO THE LOWER 




LIMIT OF CURRENT 




EXTENT. 



***** 
*PB * 
* F4* 
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Chart PE. 



DAMODV: 



IJISOVP Seek Overlap Subroutine (Section 2 of 2) 



* * 

* IJIOVCH * 

* * 
*************** 



**** 

* * 

* l * 

* * 
**** 



*****A3********** 
*STORE QUOTIENT * 

* (HIGH ORDER * 

* REG) IN HI OF * 

* SEEK ADDRESS * 

* (ACTUAL) * 
***************** 

**** 



* CL *. YES 
ALTERATION .*... 
♦.FACTOR = .* 

*. 1 .* 



*****Ci ********** 

* DIVIDE RECORD * 

* TTT VALUE * 

* (DIVIDEND) BY * 

* CI ALTERATION * 

* FACTOR *C2 * 
***************** 



*****D1 ********** 
♦STORE QUOTIENT * 

* (HIGH ORDER * 

* REG) IN CI OF * 

* SEEK ADDRESS * 

* (ACTUAL) * 
***************** 



*****El ********** 

* RESTORE * 
♦REMAINDER (LOW * 

♦ ORDER REG) AS ♦ 

♦ NEW DIVIDEND ♦ 

* * 
***************** 



IJISOV2 

*****Fl ********** 

♦ DIVIDE ♦ 

♦ DIVIDEND BY * 

♦ C2 ALTERATION ♦ 

♦ FACTOR * 

♦ *F2 ♦ 
***************** 



*****Gi ********** 
♦STORE QUOTIENT ♦ 

♦ (HIGH ORDER ♦ 

♦ REG) IN C2 OF ♦ 

♦ SEEK ADDRESS * 

♦ (ACTUAL) ♦ 
***************** 



HI ♦. 

.♦ *. 

.♦ HI 

. ALTERATION 
♦.FACTOR = . 
*. 1 .* 
♦ . .♦ 
♦ NO 



*****j i ********** 

♦ RESTORE ♦ 
♦REMAINDER (LOW ♦ 

♦ ORDER REG) AS ♦ 

♦ NEW DIVIDEND ♦ 

♦ * 
***************** 



*****«! ********** 

♦ DIVIDE ♦ 

♦ DIVIDEND BY ♦ 

♦ HI ALTERATION ♦ 

♦ FACTOR ♦ 

♦ *K2 ♦ 
***************** 



♦ 2 



**** 
IJISDV3 X 

*****B3********** 

♦ STORE ♦ 
^REMAINDER (LOW ♦ 

♦ ORDER REG) AS ♦ 

♦ H2 IN SEEK ♦ 

♦ ADDR (ACTUAL) ♦ 

**#:«#*#** *###*#** 



* * * 



♦C2 
CI ALTERATION. FACTOR 
1 FOR 2311 
1 FOR 2314 
1000 FOR 2321 



*D2 
DAMODV MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



*PD-B1,E1,J2 



**** 
IJIS0V2 

*****C3********** 

♦ INITIALIZE ♦ 
♦CCW BUILD AREA ♦ 

♦ POINTER WITH ♦ 

♦ STARTING ADDR * 

♦ -32 BYTES ♦ 
***************** 



IJIS0V2+6 

*****D3********** 

♦ OBTAIN ♦ 

♦ SEEKADR ♦ 

♦ FROM SEEK * 

♦ CCW ♦ 

♦ * 
***************** 



*****E 3********** 

♦ DETERMINE NEW ♦ 

♦ SYMBOLIC UNIT ♦ 

♦ (M) ADDRESS ♦ 

♦ AND STORE ♦ 

♦ IN CCB * 
***************** 



**** 

* * 

* 3 ♦ 

* * 
**** 



HOLD 

= BLANK 

*D2 



RECFORM 

= SPNUNB 

*D2 



.♦ HOLD ♦. YES 
♦.IGNORE SWITCH.*.... 
♦. SET .♦ 



.♦ TRACK ♦. NO 
. HOLD OPTION .♦... 
♦. SPECIFIED. ♦ 



♦ F2 
C2 ALTERATION FACTOR 
10 FOR 2311 
20 FOR 2314 
100 FOR 2321 



*** *££♦♦♦♦♦♦♦♦♦ 

* * 

* IJISSVCF ♦ 

* * 
*************** 



CNTRL 
MACRO 



* SVC 36 ♦ 

* FREE ♦ 

* TRACK * 

* , * 
***************** 



****H4 *********** 

♦ SVC 35 ♦ 
READ AND 
* HOLD * 

***************** 



* SVC ♦ 

EXECUTE CHANNEL 
* PROGRAM * 

******* ********** 



HI ALTERATION FACTOR 

1 FOR 2311 

1 FOR 2314 

20 FOR 2321 



***************** 



****|<4********* 

♦ RETURN TO ♦ 
♦CALLING ROUTINE* 

* * 
*************** 



Direct Access Charts 343 



Chart PF. §$BODAIN: DA Open Input/Output (Section 1 of 3) 



****A1********* 

* ENTRY * 

* FROM * 

* SSBOPEN * 
*************** 



*****B1 ********** 

* * 

* INITIALIZE * 

* BASE * 

* REGISTERS * 

* * 
***************** 



* SAVE DTF * 

* TABLE * 

* ADDRESS * 

* * 
***************** 



*****Dl ********** 

* * 

* PUT CCW * 

* ADDRESS IN *~ 

* CCB * 

* * 
***************** 



*****£i ********** 



**** 

* * 

* 1 * 

* * 
**** 



.* RETURN * 
*.FROM MESSAGE 
*. ROUTINE .* 



***** 
*PG * 
* Al* 



***************** 



* CALCULATE * 

* ADDRESS * 

* OF DLBL * 

* * 
***************** 



*****Gl ********** 



***************** 



*****Hi ********** 

* CALCULATE * 

* FIRST EXTENT * 

* ADDRESS * 

* * 
***************** 



***** j 1 ********** 

* COMPUTE * 

* END-OF-EXTENT * 

* STORAGE AREA * 

* AND SAVE * 

* * 
***************** 



*****«! ********** 

* * 

* ENTER * 

* MFSSAGE * 

* CODE * 

* * 
****************** 



* 1 * 

* * 
**** 



*PG-F2 
PH-H3 
***** 



***** 
*PH * 
* B4* 



TSTOUT 

*****C2********** 



***************** 



*****D2* ********* 

* * 

* PICK UP * 

* NUMBER OF * 

* EXTENTS * 

* * 
***************** 



ANY *. NO 
EXTENTS .*... 
LEFT .* 



B3 *. 

.* IS *. 

.* UNIT *. 

.UNASSIGNED OR. 

*. IGNORED .* 

*. .* 



SET OFF 

IGNORE 

BIT 

* * 

*********** 



*****03********** 

* * 

* INITIALIZE * 

* POINTER TO * 

* PUB * 

* * 
***************** 



**C4******* 

* * 
SET ON 
IGNORE 

BIT 

* * 
*********** 



****C4** ******* 

* SVC 2 * 

* FETCH $$BOPEN * 



*****E4 ********** 



.* IS * 
SYMBOLIC 
UNIT IN 
. EXTENT 



SHOULD 
DEVICE BE 

2321 
*. .* 
*. .* 
*NO 


*. YES 
.* 

* 


* INITIALIZE * 
...X* TEST FOR *.... 

* 2321 * 

* * 
***************** 


X 
.*. 






F3 *. 
* * 

SHOULD 
DEVICE BE 

2314 

*. .* 

*. .* 

* 

Ix... 


*. YES 
.* 

* 


*****P4 ********** 

* INITIALIZE * I 
..X* TEST FOR * 

* 2314 * 

* * 
***************** 

X '. 



BADASSIN 

*****C5********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 46831 * 

* * 
***************** 



MSG2 X 

*****Q5********** 

* SET UP TO * 

* FETCH * 

* MESSAGE * 

* ROUTINE * 

* * 
***************** 



**** E5********* 

* SVC 2 * 

* FETCH * 

* $$BOMSGl * 
*************** 



MVEXT 

*****G2********** 

* MOVE SYMBOLIC * 

* UNIT FROM * 

* DTF TO EXTENT * 



X 
***** 
*PG * 
* Al* 



PNTCCB X 

*****H2********** 

* MOVE * 

* SYMBOLIC * 

* UNIT TO * 

* CCB * 

* * 
***************** 



*****J2********** 
♦FIND LUB ENTRY * 

* FOR LOGICAL * 
*UNIT SPECIFIED * 
*IN FIRST EXTENT* 

* USING SYSIR * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 
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Chart PG. $$BODAIN: DA Open Input/Output (Section 2 of 3) 



♦PF-E4,F3,F4 



TSTDVCTP .♦. 

Al *. 
.* * 






♦ 


.* IS 

DEVICE 
♦ . CORRECT 
*. .* 
♦ . .* 
*YES 


♦ « 
*" 


NO 

X 

***** 

*PF * 

* C5* 

* * 




X 

.♦. 

Bl ♦ . 

.* *. 




* 
BADASS IN 








* 


♦ALTERATION 

FACTORS 
*. FILLED 
*. IN .* 


*. 
♦ " 


YES 
*.... 



**** 
* 

* 2 
* 

***# 



**** 

* * 

* 1 * 

* * 
**** 



ALTR2311 X 

*****B3********** 

* MOVE * 

* ALTERATION * 

* FACTORS FOR * 

* 2311 TO * 

* DSKXTNT TABLE * 
************* 



ALTR2314 X 

*****B4********** 

* MOVE * 

* ALTERATION * 

* FACTORS FOR * 

* 2314 TO * 

* DSKXTNT TABLE * 
***************** 



*****B5********** 

* PICK UP NEXT * 

* CHARACTER IN * 

* EXTENT AND * 

* ALTERATION * 

* FACTOR * 
***************** 



*****C1 ********** 

* GET ADDRESS * 

* OF POINTER * 

* TO DSKXTNT * 

* TABLE * 

* * 
***************** 



Dl *. 

* IS * 

TABLE 

A DTFPH 



* RELATIVE *. NO 

ADDRESSING .*... 
♦.SPECIFIED.* 



*****F1 ********** 

* * 

* GET ADDRESS * 

* OF DSKXTNT * 

* TABLE * 

* * 
***************** 



AROUND X 






.*. 


**C3******* 






C5 ♦. 


♦SET SWITCH * 






.♦ ♦. 


♦ TO INDICATE ♦ 






NO .♦ LIMIT ♦. 


♦ ALTERATION ♦ 






...♦. ALTERATION .♦ 


* FACTORS * 






♦ .COMPLETED. ♦ 


* FILLED IN * 






♦ . .* 


*********** 






X *. .* 
**** *YES 


**** * 


***** 




* * 


* * . 


♦ PH ♦ 




* 6 * 


* 3 ♦. .. 


♦ E4* 




* * 


* * . 


* * 




**** 


**** X 


* 






COMPNXT .*. 


. 


INPUT 


X 


D3 *. 






*****D5********** 


.* ♦. 




****D4********* 


* ADD H2 * 


.* OUTPUT ♦. 


NO X 


* SVC 2 ♦ 


♦ VALUE TO ♦ 


♦. FILE .♦ 




.X* FETCH * 


♦ ACCUMULATOR ♦ 


*. .* 




* $$BODAIl * 


♦ REGISTER ♦ 


♦ . .♦ 




*************** 


* * 



♦ GET ADDRESS ♦ 

* OF NEXT * 

♦ EXTENT ♦ 

* * 
***************** 



END * 
OF EXTENT 

AREA .* 
*. .♦ 


NO 
*.. . . 


* . .* 
♦ YES 


X 

***** 
*PF * 
* H2^ 



***** 

♦ PH ♦ 

* B4* 



IS 
DEVICE 
2311 



IS 

DEVICE 

2314 



*****jl ********** 

♦ MCVE ♦ 

♦ ALTERATION ♦ 

♦ FACTORS FOR ♦ 

♦ 2321 TO ♦ 

♦ DSKXTNT TABLE ♦ 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*J2 
EXTENT LIMIT 
FOR MAT = 
CltC2,Hl»H2 



.♦ FIRST ♦. NO 
.TIME THROUGH .♦... 
*. ROUTINE .♦ 



*****P3********** 

♦ SAVE ADDRESS * 

♦ OF ALTERATION ♦ 

♦ FACTORS IN ♦ 

♦ DSKXTNT ♦ 

♦ TABLE ♦ 
***************** 



*****G3********** 

* * 

* GET ADDRESS ♦ 

* OF DISK * 

* EXTENT TABLE ♦ 

* * 
***************** 



*****H3********** 

♦ MOVE SYMBOLIC * 

♦ UNIT NUMBER ♦ 

♦ FROM EXTENT ♦ 

♦ TO COMPARE ♦ 

♦ AREA ♦ 
***************** 



** J3******* 
*SET SWITCH * 

* TO INDICATE ♦ 

NOT FIRST 

♦ TIME ♦ 
♦ THROUGH ♦ 

*********** 



**** 

* * 

* 5 ♦ 

* * 
**** 



CLEAR X 

*****P4********** 

* INITIALIZE TO * 
♦CONVERT EXTENT ♦ 

* LIMIT FROM ♦ 

* ACTUAL TO ♦ 

* RELATIVE ADDR ♦ 
***************** 

**** 

* * 

* 6 ♦ 

* * 
**** 

MORXTNT X 

*****G4**** ****** 

* PICK UP * 

* CHARACTER * 

* FRCM EXTENT * 

* *J2 * 

* * 
***************** 



*****H4********** 

♦ MULTIPLY ♦ 

♦ CHARACTER BY ♦ 

♦ CORRESPONDING ♦ 

♦ ALTERATION * 

♦ FACTOR * 
***************** 



*****j4********** 

* * 

* ADD RESULT * 
♦TO ACCUMULATOR ♦ 

* REGISTER ♦ 

* # 
***************** 



***************** 



*****£ 5 ********** 

♦ * 

♦ PICK UP NEXT * 

♦ CHARACTER * 

♦ IN EXTENT * 

♦ * 
***************** 



.* UPPER ♦. 
.♦ LIMIT 
. CONVERSION 
♦. SWITCH . 



*****G5********** 

* SAVE TTTT1 ♦ 

* IN TEMPORARY * 

* LOCATION ♦ 

* *K5 * 

* * 
***************** 



**H5******* 
*SET SWITCH ♦ 

♦ TO INDICATE 
UPPER LIMIT 

♦ CONVERSION 

* * 

*********** 



♦ K5 
TTT1 = RELATIVE 
ADDRESS OF 
EXTENT LOWER 
LIMIT. 
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Chart PH. $$BODAIN: DA Open Input/Output (Section 3 of 3) 



***** 

*PG * 
* F5* 



T .*. 

Bl *. 
.* FIRST * 

EXTENT 
OF FIRST 
. VOLUME 



LABADR 

**C1******* 
♦SET SWITCH * 

* TO INDICATE 
* NOT FIRST 

* EXTENT OF 
♦FIRST VOL. ♦ 

*********** 



♦ ARE 
THERE 
USER 
LABELS 



*****E1 ********** 
♦INCREMENT LOWERS 
♦LIMIT RELATIVE ♦ 
♦ADDR (TTT1) TO ♦ 

♦ BYPASS USER * 

♦ LABEL TRK ♦ 

***************** 



SYMBOLIC 
UNIT 
. EQUAL 



*****C2*******^+ 

* MOVE NEW ♦ 

* SYMBOLIC ♦ 

* UNIT NUMBER ♦ 

* TO COMPARE ♦ 

* AREA ♦ 

***************** 



*****D2********** 

* INCREASE ♦ 

* PACK NUMBER ♦ 

* (M) COUNT * 

* 8Y 1 ♦ 



***** 



<********¥** 



*****B3********** 

♦ PUT LOWER ♦ 
♦LIMIT RELATIVE ♦ 
♦ADDRESS (TTT1) ♦ 

♦ IN DSKXTNT ♦ 

♦ TABLE ♦ 
***************** 



*****C3********** 

* PUT CELL * 

* NUMBER IN ♦ 

* DSKXTNT * 

* TABLE ♦ 

* * 
***************** 



**03******* 
♦ TURN OFF * 
UPPER LIMIT ♦ 
INDICATOR ♦ 
SWITCH ♦ 

*********** 



**** 
TSTOUT X 

*****B4*« ******** 

* * 

* GET ADDRESS ♦ 

* OF FIRST ♦ 

* EXTENT * 

* * 
***************** 



COBOL 
IGNORE 
OPTION 



**D4******* 

* SET OFF * 
♦COBOL IGNORE ♦ 

♦ OPTION * 
♦ INDICATOR ♦ 

* * 
*********** 



STORE 

*****F1 ********** 

* INCREASE ♦ 

* UPPER LIMIT ♦ 

* RESULT VALUE * 

* BY 1 ♦ 

* * 
***************** 



*****G1 ********** 

* COMPUTE ♦ 

* TOTAL TRACKS ♦ 

* IN CURRENT ♦ 

* EXTENT ♦ 

* *G2 * 
***************** 



*****H1 ********** 

* ADD TOTAL TRK * 

* OF EXTENT TO * 

* ACCUMULATED ♦ 

* T OT AL * 

* *J2 ♦ 
***************** 



*****J1 ********** 

* PUT ACCUM * 

* TTT2 VALUE ♦ 

* IN DSKXTNT * 

* TABLE * 

* *J2 * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****F_3********** 


E4 ♦. 




♦ PUT PACK (M) ♦ 


.* *. 




♦ NUMBER IN ♦ 


.* * 


NO 


♦ DSKXTNT ♦ 


♦. OUTPUT FILE 


♦ .. .. 


♦ TABLE ♦ 


*. .* 




* * 


*. .* 




***************** 


*. .* 


X 




♦ YES 


***** 






*PG ♦ 

* D4+ 

* * 






* 




X 


INPUT 


NCREMNT X 


.♦. 




*****P3 ********** 


F4 ♦. 




♦ INCREASE ♦ 


.♦ ♦. 




* POINTER TO * 


.♦ ANY ♦. NO , 


♦ DISK EXTENT ♦ 


♦. EXTENTS 
♦. LEFT .♦ 


*. 


♦ TABLE BY ♦ 





♦ G2 
LOWER LIMIT 

RELATIVE ADDRESS (TTT1) 
IS SUBTRACTED 
FROM UPPER LIMIT 
RELATIVE ADDRESS 
TO COMPUTE 
TOTAL TRACKS 
IN EXTENT. 



***************** 



*****G3********** 

♦ PICK UP ♦ 

♦ ADDRESS OF ♦ 

♦ NEXT ♦ 

♦ EXTENT ♦ 

♦ - * 
***************** 



**G4******* 

* * 

SET OFF 

MESSAGE 

SWITCH 

*********** 



*J2 
TTT2 = ACCUMULATED 
TOTAL TRACKS OF 
ALL PREVIOUSLY 
OPENED EXTENTS 
PLUS TOTAL TRACKS 
OF CURRENT EXTENT. 



.♦ ♦. 


****H4********* 


♦ END ♦. NO 


♦ SVC 2 


OF EXTENT .*.... 


* FETCH 


*. AREA .* 


* $$BODA01 


♦ . .♦ 


*************** 


♦ . .♦ X 




*YES ***** 




♦ PF ♦ 




♦ H2 + 




* * 




* 




PNTCCB 
X 
**J3******* 






* * 




RESET ♦ 




MULTIPURPOSE ♦ 




SWITCH ♦ 




* * 




*********** 





NOXT 

*****G5*+++**^=+^ 

♦ SET UP TO ♦ 

♦ ISSUE ♦ 

♦ MESSAGE ♦ 

♦ 47601 ♦ 

♦ * 
***************** 



****H5********* 

* SVC 2 ♦ 

* FETCH ♦ 

* $$B0MSG1 ♦ 
**** *********** 



*****K3********** 

♦ CLEAR ♦ 

♦ TEMPORARY ♦ 

♦ LOCATION IN ♦ 

♦ DSKXTNT * 

♦ TABLE ♦ 
***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart PJ. $$BODAIl: DA Open Input (Section 1 of 4) 



**** 

* * 

* i * 

* * 
**** 



****A1 ********* 

* ENTRY FROM * 

* SSBQDAIN * 

* * 

*************** 



**Bl******* 

* SET * 
MSG CODE 

TO INDICATE 
INPUT PHASE 

* * 
*********** 



*****C1 ********** 

* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 
***************** 



»****D1 ********** 

* * 

* RELCCATE * 

* CCW FOR * 

* THIS PHASE * 

* * 
***************** 



*****£].********** 

* GET ADDRESS * 

* CF DLBL. * 

* CLEAR VOLUME * 

* SEQUENCE * 

* FIELD * 
***************** 



*.X 



**** 
STORSU X 

*****B2********** 

* SAVE CURRENT * 

* SYMBOLIC * 

* UNIT AND BIN * 

* NUMBER * 

* * 
***************** 



*****C2********** 

* * 

* SET UP TO * 

* GET VOLUME * 

* LABEL * 

* * 
***************** 



*****D2***** : 

* * 

* SET UP * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 



*****E2********** 

* * 

* MOVE * 

* SYMOBLIC UNIT * 

* TO CCB * 

* * 
***************** 



.*. 


READ X 


Fl *. 


****P2*********** 


.* IS *. 


EXCPRT PM 


THIS A *. NO 


* _*_*_*_*_*_*_ * 


RETURN FROM .*.... 


READ 


. MESSAGE .* 


* VOLUME * 


*. RTN .* 


LABEL 


*. .* X 


***************** 



**G1******* 

* SET * 
MESSAGE 

SWITCH OFF 
IN COMM 

* REGION * 
*********** 



*****Hl ********** 

* * 

* SAVE SYMBOLIC * 

* UNIT AND BIN * 

* NUMBER * 

* * 
***************** 



****jl ********* 

* EXIT VIA *• 

* REGISTER * 

* MSGLNK * 
*************** 



* RELATIVE 
ADDRESSING 

♦ .SPECIFIED.^ 



* 2 * 

* * 
**** 



.* SERIAL *. 

NUMBER 

*. SPECIFIED.* 



MOVEPT 

*****B4********** 

* MOVE VTOC * 

* POINTER TO * 
. ..X* SEEK ADORESS * 

* FIELD * 



C3 *. 

.♦VOLUME : 

SERIAL = 

EXTENT 
. SERIAL 



*****03********** 

* * 

* GET ID * 

* OF PACK * 

* TO MOUNT * 

* * 
***************** 



*****E3********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE * 

* 4655A * 

* * 
***************** 



*****P3********** 

* INITIALIZE * 

* RETURN * 

* REGISTER FOR * 

* MESSAGE PHASE * 

* * 
***************** 



MSG2 X 

*****G3#********* 

* INITIALIZE * 

* REGISTERS * 

* FOR USE BY * 

* MESSAGE PHASE * 

* * 
***************** 



****H3********* 

* SVC 2 * 

* FETCH * 

* $$BOMSGl * 
*************** 



**** 



*********** 



***** 
*PK * 
* C5* 



***** 
*PL * 
* B5* 



*****J2********** 

* * 

* GET ADDRESS * 

* OF DLBL * 

* IN CORE * 

* * 
***************** 



**** 

* * 

* 2 * 



*****C4********** 

* GET THE * 

* CCW TO * 

* FIND FORMAT * 

* 1 LABEL * 

* * 
***************** 



*****D4 ********** 

* SET KEY * 

* FOR SEARCH * 

* FOR FORMAT * 

* 1 LABEL * 

* * 
***************** 



FINDF1 

****E4 *********** 

EXCPRT PM 
* _*_*_*_*_*_*_ * 

READ 
* FORMAT 1 * 
LABEL 
***************** 



.* GET *. 
.ADDRESS FIRST. NO 
*.TIME THROUGH .*.., 
*. ROUTINE .* 



*****D5********** 

* GET ADDRESS * 

* OF DISK * 

* EXTENT TABLE * 

* AND SAVE * 

* * 
***************** 



**E5******* 

♦ SET SWITCH * 
* TO INDICATE 

* NOT FIRST 
*TIME THROUGH 

* * 
*********** 



.*. 




:lear x 


F4 *. 




*****F5**** ****** 


.* *. 




* GET ADDRESS * 


FORMAT 1 *. 


NO 


* OF FIRST * 


LABEL FOUND 


*. . .. 


* EXTENT IN * 


.* 




* FORMAT 1 * 


*. .* 




* LABEL * 


*. .* 


X 


***************** 


♦ YES 


***** 






*PL * 


* **** 




* B3* 


* * 




* * 


...* PK * 




* 


* J 3* 


X 


NOFLLB 


**** 


.*. 


RTNF3 X 


G4 *. 




*****G5********** 


.* *. 




* * 


DATA * 




* SHIFT FORMAT * 


SECURED 


* 


* 1 LABEL LEFT * 


. FI1E .* 




* 1 BYTE * 



.* DATA * 
* SECURITY 
MESSAGE 
*. ISSUED 



**J4******* 

* SET * 
MESSAGE 
ISSUED 

SWITCH ON 

* * 
*********** 



*****K4********** 
♦MSGRTN PL* 
#-*-*-*-*-*-*-*-* 
♦FETCH $$BODSMW * 



************ 



***************** 



*****H5********** 

* INSERT END * 

* INDICATOR * 

* {X«FF» ) IN * 

* LABEL * 

* * 
***************** 



.♦ USER *. NO 
*. LABEL TRACK .*... 
*. AREA .* 



****** 5********** 

* UPDATE LABEL * 
♦EXTENT POINTER * 

* PAST USER * 

* LABEL EXTENT * 



****: 



************ 
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Chart PK. $$B0DAI1: DA Open Input (Section 2 of 4) 



**** 
* * 

* 3 * 

* * 
**** 



**** 

* * 

* 4 * 

* * 
**** 



*****A1 ********** 

* SET LABEL * 
*EXTLNT POINTER * 

* TO EXTENT * 

* LOWER LIMIT * 

* * 
***************** 



* 1 



**** 
CNTXTNT X 

*****B1 ********** 

* CLEAR ACCUM * 

* REG AND SET * 
♦COUNTER REG TO * 

* CONVERT TO * 

* REL. ADDRESS * 
***************** 



MORXTNT 

*****Ci ********** 
♦CONVERT EXTENT * 

* LIMIT TO * 

* RELATIVE ADDR * 

* USING ALTER * 

* FACTORS * 
***************** 



UPPERLT X 

*****B2********** 

* INCREASE * 

* CONVERTED * 

* UPPER LIMIT * 

* BY 1 * 

* * 
***************** 



*****C2********** 

* COMPUTE TOTAL * 
♦NUMBER OF TRKS.* 

* CONTAINED * 

* IN CURRENT * 

* EXTENT * 
***************** 



FINXNT 

*****B5********** 

* INITIALIZE ♦ 

* RETURN REG * 

* MSGLNK WITH * 

* ADDRESS OF * 

* STORSU * 
***************** 



C3 *. 

.* IS *. 
* EXTENT 

ON ANOTHER 
*. LABEL 



*. 



.♦ 



* POINTER 
X* TO NEXT 

* EXTENT 

* IN LABEL 
************ 



#****D1 ********** 

* SET LABEL ♦ 
♦EXTENT POINTER ♦ 

* TO NEXT * 

* CHARACTER IN * 

* EXTENT * 
***************** 


*****D2********** 

* ADD CURRENT * 

* EXTENT TRACKS * 
*TO ACCUMULATED * 
♦VALUE AND SAVE * 

* *K4 * 
***************** 


D3 *. 
.* IS *. 
.* THERE ♦. NO 
*. ANOTHER ...... 

♦. RECORD .♦ 
*. .* 

*. .* X 
*YES **** 
* 


X 

.*. 

El *. 

.* *. 

.* UPPER *. YES 

*. LIMIT .*.... 

♦.CONVERTED.* 

*. .* 

*. .* X 






* 
**** 


X 

*****E2**^******* 
*PUT ACCUMULATED* 

* TTT2 VALUE * 

* IN DSKXTNT * 

* TABLE * 

* *K4 * 
***************** 


X 

*****E3********** 

* MOVE RECORD * 

* POINTER TO * 

* SEEK/SEARCH * 

* ADDRESS * 

* * 
***************** 





CKXTNT X 

*****C5********** 

* INCREASE * 
♦EXTENT ADDRESS * 

* TO NEXT * 

* EXTENT * 

* * 
***************** 



YES .♦ END 
...♦. OF EXTENT 
♦. AREA 



Bl* 

* 
* 
ITRT 



*****F1 ********** 
♦STORE CONVERTED* 

♦ LOWER LIMIT ♦ 

♦ (TTT1) IN * 

♦ TEMPORARY * 

♦ LOCATION * 
***************** 



*****Gl ********** 

* PUT CONVERTED * 

* LOWER LIMIT * 

* (TTT1) IN ♦ 

* DSKXTNT TABLE * 

* *K1 * 
***************** 



**H1******* 

* SET * 

* SWITCH TO * 
* INDICATE 

* UPPER LIMIT * 

* CONVERTED * 
*********** 



**** 

* * 

* 2 ♦ 

* * 
**** 



*****P2********** 

* PUT BIN AND * 

* PACK NUMBER * 

* IN DSKXTNT ♦ 

* TABLE * 

* * 
***************** 



*****G2** ******** 

* INCREASE * 

* POINTER TO * 

* DSKXTNT * 

* TABLE BY * 

* 8 * 
***************** 



**H2******* 

* SET OFF * 

* SWITCH TO * 
* INDICATE * 

* UPPER LIMIT * 

* CONVERTED * 
*********** 



*****P3********** 

* GET CCW * 

* TO READ * 

* FORMAT 3 * 

* LABEL * 

* * 
***** 



*_*_*_*_*_*_*_*_ 
READ 
* FORMAT 3 ♦ 
LABEL 
***************** 



E5 *. 

.♦EXTENT * 

ON SAME 

SYMBOLIC 

'. UNIT 

*. .* 

*. .♦ 



F5 ♦. 

.INCREASE*. 

PACK 

NUMBER 



.* FORMAT * 


. NO 


*. 3 LABEL 


.* 




*. FOUND .* 






*. .* 






*. .* 




X 


*YES 




***** 
*PL * 
* B4* 

* * 
* 

N0F3 


X 






* GET ADDRESS 


* 




♦ OF FIRST 


* 




♦ EXTENT IN 


* 




* FORMAT 3 


* 




♦ LABEL 


* 




***************** 




X 






***** 






*PJ * 






* G5* 







.YES . 


* 


SYMBOLIC 


* 




X...*. 




UNITS IN 




I* 


1 


* 


.SEQUENCE 
* . .* 


.* 




X 




*. .* 






***** 




*NO 






*PJ * 










* B2* 










* * 










* 










STORSU 




X 






*****H5********** 


* 




SET UP 




* 


* 




TO ISSUE 




* 


* 




MESSAGE 




* 


* 




46511 




* 



***** ************ 



***** 
*PL * 
* D4* 



DSKXTNT IS THE NAME GIVEN TO A TABLE 
OF DASD EXTENT INFORMATION IN RELATIVE 
ADDRESSING FORMAT. IT IS LOCATED IN 
THE DTF TABLE AT FI LENAME .P+48 . 



*K4 

TTT2 = ACCUMULATED TOTAL TRACK CONTAINED 
IN ALL PREVIOUSLY OPENED EXTENTS PLUS 
TOTAL TRACKS IN CURRENT EXTENT. 
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Chart PL. $$B0DAI1: DA Open Input (Section 3 of *») 



***** 

*PK * 

* D5* 



***** 
*PJ * 
* F4* 



***** 
*PK * 
* H5* 



* SET UP TO * 

* ISSUE MESSAGE * 

* 46011 * 

* * 
***************** 



*****C1 ********* 
* 

* GET FIRST 

* SYMBOLIC 

* UNIT 
* 
**************** 



* ARE 

THERE USER 
*. LABELS . 



.* USER * 
*.WANT EXTENTS 
*. PASSED .* 



GETMON 

*****F1 ********** 
♦FLEPRTCT PM* 
*_*_*_*_*_*_*_*_* 

* CHECK IF * 

* FILE PROTECT * 

* NEEDED * 
***************** 



****G1 ********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



N0F3 X 

*****B4********** 

* INITIALIZE * 

* RETURN REG * 

* MSGLNK WITH * 

* ADDRESS OF * 

* STORSU * 
***************** 



*****C4 ********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE * 

* 46031 * 

* * 
***************** 



* SET UP TO * 

* ISSUE MESSAGE * 

* 46061 * 

* * 
***************** 



GETFP 

*****02********** 

* INITIALIZE TO * 
*FETCH $$B0DAU1 * 

...X* AFTER FILE * 

* PROTECT * 

* CHECK * 
***************** 



*****E2********** 
*FLEPRTCT PM* 
*_*_*_*_*_*_*_*_* 

* CHECK IF * 

* FILE PROTECT * 

* NEEDED * 
***************** 



****F2********* 

* SVC 2 * 

* FETCH * 

* $$B0DAU1 * 
*************** 



****D4********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 
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Chart PM. $$B0DAI1: DA Open Input (Section 4 of 4) 



****A1 ********* 

* * 

* EXCPRT * 

* * 
*************** 



* SVC 
START 
* I/O * 

***************** 



****A4 ********* 

* FLEPRTCT * 

* * 
*************** 



FLEPRTCT 

*****B4**** ****** 

* GET ADDRESS * 

* OF * 

* COMMUNICATION * 

* REGION * 

* * 
***************** 



*****C2*#******** 

* * * * 

* * SVC 7 * * 
X* * WAIT FOR * * 

* I/O COMPLETE* * 

* * * * 
***************** 



C4 *. 




IS *. 


****C5********* 


FILE *. NO 


* RETURN TO " 


PROTECT .* 


...X* CALLING 


PRESENT .* 


* ROUTINE 


.* 


*************** 



Dl *. 

.* NO *. 

.* RCD FOUND *. 

. OR END OF . 

*. CYLINDER .* 



****D2********* 

* RETURN VIA * 
.X* LINKAGE * 

* REGISTER * 
*************** 



****C4********* 

* SVC 2 * 

* FETCH * 

* $$BOFLPT * 
*************** 



****EX ********* 

* RETURN VIA * 

* LINKAGE * 

* REGISTER+4 * 
*************** 
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Chart PN. $$B0DA01: DA Open Output, Phase 1 (Section 1 of 4) 



♦444A144444**** 

* ENTRY * 

* FROM * 

* $$BQDAIN * 
*************** 



*****B1 ********** 

* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 
***************** 



CI *. 

.* IS *. 

* THIS A * 

RETURN FROM 

*. MESSAGE .* 

*. RTN .* 



**** 

* * 

* 3 * 

* * 
**** 



*N0 



* CALCULATE * 

* ADDRESS OF * 

* FIRST EXTENT * 

* * 
*********** ****** 



*****EL ********** 

* INITIALIZE * 

* MESSAGE * 

* CODE * 

* * 
4444444444******* 

**** 

* * 
*PQ * 

* C4* 
**** 

SAVEFX X 

44444F1 4444 444444 

* * 

* SAVE ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 
444444444****4444 



4444*G1 ********** 

* * 

* SAVE SYMBOLIC * 

* UNIT FOR * 

* FIRST EXTENT * 

* * 
44*************** 



44444H1 ********** 

* SET UP * 

* SEEK ADDRESS * 

* TO GET * 

* VOLUME * 

* LABEL * 
44*************** 



4444*J1**44****4* 

* INSERT * 

* BIN NUMBER * 

* IN SEEK * 

* ADDRESS * 

* * 
4 444444444*****4* 



4****K1 ********** 

* INSERT RECORD * 

* NUMBER OF * 
*VOLLAB (X'03" ) * 

* IN SEEK * 

* ADDRESS * 
**44444***4****** 



**C2******* 

* * 
TURN OFF 

MESSAGE 
SWITCH 

* * 
*********** 



*****02********** 

* * 

* SAVE * 

* SYMBOLIC * 

* UNIT * 

* * 
***************** 



*****E2********** 



***************** 



****P2********* 

* EXIT VIA * 

* REGISTER * 

* MSGLNK * 
*************** 



*****B3********** 

* * 

* MOVE * 

* SYMBOLIC UNIT * 

* TO CCW * 

* * 
***************** 



GETLAB X 

*****C3********** 
*EXCPRT PR* 
*-*-*-*-*-*-*-*-* 

* READ * 

* VOLUME * 

* LABEL * 
***************** 



RECORD 


* 


NO 


FOUND 


.* 


*. . . . 


.* 






*. .* 




X 


*YES 




***** 

*PR * 

* B3* 

* * 



* IS RECORD 


* 


NO 


F4 LABEL 

*. 


* 


*.... 


* . .* 






*. .* 




X 


*YES 




***** 
*PR * 


. 




* B4* 


X 




* * 


***** 




* 


*PP- * 




N0F4 


* B2* 






* * 






* 






CKVTOC 







IS 
LABEL 
•VOL1 1 



.*. 



***** 
*PR * 
* B2* 



F3 

.* IS *. 

SERIAL *. 

NUMBER 
.SPECIFIED.* 



NOSER X 

*****G3********** 

* MOVE * 

* VOLUME SERIAL * 

* NUMBER TO * 

* DLBL * 
N * * 

***************** 



* 2 * 

* * 
**** 

MVPNTR X 

*****H3********** 

* MOVE POINTER * 

* TO F4 LABEL * 

* TO SEEK * 

* ADDRESS * 

* * 
***************** 



*****j3********** 

* SAVE F4 * 

* RECORD * 

* NUMBER FOR * 

* $$B0SD08 * 

* * 
***************** 



.*VOLUME * 
.* SERIAL= 
.X*. EXTENT 
*. SERIAL 



*****G4********** 

* * 

* INITIALIZE * 

* ID OF PACK * 

* TO MOUNT * 

* * 
***************** 



*****H4***4 ****** 

* SET UP TO * 

* ISSUE MESSAGE * 

* 4755A * 

* * 
***************** 



*****J4 ********** 

* INITIALIZE * 
♦RETURN REGISTER* 

* MSGLNK WITH * 

* ADDRESS OF * 

* GETLAB * 
***************** 



***************** 



**** 

* * 

* 3 * 

* * 
**** 
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Chart PP. $$B0DA01: DA Open Output, Phase 1 (Section 2 of 4) 



* * 

* 2 ♦ 

* * 
**** 



B2 *. 

.♦EXTENT *. 

.* UPPER LIM *. 

LT VTOC 

♦ . LOWER .* 

*. LIM .* 

*. .♦ 

♦ NO 



C2 *. 

.♦EXTENT ♦ . 

.♦LOWER LIMIT*. 

GT VTOC 

♦ . UPPER .* 

*. LIM .* 

♦ . .♦ 

*YES 



****A4***+***** 

* ENTRY VIA * 

* REGISTER * 

* MSGLNK * 
*************** 



*_*_*_* 



************** 



CALCULATE * 

ADDRESS OF * 

NEXT EXTENT * 

* 

*************** 



*****C3********** 

* SET UP * 
TO ISSUE * 

MESSAGE * 

* 4741A * 

* * 
***************** 



.X* 



*****D3********** 

* INITIALIZE * 
♦RETURN REGISTER*. 

* MSGLNK ♦ 

* * 
***************** 



X 

***** 
*PQ * 
* G2^ 



END 
OF EXTENT 
. AREA 



.♦ SYMBOLIC 
♦. UNIT 
♦. SAME 
♦ . .* 
♦ . .♦ 
♦NO 


♦ . \ 
.♦ 
* 

it*** 
* 
* 
* 
* 


rES 

X 

**** 
* 

♦ l 
* 


CKOVLP X 

*****G2^*^#*1 
* 

♦ SAVE VTOC 

♦ LOWER 

♦ LIMIT 





***************** 



*****H2^*^*^* + * 

♦ * 

♦ ADJUST * 

♦ EXTENT * 

♦ POINTER * 

♦ * 
***************** 



*****j2********** 

♦ INITIALIZE ♦ 

♦ RETURN REG ♦ 

♦ MSGLNK ♦ 

♦ WITH ADDRESS ♦ 

♦ OF CKOVLP1 * 
***************** 



****K2********* 

* SVC 2 * 

* FETCH * 

* JSBOSDOO * 
*************** 



352 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart PQ. $$B0DA01: DA Open Output, Phase 1 (Section 3 of <») 



****A1 ********* 

* ENTERED VIA * 

* REGISTER * 

* MSGLNK * 
*************** 



**** 

* * 

* 1 * 



**** 
CK0VLP1 X 

*****Bl ********** 

* * 

* GET * 

* ADDRESS * 

* OF EXT V ENT * 

***************** 



****A2********* 

* ENTER VIA * 

* REGISTER * 

* MSGLNK * 
*************** 



NXTEXT 

*****B2********** 
*DELETE PR* 
*_*_*_*_*_*_*_*_* 

* BYPASS * 

* EXTENT * 

* * 
***************** 



END *. YES 

OF EXTENT .* 

. AREA .* 



**** 

* * 

* 2 * 



**** di *. 

.* ARE *• 
NO .* THERE * 
X..*. USER LABELS 



**** 

* * 

* a * 

* * 
**** 



* POSITION 

* EXTENT LIMIT 

* FOR TEST 
* 
************** 

**** 



**** 
INCVAR X 

*****G1 ******* 

* 

* UPDATE 

♦EXTENT POINTE 

*TO NEXT EXTEN 

* 

************** 

**** 



***************** 



*****F2********** 

* INITIALIZE * 

* RETURN REG * 

* MSGLNK WITH * 

* ADDRESS OF * 

* NXTEXT * 
****************** 



**** 

* * 

* 6 * 

* * 
**** 

X 
*****B3********** 

* * 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 4740A * 
***************** 



*****C3********** 

* INITIALIZE * 

* RETURN * 

* REGISTER * 

* MSGLNK * 

* * 
***************** 



****03********* 

* ENTER VIA * 

* REGISTER * 

* MSGLNK * 
*************** 



**** 

* * 

* 7 * 

* * 
**** 

X 
.*. 



B4 

.* ALL *. 
.*EXTENTS FOR*. NO 
♦.SYMBOLIC UNIT.*... 
*. BEEN .* 
♦CHECKED* 



*. 



*YES 



.* ALL *. 




.* EXTENTS *. NO 


*. FOR FILE .* 




*. CHECKED .* 




*. .* 




*. .* 


X 


*YES 


***** 


**** . 


*PN * 


* * . 


* FL* 


* 8 *... 


* * 


* * 


* 


**** 


SAVEFX 


FETCH 




X 




****C4********* 




* SVC 2 * 




* FETCH * 




* $$B0DA02 * 





*************** 



El *. 


*****E2********** 


***** t 3***** 


***** 


* *. 


* * 


♦DELETE 


PR* 


FIRST *. NO 


*SET UP TO ISSUE* 


*_*_*_*_*_*- 


*-*-* 


EXTENT 2 .* 


...X* MESSAGE * 


* BYPASS 


* 


TRACKS .* 


* 4766A * 


* EXTENT 


* 



***************** 



**** 



**** 



END 
OF EXTENT 
. AREA 



* IS * 
EXTENT 
ON SAME 
UNIT 



* UPDATE FIXED * 

* POINTER TO * 

* NEXT EXTENT * 

* * 
***************** 



*****G2****#***** 

* INITIALIZE * 

* REGISTERS * 

* FOR USE BY ♦ 

* MESSAGE * 

* PHASE * 
***************** 



****H2********* 

* SVC 2 * 

* FETCH * 

* $$BOMSGl * 
*************** 



- .* PREV *. 
.♦EXTNT UPPERS. YES 
.X*LIMITS LT CURR.*... 
*. EXTENT .* 



.* PREV *. 
EXTENT LU *. YES 
GT CURR .*..X 
. EXTENT .* 



Direct Access Charts 353 



Chart PR. $$B0DA01: DA Open Output, Phase 1 (Section 4 of 4) 



***** 

*PN * 
* D3* 



***** 
*PN * 
* B5* 



****A5********* 

* * 

* DELETE * 

* * 
*************** 



* SET UP TO * 

* ISSUE MESSAGE * 

* 47061 * 

* * 
***************** 



* SET UP TO * 

* ISSUE MESSAGE * 

* 47061 * 

* * 
***************** 



* SET UP TO 

* ISSUE MESSAGE 

* 47041 

* 
**************** 



SET UP TO * 

ISSUE MESSAGE * 

47041 * 

* 

**************** 



****C1********* 

* SVC 2 * 
♦FETCH $$B0MSG1 * 

* * 
*************** 



* DECREASE END 
*0F EXTENT AREA 

* BY EXTENT 

* LENGTH 



*****C5********** 

* * 

* CALCULATE * 

* LENGTH TO * 

* MOVE EXTENT * 

***************** 
**** '. 



****01 ********* 

* * 

* EXCPRT * 

* * 
*************** 



***************** 



**** 
RECMOV X 

*****D5********** 

* * 

* MOVE ONE * 

* EXTENT * 

* DOWN * 

***** ************ 



***** E5********** 

* INCREASE * 

* EXTENT * 

* POINTER * 

* BY EXTENT * 

* LENGTH * 
***************** 



.* *. 

* I/O *. NO 

COMPLETE .*... 



*****P2********** 

* * * * 

* * SVC 7 * * 
.X* WAIT FOR I/O* *. 

* * COMPLETE * * 

* * * * 
***************** 



***** P5********** 

* * 

* DECREASE * 

* COUNTER OF * 

* AMOUNT TO * 

* MOVE BY 20 * 
***************** 



X 

.*. 

Gl *. 

.* NO *. 

.* RECORD *. YES 

♦FOUND OR END OF*.... 

♦.CYLINDER .* 



****G2********* 

* RETURN * 

* VIA * 

* LINK REG * 
*************** 



****H1********* 

* RETURN ♦ 

* VIA * 

* LINK REG + 4 * 
*************** 



****H5********* 

* RETURN * 

* VIA * / 

* LINK REGISTER ♦ 
*************** 



354 DOS LIOCS Volume 3 SAM and DAM for DASD 



Chart QA. $$B0DA02: DA Open Output, Phase 2 (Section 1 of 4) 



****A1********* 

* ENTRY * 

* FROM $$BQDA01 * 

* * 
*************** 



*****Bi ********** 



**** 

* * 

* 2 ♦ 



*****B3********** 



* GET ADDRESS * 


NO .* VOL1 *. 






* MOVE CCW 


* 




.* LAST *. NO 








* OF CCB * 




.*. LABEL .* 




* TO READ 


* 




*. RECORD ON .*.. 








* CHAIN * 




*. FOUND .* 




* KEY, DATA 


* 




♦.CYLINDER .* 








* * 




♦ . .* 




* 


* 




*. .* 








***************** 


X 


♦ . .* 




***************** 






X 








***** *YES 










*YES ***** 








*QD 


* 




**** * 






* 


QD ♦ 








* B3* 




* * 






* 


B2* 








* * 






*QD *... 








* * 








* 






* El* 






X. 


* 






X 


NOVOL1 




**** x 






REVTOC 






.*. 




X 


LIMRCH .*. 






NXTSU X 








CI *. 




*****C2********** 




C3 *. 






*****C4**** ****** 








.* *. 




* * 




.* *. 






* GET ADDRESS * 








. ♦ RETURN *. YES 


* GET STARTING * 




.* END * 


. YES 


* OF FIRST * 








*.FROM MESSAGE .*.... 


* CCHHR * 




*. OF VTOC 


.*. 




* EXTENT FOR * 








*. ROUTINE .* 




* OF VTOC * 




*. .* 






* SYMEOLIC UNIT * 








*. .* 




* LABEL * 




*. .* 






* * 








*. .* 


X 


***************** 




*. .* 






***************** 








*NG 


***** 
*QC * 
* B5* 
* * 
* 
TSTRPY 






♦ NO 
X 






Ix. ........ 


















X 




X 




.*. 






COMP X 








*****D1 ********** 




***** D 2********** 




D3 *, 






*****D4********** 








* CALCULATE * 




*EXCPRT OD* 




,* *. 






* UPDATE EXTENT * 








* ADDRESS * 




*_*_*_*_*_*_*_*_* 




.* IS * 


. YES 


* ADDRESS BY * 








* OF FIRST * 




* GET VTOC * 




*. LABEL A 


.* 




* 20 TO GET * 








* EXTENT * 




* DEFINITION * 




♦.FORMAT 1 .* 






♦EXTENT ADDRESS * 








* * 




* LABEL * 




*. .* 






* FOR NEXT FILE * 








***************** 




***************** 




*. .* 
*NO 
**** 




x ***************** 
***** 
*QB * 
















* * 




* 


31* 
















** *... 




* 


* 
















* G4* 






* • 








X 




X 




**** 




SVF1AD X 








.*. 




.*. 




X 






.*. 




.♦. 




El *. 




E2 ♦ . 




*****E3********** 




E4 *. 




E5 ♦. 




.* *. 




.* *. 




* MOVE ADDRESS 


* 




.* *. 




.♦EXTENT ♦. 




.* END *. YES 


.* LABEL *. NO 


* TO SEARCH 


* 




.* LAST *. NO 
*. EXTENT .*.. 




.♦ ON SAME * 


yes! 


*. OF EXTENT .*.... 
*. AREA .* 


*. FOUND .* 
*. .* 




* AND TO 

* SEEK/SEARCH 


* 
* 






.X*. SYMBOLIC 

*. UNIT .* 


*. . .. 






*. PROCESSED.* 






*. .* 




*. .* 






* ADDRESS 


* 




*. .* 




♦ . .* 




*. .* 


X 


*. .* 






*************** 






*. .* 




♦ . .* 




*NO 


***** 


♦ YES 












*YES 




*N0 




**** 


*QD * 






















* * . 


* Bl* 






















* 1 *... 


* * 


















X 




* * 


* 


















**** 




**** 


NOXT 


X 
















* * 




SAVFRX X 




.♦. 












FETCH '. 




* 1 * 




*****p^ ********** 




F2 *. 












X 




* * 




* SAVE FIRST * 




.* IS ♦ . 












****F4********* 




**** 




* EXTENT * 




.* LABEL *. NO 










* SVC 2 * 








* ADDRESS AND * 




*. A FORMAT .*. 


.X 










♦FETCH $$BQDA03 * 








* SYMBOLIC * 




*. 4 .* 












* * 








* UNIT * 




*. .* 












*************** 








***************** 




*. .* 
♦ YES 


X 

***** 
*OD * 
* B4* 
* * 
* 
NOF4 
















X 




X 










♦G4 








*****Gi ********** 




*****G2********** 










QD-E1 








* * 




* SAVE VTOC * 










QB-C1 








* GET CCW * 




* UPPER * 


















* TO READ * 




* LIMIT * 


















* KEY, DATA * 




* CCHH * 


















* * 




* * 


















***************** 




***************** 
!y 


















X 


RDFLAB X 


















*****Hl ********** 




*****H2********** 


















* * 




* MOVE CCW * 


















* SET UP * 




* TO READ * 


















* SEEK/SEARCH * 




* COUNT, KEY * 


















* ADDRESS * 




* AND DATA * 


















* * 




* FROM VTOC * 


















***************** 




***************** 





















*****J1 ********** 

* * 

* MOVE * 

* SYMBOLIC UNIT * 

* TO CCB * 

* * 
***************** 



*****«! ********** 

♦EXCPRT CD* 

*_*_*_*_*_*_*_*_* 

* GET V0L1 * 

* LABEL * 

* * 
***************** 



*****J2********** 
*EXCPRT QD* 

*_*_*-*_*_*_*_*_* 

♦ GET * 

♦ LABEL FROM ♦ 

♦ VTOC ♦ 
***************** 
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Chart QB. $$B0DA02: DA Open Output, Phase 2 (Section 2 of 4) 



♦QA-D3 
QC-C4 
***** 



***** 
*QC * 
* CI* 



SVF1AD X 

***** B1 ********** 

* SET ADDRESS * 
*0F FIRST EXTENT* 

* IN FORMAT 1 * 

* LABEL * 

* * 
***************** 



TESTXT .*. 






CI *. 






.♦ IS ♦ . 






.* THERE * 


. NO 


*.AN EXTENT IN 


.* 




*. LABEL •* 






*. .* 






*. .* 




X 


♦YES 




***** 


**** 




*OA * 


* * 




* E3* 


*QC ♦ ... 




* * 


* Fl* 




* 


**** 




HERE 


CHECK X 






*****D1******** 






* GET ADDRESS 


* 




* OF FIRST 


* 




* EXTENT FOR 


* 




* SYMBOLIC 


* 




* UNIT 


* 




***************** 





**** 

* * 

* 1 * 



CFVRFX 

*****£][********** 

*CHCK OD* 

*_*_*_*_*_*_*_*_* 

* CHECK FOR * 

* OVERLAP * 

* * 
***************** 



**** 

* * 

* 5 * 



X 

***** , 
*QC * 
* B2* 



HI *. 

.♦DEVICE * 

TYPE 

2311 OR 

. 2314 

*. .* 

*. .* 



TW311 

*#***jl ********** 

* INITIALIZE * 

* CYLINDER * 

* WITH UPPER * 
♦LIMIT CYLINDER * 

***************** 



*****K1 ********** 

* GET ADDRESS * 

* OF MAXIMUM * 

* HEAD FOR * 

* 2311 * 

* * 
***************** 



* 2 * 

* * 
**** 



*****H2********** 

* GET ADDRESS * 

* OF MAXIMUM * 
.X* CYLINDER * 

* FOR 2321 * 

* * 
***************** 



*****J2*** ******* 

* INITIALIZE * 

* CYLINDER * 

* WITH UPPER * 

* LIMIT .* 

* CYLINDER * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



MOVELL X 

*****D3********* 

* MODIFY UPPER 
♦LIMIT CYLINDER 

* WITH LOWER 
♦LIMIT CYLINDER 

* IN CHECK AREA 
**************** 



*****C3********** 
*CHCK QD* 

*_*_*_*_*_*_*_*_* 

* CHECK FOR * 

* OVERLAP * 

* * 
***************** 



**** 

* 5 * 

* * 
**** 





* OVERLAP *. YES 


* 


EXISTS .♦ 

*. .* 
*. .* 


"•* 




*. .* 


X 




*NO 


***** 
*QC * 
* B2* 




* 


* * 




X 


SCROP 




.*. 






E3 *. 






.* LAST *. 






* SPLIT CYL *. YES 


* 


BEEN CHECKED .* 
*. .* 

*. .* 






*. .* 


X 




*NO 


**** 
* 
* 5 

**** 




X 




*****F3********** 




* 


GET ADDRESS * 




* 


OF LOWER * 




* 


LIMIT HEAD * 




* 


OR CYLINDER * 




* 


NUMBER * 

}c*************** 





*****B5********* 

* RESET CYL 
>♦ OR STRIP NO 

* WITH X'OO' IN 

* CHECK AREA 
* 
**************** 



*****C5********** 

* DECREASE * 

* POINTERS TO * 

* CHECK CYL * 

* OR SUB-CELL * 

* NUMBERS * 
***************** 



.* ADDRESSED *. Nl 
*. NUMBER AT A .*. 
*. MAXIMUM .* 



*. NUribtK Al A .^... 

*. MAXIMUM .* 




*. .* 


**** 


*. .* 


* * 


♦ YES 


* 3 * 




* * 




**** 

x! 


ESTC2 X 


INCRMT X 


*****H3**^****^+ 


*****H4****** 


* RESET HEAD ♦ 


* 


* OR CYLINDER ♦ 


♦ INCREASE 


* NUMBER IN * 


* ADDRESSED 


* CHECK AREA * 


* NUMBER 


*WITH UPPER LIM * 


♦ BY 1 


***************** 


************* 



***** £5********** 

* * 

* CALCULATE ♦ 

* ADDRESS OF ♦ 

* NEXT EXTENT * 

* * 
***** ************ 



END 
OF EXTENT 
. AREA 



G5 ♦. 
.♦EXTENT * 
♦ ON SAME 
SYMBOLIC 
*. UNIT 



***** 
*QC ♦ 
* Bl* 



**** 

* * 

* 1 * 

* * 
**** 



*****j3********** 

* DECREASE * 

* POINTERS TO ♦ 

* CHECK CYL OR ♦ 

* STRIP NUMBERS ♦ 

* * 
***************** 



.* ADDRESSED ♦. NO 

. NUMBER AT A .♦ 

♦. MAXIMUM .♦ 



**** 

* * 

* 2 * 



**** 

* * 

* 3 ♦ 

* * 
**** 



V 
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Chart QC. $$B0DA02: DA Open Output, Phase 2 (Section 3 of 4) 













* LABEL *. NO 
















*! 


FOUND .* 














**QB-D3,G1 






*. .* 










******QB-F5, 


G5 


***** 






*. .* 




**** 




***** 


* * 




* * 






*. .* 


X 


* * 




*QA * 


* * * 




* *** 






*YES 


***** 


* 4. * 




* CI* 


**** * * 




* * 








*QD * 


* * 




* * 


* * * 




* 








* B2* 


**** 




* 


* 1 *..X. 












* * 








* * 












* 








**** 




. 








REVTOC 


X 






CKSTOP X 




SCROPN X 






X 




.*. 




TSTRPY X 


*****Bl ********** 




*****B2********** 


*****B3********** 




B4 *. 




**B5******* 


* GET ADDRESS * 




* RESTORE 


* 


* 


CHANGE * 




.* ANY *. 




* TURN OFF 


* OF NEXT * 




* SEEK/SEARCH 


* 


* 


COMMAND * 




.* EXTENTS * 


NO 


* SWITCH 


* EXTENT IN * 




* ADDRESS TO 


* 


* 


CODE IN CCW * 




*. LEFT TO 


*.. .. 


* (RETURN FROM 


* LABEL * 




* GET FORMAT 1 


* 




TO READ * 




*. PROCESS .* 




* MESSAGE 


* * 




* LABEL 


* 


* 


* 




*. .* 




* ROUTINE) 


***************** 




***************** 


***************** 




*. .* 




*********** 



CI *. 




*****C2********** 






*****C3********** 


.* *. 




*EXCPRT PQ* 






*GETPTR PQ* 


.* ADDRESS *. NO 


*_*_*_*_*_*_*_*_* 






*- 


*-*_*-*-*-*_*-* 


*. OF LABEL .* 




* GET * 






* 


GET * 


*. POINTER .* 




* FORMAT 1 * 






* 


POINTER * 


*. .* 




* LABEL * 






* 


* 


*. .* 


X 


***************** 








*************** 


*YES 


***** 

*QB * 

* CI* 

* * 










X 


.......... .xl 


TESTXT 


X 












* * 


'. x 




.*. 








* 2 * 


*****oi ********** 




D2 *. 








* * 


*GETPTR PQ* 




.* *. 








**** 


*_*_*_*_*_*_*_*_*• 




.* LABEL *. NO 








* GET LABEL * 




*. FOUND .* 










* POINTED TO * 




*. .* 










* * 




*. .* 










***************** 




*. .* 




X 










*YES 


***** 












*QD * 












* 


B5* 










; 


* * 
* 






'. X 




X 


NRF01 






.*. 




.* . 










El *. 










*****£ 3** ******** 


.* *. 




.* *. 






* 


INITIALIZE * 


. NO .* IS *. 




.* CAN *. NO 




* 


REGISTER FOR * 


....*. LABEL .* 




*. FILE BE .* 
♦.SCRATCHED.* 






. X* 
* 


RETURN TO * 


♦.FORMAT 3 .* 






THIS PHASE * 



C4 *. 

.* IS *. 

NEXT 

EXTENT ON 

. SAME 

*.UNIT .* 

*. .* 

*YES 



* * 

* 

SVF1AD 



*****FL ********** 

* GET ADDRESS * 

* CF FIRST * 

* EXTENT IN * 

* FORMAT 3 * 

* LABEL * 
***************** 




X 
***** 
*QB * 
* Dl* 





***************** 



*****P3 ********** 



LOAD 

MESSAGE 

47971 



***************** 



DATA 

SECURED 

FILE 



LOAD * 

MESSAGE * 

47981 * 

************* 



DATA *. NO 
SECURED .*... 
FILE .* 



****HI********* 

* SVC 2 * 

* FETCH * 

* SSBODSMW * 
*************** 



* 2 



**** 
SCRTCH X 

*****H2********** 

* CHANGE * 

* COMMAND * 

* CODE IN * 

* CCW * 

* TO WRITE * 
***************** 



*****j2********** 
*EXCPRT PQ* 
*_*_*_*_*_*_*_*_* 

* WRITE * 

* ZEROS OVER * 

* LABELS * 
***************** 



****H3 ********* 

* SVC 2 * 

* FETCH * 

* $$BODSMW * 
*************** 



*****G4** ******** 

* SET UP TO * 

* ISSUE * 
X* MESSAGE * 

* 4744A * 

* * 
***************** 



****H4********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



*****C5********** 

* * 

* SAVE * 

* SYMBOLIC * 

* UNIT * 



.* DOES *. 
■ USER WANT 

EXTENT 
■. DELETED . 



*****£ 5********** 

* DECREASE * 

* END OF * 
*EXTENT STORAGE * 

* BY EXTENT * 

* LENGTH * 
***************** 



***** P5********** 

* CALCULATE * 

* LENGTH TO * 

* MOVE * 

* EXTENTS * 

* * 
***************** 

**** 



*****G5********** 

* * 

* MOVE ONE * 

* EXTENT * 

* DOWN * 

* * 
***************** 



*****K5********** 

* INCREASE * 

* EXTENT * 

* POINTER BY * 

* EXTENT * 

* LENGTH * 
***************** 



***** j 5********** 

* DECREASE * 

* COUNTER OF * 

* AMOUNT TO * 

* MOVE BY * 

* 20 * 
***** ************ 



COUNTER 


* 


YES 




GT 


.* 


*.... 




** . .* 








*. .* 




X 




*N0 




**** 






* 


* 






* 5 


* 


X 




* 


* 


**** 




**** 


* * 








* 4 * 








* * 








**** 









Direct Access Charts 357 



Chart QD. $$B0DA02: DA Open Output, Phase 2 (Section 4 of 4) 



***** 

*CA * 
* El* 



***** 
*0C * 
* D2* 



NOXT 

*****B1********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47601 * 

* * 
***************** 



* l *.x 



**** 
REVTOC X 

##♦##32********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47091 * 

* * 
***************** 



**QA-E2,F2 



*****[} 3*** ******* 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47061 * 

***************** 



N0F4 

***** 04****4*4*** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47041 * 

* * 
***************** 



NRF01 X 

*****B5********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47011 * 



******* 



******** 



****C3********* 

* SVC 2 * 

* FETCH * 

* $$B0MSG1 * 
*************** 



****D1********* 

* * 

* GETPTR * 

* * 
*************** 



GETPTR .*. 

El *. 
.♦POINTER*. 
.* TO *. NO 
*. ANOTHER LABEL.*... 
*. EXIST .* 



****D3********* 

* * 

* EXCPRT * 

* * 
*************** 



****[) 5********* 

* * 

* CHCK * 

* * 
**** *********** 



EXCPRT X 




CHCK .*. 


****E3*********** 




E5 *. 




****E4********* 


.* LOWER *. 


* SVC * 


* RETURN * 


YES .* LIMIT *. 


EXCP ; 


* VIA *X.. 


*(LABEL)GT UPPER* 


* * 


* LINK REG * 


*. LIMIT .* 




*************** 


*(XTNT).* 



***** 
*QA * 
* E3* 



*****Fl ********** 

* MOVE POINTER * 

* TO SEEK/ * 

* SEARCH ADDR * 

* TO READ * 

* LABEL * 
***************** 



*****G1 ********** 

*EXCPRT QD* 
*_*_*_*_*_*_*_*_* 

* GET * 

* LABEL * 

* * 
***************** 



G3 *. 
.* NO *. 
.* RECORD *. YES 
♦FOUND OR END OF*.... 
♦.CYLINDER .* 



****H3********* 

* RETURN 

* VIA 

* LINK REG + 4 
*************** 



*****P4*** ******* 

* * * * 

* * SVC 7 * * 
X* * WAIT FOR * *. 

* I/O COMPLETE* * 

* * * * 
***************** 



****G4** ******* 

* RETURN * 
X* VIA * 

* LINK REGISTER * 
*************** 



*****P5********** 

* COMPARE * 

* UPPER LIMIT * 

* (LABEL) WITH * 

* LOWER LIMIT * 
*(NEW XTNT) *H5* 
***************** 



**** G5********* 

* RETURN * 

* VIA * 

* LINK REG + 4 * 
*************** 



*H5 
THIS OPERATION 
SETS THE CONDITION 
CODE, WHICH IS 
TESTED BY THE 
CALLING ROUTINE. 



****J1********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart QE. $$B0DA03: DA Open Output, Phase 3 (Section 1 of 4) 



**** 

* * 

* i * 

* * 
**** 



****A1 ********* 

* ENTRY * 

* FRGM * 

* $$B0DA02 * 
*************** 



z****Bl ********** 

* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
*** 



.* RETURN 
FROM 
*.$$B0DA04 



*****0l ********** 

* * 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 
***************** 



**** 

* * 

* i * 

* - * 
**** 



* SAVE * 

* SYMBOLIC * 

* UNIT * 

* * 
***************** 



*****Q3********** 

* INITIALIZE * 

* EXTENT * 

* COLNTER * 

* WITH 1 * 

* * 
***************** 



*****C3********** 

* * 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 
***************** 



**** 

* # 

* 3 * 



****B5********** 

SET UP * 

SEEK/SEARCH * 

ADDRESS TO * 

GET VOLUME * 

LABEL * 

**************** 



*****C5********** 

* MOVE * 

* SYMBOLIC * 

* UNIT TO * 

* CCB * 



.* RETURN *. YES 
♦.FROM MESSAGE .*.... 
*. ROUTINE .* 



**E2******* 

* SET * 
MESSAGE 
SWITCH 

OFF 

* * 
*********** 



*****P2********** 



.* END 


*. YES 


* SAVE 


*. OF EXTENT 


.*.... 


* SYMBOLIC 


*. AREA 


* 


* UNIT 


*. .* 




* 


*. .* 


X 


**************** 


*NO 


***** 






*QH * 








* Bl* 








* * 
* 








NOXT 






SEROK X 








*****Gl ******* 


it*** 


X 


* COMPUTE 


* 


****G2********* 


* ADDRESS OF 


* 


* EXIT VIA 


* FIRST 


* 


* REG MSGLINK 


* EXTENT 


* 


* 





* UPDATE EXTENT * 

* ADDRESS BY * 

* EXTENT LENGTH * 

* * 
***************** 



END 
OF EXTENT 
. AREA 



.* IS *. 
.* EXTENT ON *. 
.SAME SYMBOLIC. 
*. UNIT .* 



*********** 



*****05********** 

* * 

* GET CCW * 

* TO READ * 

* KEY, DATA * 

* * 
***** ************ 



***** E5********** 
*EXCPRT QH* 
*_*_*_*_*_*_*_*_* 

* GET * 

* VOL1 *' 

* LABEL * 
***************** 



*****F4********** 

* INCREASE * 

* EXTENT * 
X* COUNTER BY * 



***************** 



VOL1 

LABEL 

FOUND 



***** 
*QH * 
* B3* 



***************** 



*************** 



* ARE *. NO 

THERE USER .*... 
*. LABELS .* 



*****jl ********** 

* CHANGE * 

* MAXIMUM NO * 

* OF EXTENTS * 

* IN FORMAT 1 * 

* LABEL TO 2 * 
***************** 



*****«! ********** 

* CHANGE * 

* MAXIMUM NO * 

* OF EXTENTS * 

* TO 15 WITH * 

* USER LABELS * 
***************** 



*****j2********** 
♦CHANGE MAXIMUM * 

* NUMBER OF * 

* EXTENTS IN * 
♦FORMAT 1 LABEL * 

* TO 3 * 
***************** 



STORCT 

*****G3********** 

* SAVE * 

* NUMBER OF * 

* EXTENTS * 

* COUNTED * 

* * 
***************** 



*****H3********** 

* ADD NUMBER * 

* COUNTED TO * 

* TOTAL NUMBER * 

* OF EXTENTS * 

* * 
***************** 



.* DOES *. 

.*NO„ COUNTED*. 

.EXCEED LIMIT . 

*. (CTCFJ .* 



**** 

* * 

* 2 * 

* * 
**** 



****«G5******«* 

* GET STARTING 

* ADDRESS 

* 1CCHHRI OF 

* vroc 

* 
*************** 



*****H5********** 
♦EXCPRT QH* 
*-*_*_*_*_*_*-*_* 

* GET VTOC * 

* DEFINITION * 

* LABEL * 
***************** 



***** 
*QF * 
* B3* 



**** 

* * 

* i * 

* * 
**** 



TOMANY 




< 




*****«3********** 


* 


SET UP TO 


* 


* 


ISSUE 


* 


* 


MESSAGE 


* 


* 


47451 


* 


* 




* 


***************** 




.FTCHMSG 




X 






***** 






*QH * 






* [ 


)3* 
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Chart QF. $$B0DA03: DA Open Output, Phase 3 (Section 2 of 4) 



.* IS 

LABEL 
♦.FORMAT 4 



**03******* 

* SET * 
DADSM 

BIT ON IN 
FORMAT 4 

* LABEL * 
*********** 



*****E3********** 

♦WRITE OG* 
*_*_*_*_*_*_*_*_* 

*, WRITE AND * 

* VERIFY FORMAT * 

* 4 LABEL * 
***************** 



*****F3********** 

* SAVE * 

* UPPER-LIMIT * 

* CCHH OF * 

* VTOC * 

* * 
***************** 



*****G3********** 
♦FNDOPN QG* 
*-*-*-*-*-*-*-*-* 

* FIND OPEN * 

* AREA IN * 

* VTOC * 
***************** 



*****H3********** 

* SAVE * 

* ADDRESS * 

* OF OPEN * 

* AREA * 

* * 
***************** 



NRFF4 

*****B4* ********* 

* SET UP TO * 

* ISSUE * 
...X* MESSAGE *. 

* 47041 * 



***************** 



N0F4 

*****C4********** 

* SET UP TO * 

* ISSUE * 
...X* MESSAGE *• 

* 47041 * 



***************** 



***** 
*QH *■ 
* D3* 



.♦ANOTHER*. 
.* EXTENT IN *. NO 
.THE FORMAT 1 .*... 
*. LABEL •* 



*****K3********** 

♦FNDOPN QG* 
*_*_*_*_*_*_*_*_* 

* FIND OPEN *. 

* AREA IN * 

* VTOC * 
***************** 



****j4********* 

* SVC 2 * 

* FETCH * 

* $$B0DA04 * 
*************** 
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Chart QG. $$B0DA03: DA Open Output, Phase 3 (Section 3 of 4) 



****A1 ********* 

* * 

* ' WRITE * 

* * 
*************** 



* GET CCW * 

* TO WRITE * 

* KEY, DATA * 

* * 

*** 44444*4* 4**4 44 



44***C1 ********** 

* SET COMMAND * 

* CODE TO * 

* WRITE AND * 

* SET COMMAND * 

* CHAIN BIT ON * 

444*444444 4 444444 



*44**D1 444*4***** 
*EXCPRT OH* 
*_*_*,.*_*_*_*_4_4 

* WRITE * 

* LABEL * 

4 4 

44*************** 



LABEL 


*. NO 


FOUND 


.* 






* 




*. .* 






*. .* 




X 


*YES 




***** 
*QH * 








* B4* 








* * 








* 








NRF09 


X 






4F1********** 






* 




REMOVE 


* 




CHAIN BIT 


* 




FROM 


CCW 


* 





**** A3 ********* 
4 * 

* FNDOPN * 

* * 
4*4**44*4****** 



4*******4******** 



****G1********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
********* 44**** 



* GET CCW * 

* TO READ * 
♦COUNT, MULTIPLE* 

* BIT ON * 
***************** 



*****C3***= 
*EXCPRT 

*_*_*_*_*_: 

* FIND 

* OPEN 

* AREA 

********** 



OPEN *. NO 
AREA .*... 
FOUND .* 



IS 

AREA IN 
VTOC 



X 
***** 
*QH * 
* B2* 



*****P3********** 

* * 

* GET ADDRESS * 

* OF AREA TO * 

* WRITE LABEL * 

* * 
***************** 



AREA 

BLANK 

LABEL 



y 



****H3********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart QH. $$B0DA03: DA Open Output, Phase 3 (Section 4 of 4) 



***** 

*QE * 
* Fl* 



***** 
*QE * 
* F5* 



***** 
*QG * 
* El* 



NOXT X 

*****B1 ********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47601 * 

* * 
***************** 



N0R00M X 

*****B2********** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47001 * 

* * 
***************** 



**B3********** 

SET UP TO * 

ISSUE * 

MESSAGE * 

47061 * 



**********; 



NRF09 X 

*****B4*# ******** 

* SET UP TO * 

* ISSUE * 

* MESSAGE * 

* 47091 * 

* * 
***************** 



****0i********* 

* * 

* EXCPRT ' * 

* * 
*************** 



*QE-K3 


. 


QF-B4 


C4. 


**** 




* * 




* *.X. 


* * * 




**** 




TCHMSG 


. 




X 


****D3********* 




SVC 2 


* 


FETCH 


* $$B0MSG1 


*************** 



**************** * 



*****F2********** 

* * * * 

* * SVC 7 * * 
.X* WAIT FOR I/O* *. 

* * COMPLETE * * 

* * # * 
***************** 



Gl *. 

.* NO *. 

.* RECORD *. YES 

♦FOUND OR END OF*.... 

♦.CYLINDER .* 

*. .* 



****G2***** 

* RETURN * 

* VIA * 

* . LINK REG * 
*************** 



****H1********* 

* RETURN * 

* VIA * 

* LINK REG + 4 * 
*************** 
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Chart QJ. $$B0DA04: DA Open Output, Phase 4 (Section 1 of 4) 



****A1 ********* 

* ENTRY * 

* FROM * 

* $$B0DA03 * 
*************** 



*****B1 ********** 

* INITIALIZE * 

* BASE FOR * 

* COMMON * 

* ROUTINES AND * 

* DSECTS * 
***************** 



*****C1 ********** 

* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 
***************** 



**** 

* * 

* 4 * 



B3 *. 

* IS 

EXTENT 

JUST 1 

TRACK 



DEVICE 
TYPE 
2321 



**** 

* * 

* 3 * 

* * 
**** 



***** B5********** 

* INSERT * 

* UPDATED * 

* LOWER * 

* LIMIT INTO * 

* EXTENT * 
***** ************ 



.* RETURN * 
*.FROM MESSAGE 
*. ROUTINE .* 



NOMSG 

*****£!********** 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT IN * 

* FORMAT 1 * 

* LABEL * 
***************** 



.* ARE *. 

THERE 

♦USER LABELS* 

*. .* 



*****G1 ********** 

* MOVE INCOMING * 

* EXTENT TO * 

* FIRST EXTENT * 

* IN Fl LABEL * 

* * 
***************** 



*****H1 ********** 

* CHANGE TYPE * 

* TO INDICATE * 

* USER LABEL . * 

* EXTENT * 

* * 
***************** 



*****jl ********** 

* CHANGE * 

* EXTENT * 

* SEOUENCE NO * 

* TO ZERO * 

* * 
***************** 



*****«! ********** 

* CHANGE EXTENT * 

* UPPER LIMIT * 

* TO EQUAL *. 

* LOWER LIMIT * 

* IN Fl LABEL * 
***************** 



*****D2********** 

* GET ADDRESS * 
X* OF CCB * 

* CHAIN * 

***************** 



*****E2********** 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT * 

* * 
***************** 



**P2******* 

* * 
TURN OFF 

MESSAGE 
SWITCH 

* * 
*********** 



*****G2********** 

* * 

* SAVE * 

* SYMBOLIC * 

* UNIT * 

* * 
***************** 



****H2********* 

* EXIT VIA * 

* REG MSGLNK * 

* * 
*************** 



TWTY1 

*****D3********** 

* GET CONSTANTS * 

* FOR 2321 * 

* TO UPDATE * 

* LOWER LIMIT * 

* * 
***************** 



* 2 



DEVICE 
TYPE 
2311 



*****D4**** ****** 

* ADJUST * 

* ADDITION * 

* FACTORS AND * 
*HEAD CONSTANTS * 

* FCR 2314 * 
***************** 



**** 

TWTY11 X 

*****E3******* 

* UPDATl 

* LOWER HL-AD 

* NUMULK BY 



************ 



*****C5********** 

* UPDATE * 

* LABEL * 

* EXTENT * 

* ADDRESS * 

* * 
***************** 



**** 
FNSHF1 X 

***** 05 ********** 

* CHECK FOR * 

* EXPIRATION * 

* DATE USING * 

* SYSDC * 

* MACRO * 
***************** 



***** £5********** 

* MOVE FIELDS * 

* FROM DLBL * 

* TO LABEL * 

* AREA * 



*** 



************* 



* LOWI K * 

IILAI) 

RCACIIl D 

LIMI r 



*****G3********** 

* RESET LOWER * 

* LIMIT HEAD * 

* AND UPDATE * 

* NEXT HEAD * 

* * 
***************** 



***** p5#********* 

* SET TYPE * 

* INDICATOR * 

* IN LABEL * 

* FOR DIRECT * 

* ACCESS * 
***************** 



*****G5********** 

* SET NUMBER * 

* OF EXTENTS * 

* IN LABEL * 

* * 
***************** 



.* NEXT *. 












.* *. 


.* HEAD *. NO 










NO .* CREATING 


*. REACHED .* 












...*. DATA SECRD 


*. LIMIT .* 












*. FILE 


*. .* 












* . .* 


*. .* 


X 










*. .* 


*YES 


*** 
* 

* 3 
* 


* 
* 
* 








*YES 




**** 










X 








1 




X 


*****J3********** 












** j 5******* 


* RESET HEAD * 












* SET DATA 


* AND UPDATE * 












* SECURITY 


* FIRST * 












* SWITCH IN 


* CYLINDER * 












* FMT 1 


* * 












* 


***************** 












** ********* 

x! 














X 
***** 


X 












*QK * 


.*. 












+ BL* 


K3 *. 






*****K4 ********** 


* * 


.* FIRST *. 






* 


RESET FIRST 


* 


* 


.* CYLINDER *. YES 




* 


CYLINDER AND 


* 




*. REACHED .* 
*. LIMIT .* 






X* 

* 


UPDATE 
SECOND 


* 










*. .* 






* 


CYLINDER 


* 




*. .* 






***************** 
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Chart QK. $$B0DA04: DA Open Output, Phase 4 (Section 2 of 4) 



***** 

* * 

* * * 



**** 

PLUGXT ) X 

*****B1 ********** 

* * 

* MOVE * 

* EXTENT TO * 

* LABEL * 

* * 
***************** 



*****d ********** 



UPDATE * 

EXTENT * 

ADDRESS * 

* 

************* 



CRETF3 X 

*****B2******** 

* PUT ADDRESS 

* OF FIRST 

* OPEN AREA 

* IN POINTER 

* FIELD IN Fl 
*************** 



WRITE 
FORMAT 1 * 
LABEL 
************ 



***** 02* ********* 



WRLABL X 

****H3*********** 

WRITE QL 
*_*_*_*_*_*_*_*_* 

WRITE 
* LABEL * 
***************** 



C3 *. 
.* LAST *. 
* EXTENT 
PROCESSED 



***** 
*QL * 
* Bl* 





.* *. 






* 


* 


.* *. 




.* ARE *. 


* 


END 


* 


YES 


* SAVE F3 


* 


.* SYMBOLIC * 


. YES 


.* SYMBOLIC *. YES 




OF EXTENT 
. AREA 






* ADDRESS TO 

* WRITE LABEL 


* 


*. UNIT 

*. CHANGED .* 


.*.... 


....X*. UNITS IN .*.... 


* 


* 




* 




*. SEQUENCE .* 




*. .* 






* 


* 


*. -* 




*. .* . 










, *************** 


** 


*. .* 




*. .* X 




*NO 










*NO 
**** 

* * 

* 4 *. . . 

* * 




*N0 **** 
* 

* 4 
* 
**** 




X 










**** 








.*. 






X 




UPVSEO X 




SEQERR X 




El *. 






*****E2*******:C 


** 


*****£ 3 ********** 


*****E4********** 




.* * 






* 


* 


* UPDATE 


* 


* SET UP TO * 


* 


EXTENT 


* 


NO 


* CI FAR AREA 

* 10 CREATE 


* 


* VOLUME 

* SEQUENCE 


* 


* ISSUE * 

* MESSAGE * 




ON SAME 




*..X 




* 


* 


.SYMBOLIC 


* 




* rORMAT 3 


* 


* NUMBER IN 


* 


* 47511 * 




*.UNIT .* 






* LABEL 


* 


* DLBL BY 1 


* 


* * 




*. .* 




; 


( *************** 


** 


***************** 


***************** 



*****P1 ********** 

* UPDATE * 

* POINTER TO * 

* NEXT EXTENT * 

* FIELD IN * 

* LABEL * 
***************** 



***p 2* ********* 

CREATE * 

4-BYTE KEY * 

OF X'03« * 

FOR FORMAT * 

3 LABEL * 

*************** 



*****G2********** 



*****F 3 ********** 

* SAVE MAXIMUM * 
*NO. OF EXTENTS * 

* CONTAINED IN * 

* THE FORMAT 1 * 

* LABEL * 
***************** 



***** 
*QL * 
* F5* 



. * *. 




* * 


****Q3********* 


.* ADDRESS *. YES 


* INITIALIZE * 


* SVC 2 


*. OF POINTER .* 




* FORMAT * 


* FETCH 


*. FIELD IN .* 




* IDENTIFIER * 


* $$B0DA03 


*. LABEL.* 




* WITH X'03 1 * 


*************** 


*. .* 


X 


***************** 




*NO 


**** 

* * 

* 2 * 

* * 






X 
.*. 


**** 








X 




HI *. 




*****H2********** 




.* *. 




* GET ADDRESS * 




.* MIDDLE *. NO 


* OF FIRST * 




*. OF F3 .* 




* EXTENT AREA * 




*. LABEL .* 




* IN FORMAT * 




*. .* 




* 3 LABEL * 




*. .* 


X 


***************** 




*YES 


**** 


. 






* * 








* 1 * 








* * 


X 






**** 


**** 
* * 




X 




* 1 * 




***** j i ********** 




* * 




* UPDATE * 




**** 




* ADDRESS PTR * 








* TO EXTENT * 








* FIELD IN * 








* LABEL * 








***************** 
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Chart QL. $$B0DA04: DA Open Output, Phase 4 (Section 3 of 4) 



**B1********** 



***************** 



*****C1 ********** 

* * 

* SAVE TOTAL * 

* NUMBER OF * 
*EXTENTS IN DLBL* 

* * 
***************** 



*****01 ********** 

* * 

* MOVE FIRST * 

* SYMBOLIC UNIT * 

* TO DTF TABLE * 

* * 
***************** 



****A4********# 

* WRITE * 

*************** 



****B4********** 

* 

GET CCW * 

TO WRITE * 

KEY, CATA * 

* 

**************** 



*****C4********** 

* SET COMMAND * 

* CODE TO WRITE * 

* AND SET * 

* COMMAND * 

* CHAIN BIT ON * 
***************** 



****D4 *********** 
EXCPRT QM 
*_*_*_*_*_*_*_*_* 

WRITE 
* LABEL * 

***************** 



.*. 


GETFP 


El *. 


*****£ 2********** 


ARE *. 


* * 


THERE *. YES 


* INITIALIZE * 


USER _ .*.... 


....X* RETURN * 


LABELS .* 


X * REGISTER * 



.*. 

Fl *. 

.* USER * 

WANT TO 

PRGCESS 

. EXTENTS 

*. .* 

*. .* 



GETMON 

*****Gl ********** 
*FLEPRTCT PY* 
*_*_*_*_*_*_*_*_* 

* CHECK FOR * 

* FILE * 

* PROTECT * 
***************** 



****H1 ********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



***************** 



*****F2********** 
*FLEPRTCT QM* 
*_*_*_*_*_*_*_*_* 

* CHECK FOR * 

* FILE PROTECT * 

* * 
***************** 



****G2********* 

* SVC 2 * 

* FETCH * 

* $$BODAUl * 
*************** 



.*. 


NRF09 




E4 *. 


*****£ 5********** 


* *. 


* SET UP TO * 


LABEL *. NO 


* ISSUE * 


FOUND .*.... 


....X* MESJ 


>AGE * 
391 * 


.* 


* 47C 


*. .* 


* * 


*. .* 


***************** 


*YES 






**** 






* * 






*QK *.. 






* E4* - 






**** 




X 


FTCHMSG 




*P4********** 


X 


* 


**** p5********* 


REMOVE * 


* SVC 2 * 


CHAIN BIT * 


* FETCH * 


FROM CCW * 


* SfiBOMSGl * 


* 


****#**:< 


it******* 



****G4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart QM. $$B0DA04: DA Open Output , Phase 4 (Section 4 of 4) 



****A1 ****** 
* 

* FLEPRTCT 
* 

************ 



FLEPRTCT 

*****B1 ********** 

* GET * 

* AODRESS OF * 

* COMMUNICATION * 

* REGION * 

* * 
***************** 



****A3********* 

* * 

* EXCPRT * 

* * 
*************** 



* SVC 
* EXCP * 
***************** 



FILE *. NO 
PROTECT .*... 
PRESENT .* 



****C2********* 

* RETURN TO * 
.X*CALLING ROUTINE* 

* * 
*************** 



*****C4* ********* 

* * SVC 7 * * 

* * WAIT FOR * * 
X* * I/O * *. 

* * COMPLETE * * 

* * * * 

***********4****« 



****D1 ********* 

* SVC 2 * 

* FETCH * 

* $$BOFLPT * 
*************** 



.*. 

D3 *. 

.* NO *. 

.* RECORD *. YES 

*. FOUND OR END .*.... 

*OF CYLINDER* 



*. 



****D4 ********* 

* RETURN VIA * 

* LINK REG * 

* * 
*************** 



****E3********* 

* RETURN VIA * 

* LINK REG + 4 * 

* * 
*************** 
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Chart RA. $$B0DAU1: DA Open Input, Output (Section 1 of 5) 



4*** Al ********* 

* ENTRY FROM * 

* *A2 * 

* * 
4******44*****4 



44*** Bl ********** 

* * 

* GET ADDRESS * 

* OF CCB * 

* CHAIN * 

* * 
********* ******** 



*****C1 ********** 

* * 

* RELOCATE * 

* CCWS FOR * 

* THIS PHASE * 

* * 
4**************44 



44***01********** 

* * 

* COMPUTE * 

* ADDRESS OF * 

* FIRST EXTENT * 

* * 
44***444********4 



*A2 
$$B0DA04 IF 
AN DUTPUT FILE. 
$$B0DAI1 IF 
AN INPUT FILE. 



V0L1 

LABEL 

FOUND 



***** 
*RE * 
* B2* 



*****C3********** 

* * 

* GET STARTING * 

* ADDRESS * 

* OF VTOC * 

* * 
**4************** 



4****03*********4 

* * 

* GET CCW TO * 

* FIND FORMAT 1 * 

* LABEL * 

* * 

4********44*: 



**** 

* * 

* 2 * 



.* TRAILER 
LABELS 
♦ .SPECIFIED. 



*****C5********** 

* SAVE * 

* SYMBOLIC * 

* UNIT AND BIN * 

* NUMBER FOR * 

* TRAILER LABEL * 

*** 44 ********* * ** 



*****D5********** 

* SAVE * 

* USER LABEL * 

* EXTENT * 

* LOWER LIMIT * 

* * 

4**4************* 



.* RETURN *. YES 
*.FROM MESSAGE .*.... 
*. ROUTINE .* 



**** 

* * 
*RD *... 

* F2* 
**** 

READF1 X 

*****pi ********** 

* MOVE SYMBOLIC * 

* UNIT TO CCB. * 

* SAVE FOR * 

* FURTHER * 

* TESTS * 
444************** 



44***GI ********** 



**E2******* 

* SET * 

MESSAGE 

SWITCH 

OFF 

*********** 



****P2********* 

* EXIT VIA * 

* REGISTER * 

* MSGLNK * 
*************** 



*****E3********** 

* INITIALIZE * 

* KEY FIELD * 

* FOR SEARCH * 

* * 
***************** 



FINDF1 

****F3*********** 
EXCPRT RE 
*-*-*-*-*-*-*-*-* 
GET FORMAT 1 
* LABEL FOR * 
FILE 
***************** 



X 

DEVTYP 



*****P4*44* ****** 

* MODIFY * 

* MAXIMUM * 

* NUMBER OF *X 

* USER LABELS * 

* FOR 2321 * 
44****44*44****** 



GET CCW 

TO READ 

KEY, DATA 



4****1-11 ********** 
4 4 

* SET UP * 

* SEEK/SEARCH * 

* ADDRESS * 
4 4 
444************** 



*_*_*_*_*_*_*_ 
READ 
* VOLUME * 
LABEL 
4***4************ 



***** 
*RE *N0F1 
* B3* 



INPUT 

***4*G544******** 

* MODIFY * 

* MAXIMUM * 

* NUMBER OF * 

* USER LABELS * 

* FOR 2321 * 
***************** 



* ARE 

THERE USER 
*. LABELS . 



.* CURRENT *. NO 
•LABEL A USER .*... 
*. LABEL .* 



ULAB 

***** H5********** 

* SET UP * 

* SEARCH * 

* ADDRESS * 

* FOR USER * 

* LABELS * 
***************** 



* 2 * 

* * 
**** 



FILE 


* 


. YES 


INPUT 


.* 


.*.... 


.* 






*. .* 




X 


*N0 




*RC * 

* in* 


X 




* 4 


+ ***«< 




4 


*RN ♦ 




INPULB 


* ni* 






* 4 
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Chart RB. $$BODAUl: DA Open Input, Output (Section 2 of 5) 



***** 

*RA * 
* J5* 



**** 

* * 

* 3 * 

* * 
**** 



#****Bl ********** 

* * 

* GET CCW TO * 

* READ KEY * 

* AND DATA * 

* * 
***************** 



*****d ********** 

* MODIFY * 

* COMMAND CODE * 
*T0 WRITE COUNT * 

* KEY, DATA * 



*********: 



:*** 



*****01 ********** 

* * 

* MODIFY COUNT * 

* FIELD IN CCW * 

* WITH X'5C * 

* * 
***************** 



*****E1 ********** 

* MODIFY COMM * 

* CODE OF * 

* VERIFY CCW TO * 

* READ COUNT, * 

* KEY AND DATA * 
***************** 



*****Fl ********** 

* MODIFY * 

* CCUNT FIELD * 

* OF VERIFY CCW * 

* WITH X'5C' * 

* * 
***************** 



**B2******* 

* SET IOCS * 

OPEN 

INDICATOR 

IN REGISTER 

* * 
*********** 



*****C2********** 

* GET ADDRESS * 

* OF DATA * 

* FIELD FOR * 

* USER * 

* * 
***************** 



*****D2********** 

* * SVC 8 * * 

* * EXIT TO * * 

* * USER FOR * * 

* *USER LABELS* * 

* * * * 
***************** 



*****E2********** 

* * 

* REINITIALIZE * 

* REGISTERS * 

* UPON RETURN * 

* * 
***************** 



*****F2********** 

* MOVE DATA * 

* FIELD TO * 

* OUTPUT AREA * 

* TO WRITE * 

* LABEL * 
***************** 



*****B3********** 

* SET DATA * 

* LENGTH TO * 

* ZERO IN * 

* LAST HEADER * 

* LABEL * 
***************** 



*****C3********** 
*WRITE QE* 
*_*_*-*_*_*_*_*_* 

* WRITE FIRST * 

* FILE MARK * 

* AND UPDATE * 
***************** 



*****D3********** 

* CREATE * 

* KEY IN * 

* LABEL OF * 

* UTLO * 

* * 
***************** 



#****E3********** 
*WRITE RE* 
*_*_*_*_*_*_*_*_* 

* WRITE LAST * 

* FILE MARK * 

* * 
***************** 



***** 
*RC * 
* B4* 



*****G1 ********** 


G2 *^ 


* SET UP COUNT * 


.* USER *. 


* AND KEY TO * 


NO .* WANT TO *. 


* WRITE * 


...*. CREATE MORE .* 


* LABEL * 


*. LABELS .* 


* * 




***************** 


*. .* 




*YES 


**** '. 




* * 




* 1 *... 




* * . 




**** 


X 


STOWN X 


MAXOUT .*. 


*****Hi ********** 


H2 *. 


* SET FIRST * 


.*MAXIMUM*. 


* 4 BYTES * 


.* NUMBER OF *. r 


* OF DATA * 


*. LABELS - 1 .* 


* SAME AS * 


*. WRITTEN .* 


* KEY * 


*. .* 


******* ********** 


*. .* 




*YES 

j . . X'm 


X 


WRLAST X 


*****J1********** 


*****J2********** 


*SAVE REGISTERS * 


*WRITE RE* 


* AND GET * 


*-*_*-*_*-*_*-*_* 


* ADDRESS OF * 


* WRITE LAST * 


* USER LABEL * 


* LABEL AND * 


* ROUTINE * 


* UPDATE * 


***************** 


***************** 


X 


X 


**** 


**** 


* * 


* * 


* 2 * 


* 3 * 


* * 


* * 


**** 


**** 



*-*-*_*-*_*-*-*_* 



X* 


WRITE LABEL, 


* 


* 


UPDATE ID, 


* 


* 


KEY 


* 


***************** 




X 






**** 






* * 






* 1 * 






* * 






**** 
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Chart RC. $$B0DAU1: DA Open Input, Output (Section 3 of 5) 



***** 

*RA * 
* J5* 



INPULB 


X 






*****B1 ********** 




* 


GET CCW 


* 




*> 


TO READ 


* 




* 


KEY AND 


* 




* 


DATA 


* 




* 




* 




***************** 




**** '. 






* 


* 






* 2 


*... 






* 


* 






**** X 






READUL 


.♦. 

CL *. 

♦MAXIMUM*. 






.* 


NUMBER OF 


♦ . YES 


*. 


LABELS 


.*. 




* 


READ 
*. .* 


* 


; 




*. .* 




X 




♦NO 




**** 
* 

* 4 














* 








**** 




X 






*****D1 ********** 




* 


UPDATE 


* 




* 


RECORD 


* 




* 


NUMBER BY 


* 




* 


1 TO READ 


* 





***************** 



*****E1 ********** 

* * 

* GET ADDRESS .♦ 

* OF CCB * 
♦FOR SUPERVISOR * 

* * 
*********** ****** 



****pi *********** 

EXCPRT RE 
* _*_*_*_*_*_*_ * 

READ 
♦ USER ♦ 
LABEL 

***************** 



MSGRET X 

***** A3 ********** 

* GET ADDRESS * 

* OF DATA AREA ♦ 

* IN LABEL * 

* FOR USER * 

* * 
***************** 



**B3*****^* 
♦ SET IOCS ♦ 

* OPEN 

* INDICATOR IN 

♦ REGISTER 



*********** 



*****C3********** 

* * 

* GET ADDRESS ♦ 

* OF USER'S ♦ 

* LABEL ROUTINE ♦ 

* * 
***************** 



*****D3********** 

* * SVC 8 * ♦ 

* * EXIT TO * * 

* * USER FOR ♦ ♦ 

* +USER LABELS^ * 

* * * * 
***************** 



*****E3********** 

* * 

* RE-INITIALIZE ♦ 

♦ REGISTERS * 

♦ UPON RETURN ♦ 



*****F3********** 

* * 

* MOVE DATA * 

* TO OUTPUT ♦ 

* AREA * 

* * 
***************** 



*A5 
RA-H3,J3 
RB-E3 



.♦ USER * 


. NO 


♦.WANT EXTENTS 


.* 




*. PASSED .♦ 






♦ . .♦ 






♦ . .* 




X 


♦ YES 




***** 
*RD * 
* C2^ 
* * 
* 
FNDNXT 


*****C4** ******** 




* MOVE 


* 




* SYMBOLIC 


* 




♦ UNIT TO 


* 




♦ PASS AREA 


* 





***************** 



*****D4 ********** 

♦ GET ADDRESS ♦ 

♦ OF FIRST * 

♦ EXTENT IN ♦ 

♦ LABEL ♦ 

♦ * 
***************** 



E4 *. 

.♦ IS *. 
♦ THERE A 

PRIME DATA 
♦. EXTENT 



*. 



.* 



*****E5********** 

♦ GET ADDRESS ♦ 

♦ OF NEXT ♦ 
EXTENT IN ♦ 

* LABEL ♦ 

* * 
***************** 



• X^ 



***** 
*RD * 
* Bl* 
* * 



HI ♦. 
* 

END 

OF 

FILE 

*♦. .♦* 
♦ NO 



.♦ CORRECT ♦. 


NO 


♦. USER HEADER . 


*.... 


♦. LABEL .♦ 




v *. .* 




♦ . .♦ 


X 


♦YES 


***** 




*RE ♦ 




* Bl* 


X 


* * 


**** 


* 


* * 


NOUHL 


* 3 * 




* * 




**** 





.* USER *. 

WANT TO 

READ MORE 

. LABELS . 



♦ USER * 

WANT TO 

UPDATE 

LABEL 



*****H4****** : 

* MOCIFY CCW 

* TO WRITE 
X^ LABEL AND 

* GET ADORES: 

* CF CCB 
************* 



S * 

* 
**** 



****J4 *********** 
EXCPRT RE 
* _*_*_*_*_*_*_ * 
WRITE 
* LABEL * 

***************** 



.* NO *. 

.* RECORD *. 

♦.FOUND OR END . 

*OF CYLINDER* 
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Chart RD. $$B0DAU1: DA Open Input, Output (Section 4 of 5) 



**** 

* * 

* 1 *.x 



**** 
INSERT .*. 

Bl * 



*RC-B4 
RE-G3 
***** 



IS 

AN EXTENT 
. PRESENT . 



*****d ********** 

* INSERT * 

* EXTENT IN * 

* PASS AREA * 

* * 
***************** 



*****01 ********** 

* * 

* GET ADDRESS * 

* GF EXTENT * 

* PASS AREA * 

* * 
***************** 



*****E1 ********** 

* SAVE * 

* REGISTERS * 

* FOR THIS * 

* PHASE * 

* * 
***************** 



*****F1 ********** 

* * SVC 8 * * 

* * EXIT TO * * 

* *USER LABEL * * 
ROUTINE 



FNDNXT 

*****C2********** 

* GET ADDRESS * 

* OF NEXT * 

* EXTENT IN * 

* STORAGE * 

* * 
***************** 



ALL *. 
EXTENTS 
.PROCESSED.* 



****03********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



**** 

* 4 

* 3 * 

* * 
**** 



*****B4********** 

* MOVE POINTER * 

* TG SEEK/ * 

* SEARCH * 

* ADDRESS * 

* * 
***************** 



*****C4**** ****** 

* * 

* GET CCW * 

* TO READ * 

* KEY, DATA * 

* * 
***************** 



****D4*« ********* 
EXCPRT RE 
*_*_*_*_*_*_*_*_* 

READ 
* FCRMAT 3 * 
LABEL 
***************** 



***** 
*RE * 
* B4* 



* * 



* * 



***************** 



*****gl ********** 

* RE-INITIALIZE * 

* SAVED * 

* REGISTERS * 

* UPON RETURN * 

* * 
***************** 



*****H1 ********** 

* * 

* GET ADDRESS * 

* OF NEXT * 

* EXTENT * 

***************** 



**F2******* 

* * 
MODIFY INST 
AT BYPASSTR 

TO BRANCH 

* UNCOR. * 
*********** 



*****P4********** 

* PACK F3 * 

* EXTENTS, * 

* ELIMINATING * 

* FORMAT IDENT * 

* BYTE * 
***************** 



*****G4 ********** 

* GET ADDRESS * 

* OF FIRST * 

* EXTENT IN * 

* F3 LABEL * 

* * 
***************** 



* IS 


*. NO 


IT AODR OF 


.*.... 


*. POINTER . 


* 


*. .* 




*. .* 


X 


♦YES 


**** 




* * 




* 1 i 




* « 




**** 


X 




.*. 




Kl *. 




.* * 




* IS 


*. NO 


THERE A 


.*.... 


*. POINTER 


* 


*. .* 




*. . * 


X 


♦ YES 


**** 




* * 




* 2 * 


X 


* * 


**** 


**** 
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Chart RE. $$B0DAU1: DA Open Input, Output (Section 5 of 5) 



***** 

*RC * 

* Jl* 



***** 
*RA * 

* B3* 



***** 
*RD * 
* E4* 



NOUHL X 

*****Bl ********** 

* INITIALIZE * 

* RETURN * 

* FROM * 

* MESSAGE * 

* ROUTINE * 
***************** 



*****C1 ********** 

* * 

* SET UP TO * 

* ISSUE MESSAGE * 

* 4638D * 

* * 
***************** 



* SET UP TO 

* ISSUE MESSAGE 

* *C2 

* 
**************** 



* SET UP TO * 

* ISSUE MESSAGE * 

* *C3 * 

* * 
***************** 



* SET UP TO * 

* ISSUE MESSAGE * 

* *B5 * 

* * 
***************** 



*B5 
46031 IF 

FILE IS INPUT. 
47031 IF 

FILE IS OUTPUT. 



*C2 
46061 IF 

FILE IS INPUT. 
47061 IF 
FILE IS OUTPUT. 



*C3 

46011 IF 

FILE IS INPUT. 

47011 IF 

FILE IS OUTPUT. 



****C4********* 

* SVC 2 * 

* FETCH * 

* SSB0MSG1 * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



****Ei********* 

* EXCPRT * 

* * 
*************** 



***************** 



****03********* 

* * 

* WRITE * 

* * 
*************** 



WRITE 

*****E3********** 

* SET COMMAND * 

* CHAIN BIT * 

* ON IN * 

* CCW * 

* * 
***************** 



****P3*********** 

EXCPRT QE 

* _*_*_*_*_*_*_ * 

WRITE 
* LABEL * 

***************** 



*****E4********** 

* • * 

* UPDATE * 

* KEY NUMBER * 

* IN LABEL * 

* * 
***************** 



****P4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



.*. 
HI *. 
.* NO *. 
. * RECORD *. Y 
.FOUND OR END .*. 
*. OF CYL- .* 
*.INDER.* 
*. .* 
*N0 



****J1 ********* 

* RETURN VIA * 

* LINK REG + 4 * 

* * 
*************** 



*****G2********** 

* * SVC 7 * * 

* * WAIT FOR * * 
X* * I/O * *. 

* * COMPLETE * * 

* * * * 
***************** 



****H2********* 

* RETURN VIA * 

* LINK REG * 

* * 
*************** 



*. .* 




X 


*YES 




***** 
*RD * 
* C2* 
* * 
* 
FNDNXT 


X 






*****H3********** 




* REMOVE 


* 




* COMMAND 


* 




* CHAIN BIT 


* 




* IN CCW 


* 





**************** 



*****j3********** 

* SET UP TO * 

* SEARCH ON * 

* USER LABEL * 

* JUST WRITTEN * 

* * 
***************** 



*****K3********** 

* UPDATE * 

* COUNT FIELD * 

* OF USER LABEL * 

* TO BE WRITTEN * 

* BY 1 * 
***************** 
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Chart: RF. $$BODACL: DA Close Input/Output (Section 1 of 3) 



****A1********* 

* ENTRY FROM * 

* $$BCLOSE * 

* * 
*************** 



CLOSEDA 

*****B1 ********** 

* INITIALIZE * 

* CCB WITH * 

* ADDRESS * 

* OF CCW * 

* CHAIN * 
***************** 



***************** 



.*. 

Dl *. 

.* ARE *. 

.* TRAILER 

LABELS 

*. SPECIFIED. 



.* 



.* ENTERED * 
*.FR0M MESSAGE 
*. WRITER .* 





LABfcLb UN 
*. 2321 .* 

*. .* 
*. .* 








*YES 






> 


( 




*****Gi ********** 


* 


SET MAXIMUM 


* 


* 


COUNT OF 


* 


* 


LABELS FOR 


* 


* 


2321 


* 


* 




* . 


******** 


!<****** 








X 





**E2******* 

* RESET * 
RE-ENTRY 
INDICATOR 

IN COMM 

* REGION * 
*********** 



****F2********* 

* RETURN TO * 

* ADDRESS IN * 

* REGISTER 5 * 
*************** 



*****Hl ********** 

* INDICATE * 

* PROGRAMMER * 

* SYMBOLIC * 

* UNIT * 

* * 
***************** 



*****jl ********** 

* INSERT * 
♦STORED SYMBOLIC* 

* UNIT NUMBER * 

* OF LAST * 

* VOLUME * 
***************** 



* 1 * 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 



***** 
*RG * 
* G2* 



*****B3********** 

* PUT USER * 

* LABEL TRACK * 

* ADDRESS IN * 

* DISK ADDRESS * 

* BUCKET IN CCB * 
***************** 



*****C3********** 

* SET RECORD * 

* NUMBER TO * 

* ZERO IN * 

* DISK ADDRESS * 

* BUCKET * 
***************** 



FILEADDR 

*****C4********** 

* SET UP * 

* COUNT KEY * 

* AND DATA * 

* FIELD * 

* * 
***************** 



*****04** ******** 



.* OUTPUT *. NO 


* INITIALIZE * 


*. FILE .* 




* WRITE CCW * 


*. .* 




* CHAIN * 


*. .* 




* * 


*. .* 


X 


***************** 


*YES 


***** 
*RG * 
* Bl* 
* * 
* 
RDLABEL 




X 




X 


i**E3******* 




*****E4 ********** 


*SET SWITCH * 




* DECREASE * 


* TO INDICATE * 




* RECORD * 


* OUTPUT FILE * 




* ADDRESS BY 1 * 


* FOR MESSAGE * 




*TO WRITE COUNT * 


* WRITER * 




* KEY AND DATA * 


*********** 




***************** 

X 

***** 
*RG * 


X 




* C3* 


*****P3********** 




* * 


* INITIALIZE * 




* 


* RECORD ID * 




LOADUSER 


* OF COUNT * 






* FIELD * 







CALLMSG 

*****C5********** 

* INITIALIZE * 

* RETURN REG * 

* SUMREG * 

* WITH ADDRESS * 

* OF RTNMON * 
***************** 

**** * 

* * 
*RG *... 

* C4* 
**** 

X 
*****D 5 ********** 

* INITIALIZE * 

* FOR MESSAGE * 

* ROUTINE * 

***************** 



**** £ 5********* 

* SVC 2 * 

* FETCH * 

* $$BOMSGl * 
*************** 



***************** 



*****G3********** 

* INITIALIZE * 

* COUNT, KEY, * 

* AND LABEL * 

* IDENTIFIER * 

* FIELDS * 
***************** 



****H3*********** 
DISK RH 

*_*_*_*_*_*_*_*_* 

SEARCH FOR 
* UTLO FILE * 

MARK 
***************** 
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Chart RG. $$BODACL: DA Close Input/Output (Section 2 of 3) 



RH-H3 



PUT UTLO 
INTO SEARCH 
KEY AREA 



SET UP 

CCW CHAIN 

TO READ 

LABELS 



B3 *. 
.« IS * 

THIS A 
STANDARD 
. LABEL 



»**»*C3»**»»*»*» 

* GET USER 

* LABEL ROUTINE 

* ADDRESS 



SET UP TO 

ISSUE MESSAGE 

4639D 



SET UP RETURN 
ADDRESS FOR 

RE-ENTRY FROM 
MESSAGE 
ROUTINE 



MOVEDATA X 

« MOVE USER'! 

* LABEL TG 
» OUTPUT 

* AREA 



WRITE 

NEXT 

LABEL 



MODIFY 

MESSAGE CODE 

FOR INPUT 

FILE 



MAXIMUM *. YES 
LABELS ...... 

READ .* 



*F1***»*»*»*« 



INITIALIZE 

REGISTER 

WITH OPEN 

CODE 



»• • »£3 ••••••• • 

INITIALIZE 

KL-GISIPK 

WITH AUIJKLSS 

OF USLR 

LABEL 



»*D5«*»*«*» 
* SET 
USER LABEL 
SWITCH 

ON 



win re 

USER'S LAST 
LAKI.L 



« SVC 8 
» EXECUTE 
•USER LABEL 
» ROUTINE 



FILEMARK X 

»»»**F5««*»««* 
» SET DATA 
» LENGTH TO 

* ZERO FOR 

* FILE MARK 



SET UP TO 

ISSUE MESSAGE 

4608D 



RE-INITIALIZE 

DTFREG 
WITH ADDRESS 
OF DTF TABLE 



-G4 
RF-D1 
RH-C1 



WRITE 

FILE 

MARK 



UTL 
FILE MARK 
. READ 



* C5* 

CALLMSG 



GET ADDRESS 

OF USER 
LABEL AREA 



SVCALL 

» SVC 2 
» FETCH 
« $$BCLOSE 

\ 



H5 *. 

.» TRACK ». 

HOLD 

INDICATOR 

. ON IN . 

*. DTF .» 

"»YES 



X 

»»J5**»«»« 

SVC 2 

FETCH 

$$BOSDC2 
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Chart RH. $$BODACL: DA Close Input/Output (Section 3 of 3) 



*RG * 
* C5* 
♦ * 



* * 

* WRITELDL * 
*************** 



* MOVE * 

* LABEL TO * 

* OUTPUT AREA * 

* * 
***************** 





* CONTINUE 


* 


NO 


* 


PROCESSING 




*.... 




*. LABELS . 


* 






*. .* 








*. .* 




X 




*YES 




***** 

*RG * 

* H5* 

* * 

* 




X 

.*. 
Dl *. 




DIRTNMON 










.* *. 








* USER 


* 


NO 


*. 


WANT LABELS 




*.... 




*. UPDATED . 


* 





**E1 ******* 

* MODIFY * 
CCW TO 

WRITE 
DATA 

* * 
*********** 



****F1 *********** 
DISK QH 

* _*_*-*-*_*_*_ * 
WRITE 
* LABEL * 
UPDATE 
***************** 



**G1******* 

* * 
MODIFY CCW 

TO READ 
DATA 

* * 
*********** 



WRITELDL X 

****B3*********** 
DISK RH 

* -.jot-*-*..*-*..*- « 

WRITE 
* USER * 
LADEL 

ft*********)*:****** 



*****C3********** 

* INCREASE * 

* RECORD NUMBER * 

* IN SEEK * 

* ADDRESS * 

* FIELD * 
***************** 



*****D3********** 

* INCREASE * 

* RECORD NUMBER * 

* IN COUNT * 

* FIELD * 

* * 
***************** 



*****E3********** 

* INCREASE * 

* TRAILER LABEL * 

* INDENT IN * 

* KEY FIELD * 

* BY 1 * 
***************** 



*****F3 ********** 

* INCREASE * 

* LABEL INDENT * 

* FIELD BY * 



***************** 



.* MORE *. NO 
.LABELS TO BE .*... 
♦.PROCESSED.* 



****A4********* 

* * 

* DISK * 

* * 
*************** 



DISK X 

*****B4*********« 

* GET ADDRESS * 

* CF CCD * 

* FOR * 

* SUPERVISOR * 

* * 
***************** 



****C4* ********** 
SVC 
* EXECUTE * 
CHANNEL 
* PROGRAM * 

***************** 



*****Q5********** 

* * SVC 7 * * 

* * WAIT FOR * * 
.X* * I/O * *. 

COMPLETE • ■ 



* * 



* * 



***************** 



*****E4 ********** 

* TEST FOR * 

* RECORD FOUND * 

* TO SET * 

* CONDITION * 

* CODE * 
***************** 



****F4********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****G4 ********* 

* EXIT VIA * 
.X* REGISTER * 

* SUMREG * 
*************** 



* INCREASE * 

* KEY FOR * 

* NEXT LABEL * 

* * 
***************** 



X 
***** 
*RG * 
* El* 



.* MAXIMUM *. 

*. USER LABELS . 

*. WRITTEN .* 



**j3******* 

* SET * 
LABELSW 

FOR NO MORE 
LABELS 

* WRITTEN * 
*********** 



X 

***** 

*RG * 

* C3* 

* * 



***** 
*RG * 
* F5* 
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APPENDIX A: LABEL CROSS-REFERENCE LIST 





Phase or 




Label 


Routine 


Chart 


ABORT 


$$BODSMW 


AU 


ABORTJOB 


$$BODSPV 


AE 


ABORTJOB 


$$BOMSG2 


AR 


ABORTJOB 


$$BOSD07 


JS 


ABORTJOB 


SD 


KC 


ABORTNOT 


$$BOSDWl 


KF 


ADD1XTNT 


$$B0SDW2 


KG 


ALLBYPS 


$$BOSDOl 


JA 


ALLDONE 


$$BODSPW 


AG 


ALLDONE 


$$BOWDMP 


AL 


ALTR2311 


$$BODAIN 


PG 


ALTR2314 


$$BODAIN 


PG 


ANYOPEN 


$$BOSDWl 


KE 


AROUND 


$$BODAIl 


PK 


AROUND 


$$BODAIN 


PG 


BADASS IN 


$$BODAIN 


PF 


BELOWFE 


$$BODAIN 


PF 


BELOWFE 


$$BOSDWl 


KE 


BELOWFE 


$$BOSIGN 


JE 


BLANKOUT 


$$BOWDMP 


AM 


BLD 


DAMOD 


NL 


BRSWIT 


$$BOSD00 


HA 


BUILDF1 


$$BOSD04 


JL 


BYPASSED 


$$BOSDIl 


HC 


BYPASSTR 


$$BODAUl 


RA 


BYPASSX 


$$BOSDIl 


HC 


BYPASSX 


$$BOSDOl 


JA 


BYPASSX 


$$BOSDWl 


KD 


CALLMSG 


$$BODACL 


RF 


CBLCLOSE 


$$BOSDI3 


HK 


CELLTEST 


$$BOFLPT 


AA 


CFVRFX 


$$BODA02 


QB 


CHCK 


$$BODA02 


QD 


CHECK 


$$BODA02 


QB 


CHECK 


$$BOSDIl 


HD 


CHECKLL 


$$BOSD08 


KA 


CHECKXNT 


$$BOSD08 


KA 


CHEKXTNT 


$$BOSD03 


JH 


CHKF3CNT 


$$BODSPW 


AG 


CHKVTOC 


$$BOSDWl 


KF 


CKLST 


$$BODAOl 


PQ 


CKMORE 


$$BOSD01 


HB 


CKNRF 


$$BODA02 


QA 


CKOVLP 


$$BODA01 


PP 


CKOVLP1 


$$BODA01 


PQ 


CKSTOP 


$$BODA02 


QC 


CKSUSQ 


$$BODAIl 


PK 


CKSYS 


$$BOSD00 


HA 


CKUNIT 


$$BODA01 


PP 


CKUSLB 


$$BODAUl 


RA 


CKVTOC 


$$BODA01 


PP 


CKXT 


$$BODA01 


PQ 


CKXTNT 


$$BODAIl 


PK 


CLCFRS 


$$BODAOl 


PN 


CLEAR 


$$BODAIl 


PJ 


CLEAR 


$$BODAIN 


PG 


CLEARLBL 


$$BOSD02 


JF 



CLEARLBL 


$$BOSD08 


KA 


CLEAROUT 


$$BOMSG2 


AS 


CLEARSW1 


$$BOSDCl 


LB 


CLEARSW2 


$$BOSDCl 


LB 


CLOSECBL 


$$BOSDI3 


HK 


CLOSEDA 


$$BODACL 


RF 


CLOSEDTF 


$$BOSDCl 


LA 


CLOSEMON 


$$BOSD06 


JQ 


CLOSFILE 


$$BOSDCl 


LC 


CNTXTNT 


$$BODAIl 


PK 


COBOLBL 


$$BOSDCl 


LC 


COMP 


$$BODA02 


QA 


COMPAR 


$$BODA03 


QE 


COMPARE3 


$$BOMSGl 


AP 


COMPDEV 


$$BOSDWl 


KE 


COMPDEV 


$$BOSIGN 


JE 


COMPHEAD 


$$BOSD03 


JH 


COMPNXT 


$$BODAIN 


PG 


COMPXTNT 


$$BOSD07 


JS 


CONTIN 


$$BOSDWl 


KE 


CONTIN 


$$BOSIGN 


JE 


CONVERT 


$$BODSMW 


AT 


CPCLOSE 


$$BOSDCl 


LA 


CREATEX1 


$$BOSD03 


JJ 


CRETF3 


$$B0DA04 


QK 


CYLEQUAL 


$$BOSD03 


JJ 


DELETE 


$$BODAOl 


PR 


DELETION 


$$BOSD03 


JK 


DEQUERTN 


$$BODQUE 


LE 


DEVTYP 


$$BODAUl 


RA 


DISK 


$$BODACL 


RH 


DLABOK 


$$BOSD01 


HB 


DONTMOVE 


$$BODSMW 


AT 


DONTMOVE 


$$BOMSGl 


AN 


DQEXTNT 


$$BOSD06 


JR 


DUMMY 


$$BOSD01 


HB 


DUMPIT 


$$BODSMW 


AU 


DUMPVTOC 


$$BOSD07 


JS 


EMTYSPOT 


$$BOSD05 


JN 


ENDLBL 


$$BODACL 


RG 


EOBRESP 


$$BOSD07 


JS 


EOFEXIT 


$$BOSDI3 


HK 


EOFSWITCH 


$$BOSDI3 


HJ 


EOXADDR 


$$BOSD01 


JB 


EQXTENT 


$$BOSDI2 


HF 


ERROR 


$$BOFLPT 


AC 


EXCPRT 


$$BODAIl 


PM 


EXCPRT 


$$BODAOl 


PR 


EXCPRT , 


$$BODA02 


QD 


EXCPRT 


$$BODA03 


QH 


EXCPRT 


$$BODAOa 


QM 


EXCPRT 


$$BODAUl 


RE 


EXITRT 


$$BODAIl 


PL 


EXITRT 


$$BODAOa 


QL 


EXITUSER 


$$BOSDC2 


LD 


EXPDDSF 


$$BODA02 


QC 


EXPIRED 


$$BOSD03 


JK 


EXPIRED 


$$BOSD08 


KA 


EXTENT5 


$$BOSDW2 


KG 
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Label Cross-Re i 


rerei 



FCHMSG 


$$BOSD00 


HA 


FEOVRET 


$$BOSD05 


JP 


FETCH 


$$BODAOl 


PQ 


FETCH 


$$BODA02 


QA 


FETCH 


$$B0DAU1 


RD 


FETCH 


$$BOFLPT 


AC 


FETCH 


$$BOMSG2 


AR 


FETCH1 


$$BODSMW 


AU 


FETCHP1 


$$BOSDWl 


KF 


FILEADD2 


$$BOSD06 


JQ 


FILEADDR 


$$BODACL 


RF 


FILEMARK 


$$BODACL 


RG 


FILEMARK 


$$BOSD06 


JR 


FILEOVLP 


$$BOMSGl 


AP 


FILEOVLP 


$$BOMSG2 


AQ 


FILEOVLP 


$$BOSD03 


JK 


FILEPROT 


$$BOSDI4 


HM 


FILEPROT 


$$BOSDOl 


JC 


FILEPROT 


$$BOSD04 


JM 


FILEPROT 


$$BOSD05 


JP 


FILEPRTD 


$$BOFLPT 


AA 


FILETYPE 


$$BOSDCl 


LA 


FINDF1 


$$BODAIl 


PJ 


FINDF1 


$$BODAUl 


RA 


FINDLAST 


$$BOSDOl 


JB 


FINDSPOT 


$$BOSD04 


JL 


FINDSPOT 


$$B0SD05 


JN 


FINDSPOT 


$$BOSDW2 


KG 


FINDSPT 


$$BOSDW2 


KG 


FINDXTNT 


$$BOSDW3 


KJ 


FINXNT 


$$BODAIl 


PK 


FIRSTMSG 


$$BODSPV 


AE 


FIXED 


$$BOSD01 


JB 


FLEPRTCT 


$$B0DAI1 


PM 


FLEPRTCT 


$$B0DA04 


QM 


FLG 


DAMOD 


NL 


FNDNXT 


$$B0DAU1 


RD 


FNDOPN 


$$BODA03 


QG 


FNSHF1 


$$BODA04 


QJ 


FORMAT3 


$$BOSD05 


JN 


FORMAT3 


$$BOSDW2 


KG 


FTCHMSG 


$$BODA03 


QH 


FTCHMSG 


$$B0DA04 


Ql 


GETCUU 


$$BODSMW 


AT 


GETCUU 


$$B0MSG1 


AN 


GETDSPLY 


$$BOMSG2 


AR 


GETDSPLY 


$$BOSD07 


JS 


GETFP 


$$BODAIl 


PL 


GETFP 


$$BODA04 


QL 


GETJIB 


$$BOFLPT 


AD 


GETLAB 


$$BODAOl 


PN 


GETMON 


$$BODAIl 


PL 


GETMON 


$$BODA04 


QL 


GETNEXT 


$$BODQUE 


LE 


GETNEXT 


$$BOSDIl 


HD 


GETNXJIB 


$$BOFLPT 


AD 


GETOPEN 


$$BODAIN 


PF 


GETPOINT 


$$BOSD05 


JN 


GETPOINT 


§$BOSDW2 


KG 


GETPTR 


$$BODA02 


QD 


HEADERSW 


$$BOSD06 


JR 


IFOPENFD 


$$BOSD03 


JG 


IJBWCONT 


SDMODW 


GE 



IJGBADD2 


SDMODFU 


CJ 


IJGBCHCK 


SDMODFU 


CL 


IJGBCTRL 


CNTRL 


CT 


IJGBDATE 


SDMODFU 


CN 


IJGBDATK 


SDMODFU 


CN 


IJGBDEBL 


SDMODFU 


CH 


IJGBDECL 


SDMODFU 


CM 


IJGBDECR 


SDMODFU 


CN 


IJGBDONE 


SDMODFU 


CJ 


IJGBEOFT 


SDMODFU 


CN 


IJGBEXT 


SDMODFU 


CJ 


IJGBEXTN 


SDMODFU 


CR 


IJGBEXTN 


SDMODFU 


CR 


IJGBFAC1 


SDMODFU 


CQ 


IJGBFACT 


SDMODFU 


CH 


IJGBFREE 


SDMODFU 


CR 


IJGBGENM 


SDMODFU 


CM 


IJGBGET 


SDMODFU 


CH 


IJGBGET 


SDMODFU 


CH 


IJGBGETA 


SDMODFU 


CK 


IJGBGETD 


SDMODFU 


CK 


IJGBHOLD 


SDMODFU 


CK 


IJGBIORU 


SDMODFU 


CH 


IJGBKETH 


SDMODFU 


CM 


IJGBKETH 


SDMODFU 


CM 


IJGBLOOP 


SDMODFU 


CJ 


IJGBNXRC 


SDMODFU 


CQ 


IJGBPUT 


SDMODFU 


CS 


IJGBRD1 


SDMODFU 


CH 


IJGBRD3 


SDMODFU 


CJ 


IJGBRDER 


SDMODFU 


CN 


IJGBRDER 


SDMODFU 


CP 


IJGBRDWR 


SDMODFU 


CQ 


IJGBREAD 


SDMODFU 


CK 


IJGBRELA 


SDMODFU 


CH 


IJGBRELS 


RELSE 


CT 


IJGBRESI 


SDMODFU 


CM 


IJGBRET 


SDMODFU 


CP 


IJGBRET 


SDMODFU 


CP 


IJGBRTRI 


SDMODFU 


CP 


IJGBRTRY 


SDMODFU 


CP 


IJGBSKIP 


SDMODFU 


CQ 


IJGBSWOF 


SDMODFU 


CN 


IJGBSW03 


SDMODFU 


CK 


IJGBTEST 


SDMODFU 


CH 


IJGBTOM 


SDMODFU 


CM 


IJGBTST2 


SDMODFU 


CQ 


IJGBUNIO 


SDMODFU 


CN 


IJGBUSER 


SDMODFU 


CN 


IJGBWAIT 


SDMODFU 


CM 


IJGBWLRE 


SDMODFU 


CN 


IJGBWLRI 


SDMODFU 


CN 


IJGBWRIT 


SDMODFU 


CL 


IJGBWRT 


SDMODFU 


CR 


IJGBWRT1 


SDMODFU 


CR 


IJGCADD1 


SDMODFI 


BH 


IJGCADD2 


SDMODFI 


BH 


IJGCADD3 


SDMODFI 


BH 


IJGCCHCK 


SDMODFI 


BG 


IJGCCTRL 


CNTRL 


CT 


IJGCDATE 


SDMODFI 


BG 


IJGCDATK 


SDMODFI 


BF 


IJGCDATK 


SDMODFI 


BF 


IJGCDEBL 


SDMODFI 


BF 



376 DOS LIOCS Volume 3 SAM and DAM for DASD 



IJGCDECT 


SDMODFI 


BJ 


IJGCDER 


SDMODFI 


BF 


IJGCDONE 


SDMODFI 


BH 


IJGCEXTN 


SDMODFI 


BF 


IJGCEXTN 


SDMODFI 


BH 


IJGCEXTN 


SDMODFI 


BH 


IJGCGETA 


SDMODFI 


BJ 


IJGCGETD 


SDMODFI 


BJ 


IJGCGETX 


SDMODFI 


BF 


IJGCIORU 


SDMODFI 


BF 


IJGCLOOP 


SDMODFI 


BH 


IJGCRD1 


SDMODFI 


BF 


IJGCRDEV 


SDMODFI 


BG 


IJGCRDEV 


SDMODFI 


BH 


IJGCRELA 


SDMODFI 


BF 


IJGCRELS 


RELSE 


CT 


IJGCRET 


SDMODFI 


BG 


IJGCRET 


SDMODFI 


BH 


IJGCSKIP 


SDMODFI 


BH 


IJGCSW03 


SDMODFI 


BJ 


IJGCTEST 


SDMODFI 


BF 


IJGCUSER 


SDMODFI 


BG 


IJGCWLRE 


SDMODFI 


BJ 


IJGCWLRI 


SDMODFI 


BJ 


IJGDBLKR 


SDMODFO 


BR 


IJGDBUFF 


SDMODFO 


BR 


IJGDCLOS 


SDMODFO 


BV 


IJGDCLOS 


SDMODFO 


BV 


IJGDCTRL 


CNTRL 


CT 


IJGDDECR 


SDMODFO 


BR 


IJGDDONE 


SDMODFO 


BS 


IJGDENCY 


SDMODFO 


BS 


IJGDERRl 


SDMODFO 


BT 


IJGDEXCH 


SDMODFO 


BR 


IJGDEXTN 


SDMODFO 


BS 


IJGDEXTN 


SDMODFO 


BS 


IJGDFLIP 


SDMODFO 


BV 


IJGDIORU 


SDMODFO 


BR 


IJGDLOOP 


SDMODFO 


BS 


IJGDPUT 


SDMODFO 


BR 


IJGDPUT 


SDMODFO 


BR 


IJGDSTKY 


SDMODFO 


BS 


IJGDSW02 


SDMODFO 


BR 


IJGDSW03 


SDMODFO 


BS 


IJGDUNIO 


SDMODFO 


BT 


IJGDWAIT 


SDMODFO 


BT 


IJGDWROT 


SDMODFO 


BR 


IJGEBLKR 


SDMODFO 


BK 


IJGEBUFF 


SDMODFO 


BL 


IJGECALF 


SDMODFO 


BK 


IJGECALP 


SDMODFO 


BK 


IJGECALT 


SDMODFO 


BK 


IJGECLOS 


SDMODFO 


BQ 


IJGECLOS 


SDMODFO 


BQ 


IJGECTRL 


CNTRL 


CT 


IJGEDECR 


SDMODFO 


BK 


IJGEDONE 


SDMODFO 


BL 


IJGEEFFL 


SDMODFO 


BL 


IJGEENCY 


SDMODFO 


BL 


IJGEEOFS 


SDMODFO 


BL 


IJGEERR1 


SDMODFO 


BN 


IJGEESCH 


SDMODFO 


BM 


IJGEEXCL 


SDMODFO 


BL 


IJGEEXCL 


SDMODFO 


BQ 



IJGEEXTN 


SDMODFO 


BL 


IJGEEXTN 


SDMODFO 


BL 


IJGEFLIP 


SDMODFO 


BQ 


IJGEFLIP 


SDMODFO 


BQ 


IJGEIORU 


SDMODFO 


BK 


IJGELOOP 


SDMODFO 


BL 


IJGEPUT 


SDMODFO 


BK 


IJGEPUT 


SDMODFO 


BK 


IJGESTRY 


, SDMODFO 


BQ 


IJGESW03 


SDMODFO 


BM 


IJGETRUN 


SDMODFO 


BQ 


IJGETUPR 


SDMODFO 


BL 


IJGEUNIO 


SDMODFO 


BN 


IJGEVRRF 


SDMODFO 


BL 


IJGEWAIT 


SDMODFO 


BN 


IJGEZERF 


SDMODFO 


BM 


IJGFADD3 


SDMODFI 


BA 


IJGFCTRL 


CNTRL 


CT 


IJGFDATK 


SDMODFI 


BC 


IJGFDATK 


SDMODFI 


BC 


IJGFDATR 


SDMODFI 


BC 


IJGFDONE 


SDMODFI 


BB 


IJGFEXTN 


SDMODFI 


BA 


IJGFEXTN 


SDMODFI 


BA 


IJGFFACT 


SDMODFI 


BE 


IJGFGET 


SDMODFI 


BA 


I JGFGET 


SDMODFI 


BA 


IJGFGETA 


SDMODFI 


BB 


IJGFGETD 


SDMODFI 


BB 


IJGFGETX 


SDMODFI 


BA 


IJGFIORU 


SDMODFI 


BA 


IJGFJOHN 


SDMODFI 


BE 


IJGFLIP 


SDMODFO 


BV 


IJGFLOOP 


SDMODFI 


BB 


IJGFNXRC 


SDMODFI 


BE 


IJGFRD1 


SDMODFI 


BA 


IJGFRDER 


SDMODFI 


BC 


IJGFRDER 


SDMODFI 


BD 


IJGFRELA 


SDMODFI 


BA 


IJGFRELS 


RELSE 


CT 


IJGFRET 


SDMODFI 


BD 


IJGFRET 


SDMODFI 


BD 


IJGFRTRI 


SDMODFI 


BD 


IJGFRTRY 


SDMODFI 


BD 


IJGFSETC 


SDMODFI 


BA 


IJGFSKIP 


SDMODFI 


BC 


IJGFSW02 


SDMODFI 


BA 


IJGFSW02 


SDMODFO 


BK 


IJGFSW03 


SDMODFI 


BB 


IJGFSW04 


SDMODFI 


BB 


IJGFSW06 


SDMODFI 


BB 


IJGFTEST 


SDMODFI 


BA 


IJGFUNIO 


SDMODFI 


BC 


IJGFUPDA 


SDMODFI 


BE 


IJGFWAIT 


SDMODFI 


BC 


IJGFWLRI 


SDMODFI 


BC 


IJGGADD2 


SDMODFU 


BX 


IJGGADD3 


SDMODFU 


BW 


IJGGADD4 


SDMODFU 


BX 


IJGGCHCK 


SDMODFU 


CD 


IJGGCTRL 


CNTRL 


CT 


IJGGDATR 


SDMODFU 


CB 


IJGGDEC 


SDMODFU 


CF 


IJGGDONE 


SDMODFU 


BX 
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IJGGEOFF 


SDMODFU 


BW 


IJGGEOFT 


SDMODFU 


CB 


IJGGEXT 


SDMODFU 


BX 


IJGGEXT 


SDMODFU 


BX 


IJGGEXTN 


SDMODFU 


CE 


IJGGEXTN 


SDMODFU 


CE 


IJGGFAC1 


SDMODFU 


CD 


IJGGFACT 


SDMODFU 


CF 


IJGGFREE 


SDMODFU 


CF 


IJGGGENM 


SDMODFU 


CF 


IJGGGET 


SDMODFU 


BW 


IJGGGET 


SDMODFU 


BW 


IJGGGETA 


SDMODFU 


BY 


IJGGGETD 


SDMODFU 


BY 


IJGGGETX 


SDMODFU 


BW 


IJGGHOLD 


SDMODFU 


BY 


IJGGIORU 


SDMODFU 


BW 


IJGGKETH 


SDMODFU 


CA 


IJGGKETH 


SDMODFU 


CA 


IJGGLOOP 


SDMODFU 


BX 


IJGGNXRC 


SDMODFU 


CE 


IJGGPUT 


SDMODFU 


CG 


IJGGRD1 


SDMODFU 


BW 


IJGGRDER 


SDMODFU 


CB 


IJGGRDER 


SDMODFU 


cc 


IJGGRDWR 


SDMODFU 


CD 


IJGGREAD 


SDMODFU 


BY 


IJGGRELA 


SDMODFU 


BW 


IJGGRELS 


RELSE 


CT 


IJGGRESI 


SDMODFU 


CF 


IJGGRET 


SDMODFU 


CC 


IJGGRET 


SDMODFU 


CC 


IJGGRTRI 


SDMODFU 


CC 


IJGGRTRI 


SDMODFU 


CC 


IJGGSKIP 


SDMODFU 


CD 


IJGGSUPD 


SDMODFU 


BY 


IJGGSWOF 


SDMODFU 


CB 


IJGGSW02 


SDMODFU 


BW 


IJGGSW03 


SDMODFU 


BX 


IJGGSWOF 


SDMODFU 


BX 


IJGGSW05 


SDMODFU 


BX 


IJGGSW06 


SDMODFU 


BY 


IJGGTEST 


SDMODFU 


BW 


IJGGTOM 


SDMODFU 


CA 


IJGGTST2 


SDMODFU 


CD 


IJGGUSER 


SDMODFU 


CB 


IJGGWAIT 


SDMODFU 


CA 


IJGGWLPI 


SDMODFU 


CB 


IJGGWRT 


SDMODFU 


BZ 


IJGGWRT1 


SDMODFU 


BZ 


IJGQU111 


SDMODVU 


EK 


IJGQU112 


SDMODVU 


EJ 


IJGQU114 


SDMODVU 


EJ 


IJGQU115 


SDMODVU 


EH 


IJGQU110 


SDMODVU 


EJ 


IJGQU121 


SDMODVU 


EK 


IJGQU122 


SDMODVU 


EK 


IJGQU123 


SDMODVU 


EB 


IJGQU124 


SDMODVU 


EK 


IJGQU120 


SDMODVU 


EK 


IJGQU156 


SDMODVU 


EM 


IJGQU101 


SDMODVU 


EH 


IJGQU103 


SDMODVU 


EH 


IJGQU104 


SDMODVU 


EJ 



IJGQU105 


SDMODVU 


EJ 


IJGQU106 


SDMODVU 


EJ 


IJGQU107 


SDMODVU 


EK 


IJGQU108 


SDMODVU 


EH 


IJGQU109 


SDMODVU 


EJ 


IJGQU10B 


SDMODVU 


EJ 


IJGQU10K 


SDMODVU 


EK 


IJGQU440 


SDMODVU 


EL 


IJGQU490 


SDMODVU 


ED 


IJGQU401 


SDMODVU 


EH 


IJGQU400 


SDMODVU 


EG 


IJGQUERR 


SDMODVU 


EH 


IJGQUEXT 


SDMODVU 


EK 


IJGQUNR 


SDMODVU 


EM 


IJGQUPT 


SDMODVU 


EM 


IJGQU011 


SDMODVU 


EE 


IJGQU012 


SDMODVU 


EE 


IJGQU013 


SDMODVU 


EE 


IJGQU015 


SDMODVU 


EE 


IJGQU016 


SDMODVU 


EE 


IJGQU017 


SDMODVU 


EF 


IJGQU018 


SDMODVU 


EF 


IJGQU010 


SDMODVU 


DW 


IJGQU021 


SDMODVU 


EM 


IJGQU023 


SDMODVU 


EE 


IJGQU024 


SDMODVU 


EE 


IJGQU020 


SDMODVU 


EE 


IJGQU030 


SDMODVU 


DV 


IJGQU000 


SDMODVU 


DV 


IJGQUSER 


SDMODVU 


EM 


IJGQUSKB 


SDMODVU 


EM 


IJGSG410 


SDMODVI 


DF 


IJGSG425 


SDMODVI 


DF 


IJGSG420 


SDMODVI 


DF 


IJGSG430 


SDMODVI 


DF 


IJGSG400 


SDMODVI 


DA 


IJGSG500 


SDMODVI 


DF 


IJGSG600 


SDMODVI 


DF 


IJGSG710 


SDMODVI 


DC 


IJGSG720 


SDMODVI 


DC 


IJGSG700 


SDMODVI 


DE 


IJGSG810 


SDMODVI 


DF 


IJGSG805 


SDMODVI 


DF 


IJGSG800 


SDMODVI 


DF 


IJGSG910 


SDMODVI 


DF 


IJGSG030 


SDMODVI 


DA 


IJGSGSKI 


SDMODVI 


DA 


IJGSP110 


SDMODVI 


DC 


IJGSP110 


SDMODVO 


DK 


IJGSP120 


SDMODVO 


DQ 


IJGSP130 


SDMODVO 


DK 


IJGSP140 


SDMODVO 


DK 


IJGSP150 


SDMODVO 


DM 


IJGSP100 


SDMODVO 


DK 


IJGSP210 


SDMODVO 


DR 


IJGSP220 


SDMODVO 


DR 


IJGSP245 


SDMODVO 


DS 


IJGSP240 


SDMODVO 


DS 


IJGSP265 


SDMODVO 


DS 


IJGSP260 


SDMODVO 


DS 


IJGSP270 


SDMODVO 


DS 


IJGSP280 


SDMODVO 


DS 


IJGSP202 


SDMODVO 


DR 
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IJGSP203 


SDMODVO 


DR 


IJGSP205 


SDMODVO 


DR 


IJGSP200 


SDMODVO 


DR 


IJGSP530 


SDMODVO 


DP 


IJGSP530 


SDMODVO 


DP 


IJGSP030 


SDMODVO 


DG 


IJGSP045 


SDMODVO 


DQ 


IJGSP040 


SDMODVO 


DH 


IJGSP040 


SDMODVO 


DQ 


IJGSP050 


SDMODVO 


DQ 


IJGSP060 


SDMODVO 


DQ 


IJGSP070 


SDMODVO 


DQ 


IJGSP080 


SDMODVO 


DQ 


IJGSP095 


SDMODVO 


DK 


IJGSP090 


SDMODVO 


DK 


IJGUG170 


SDMODUI 


ET 


IJGUG100 


SDMODUI 


ET 


IJGUG210 


SDMODUI 


EQ 


IJGUG220 


SDMODUI 


EU 


IJGUG240 


SDMODUI 


EU 


IJGUG250 


SDMODUI 


EU 


IJGUG261 


SDMODUI 


EU 


IJGUG260 


SDMODUI 


EU 


IJGUG290 


SDMODUI 


EU 


IJGUG310 


SDMODUI 


ET 


IJGUG310 


SDMODUI 


ET 


IJGUG320 


SDMODUI 


EU 


IJGUG330 


SDMODUI 


EU 


IJGUG330 


SDMODUI 


EU 


IJGUG300 


SDMODUI 


EQ 


IJGUGOPT 


SDMODUI 


EQ 


IJGUG020 


CNTRL 


GA 


IJGUG030 


SDMODUI 


EQ 


IJGUG030 


SDMODUI 


EQ 


IJGUG040 


SDMODUI 


EQ 


IJGUG050 


SDMODUI 


EQ 


IJGUG060 


SDMODUI 


ET 


IJGUG060 


SDMODUO 


EV 


IJGUG070 


SDMODUI 


ET 


IJGUG080 


SDMODUI 


ET 


IJGUG090 


SDMODUI 


ET 


IJGUGUNI 


SDMODUI 


EQ 


IJGUGUSR 


SDMODUI 


ES 


IJGUP120 


SDMODUO 


EW 


IJGUP130 


SDMODUO 


EW 


IJGUP150 


SDMODUO 


EV 


IJGUP160 


SDMODUO 


EZ 


IJGUP170 


SDMODUO 


EZ 


IJGUP100 


SDMODUO 


EW 


IJGUP220 


SDMODUO 


EW 


IJGUP234 


SDMODUO 


EW 


IJGUP230 


SDMODUO 


EW 


IJGUP240 


SDMODUO 


EW 


IJGUP260 


SDMODUO 


EW 


IJGUP270 


SDMODUO 


EW 


IJGUP281 


SDMODUO 


EX 


IJGUP281 


SDMODUO 


EX 


IJGUP28A 


SDMODUO 


EX 


IJGUP28B 


SDMODUO 


EX 


IJGUP280 


SDMODUO 


' EX 


IJGUP290 


SDMODUO 


EY 


IJGUP290 


SDMODUO 


EV 


IJGUP200 


SDMODUO 


EZ 


IJGUP341 


SDMODUO 


FA 



IJGUP34A 


SDMODUO 


FA 


IJGUP340 


SDMODUO 


FA 


IJGUP350 


SDMODUO 


FA 


IJGUP020 


CNTRL 


GA 


IJGUP040 


SDMODUO 


EV 


IJGUP060 


SDMODUO 


EV 


IJGUP070 


SDMODUO 


EV 


IJGUP080 


SDMODUO 


EW 


IJGUP090 


SDMODUO 


EW 


IJGUPUNI 


SDMODUO 


EY 


IJGUPUNI 


SDMODUO 


EY 


IJGUU110 


SDMODUU 


FD 


IJGUU130 


SDMODUU 


FD 


IJGUU140 


SDMODUU 


FD 


IJGUU150 


SDMODUU 


FD 


IJGUU170 


SDMODUU 


FD 


IJGUU180 


SDMODUU 


FE 


IJGUU190 


SDMODUU 


FE 


IJGUU101 


SDMODUU 


FC 


IJGUU102 


SDMODUU 


FC 


IJGUU100 


SDMODUU 


FC 


IJGUU212 


SDMODUU 


FE 


IJGUU213 


SDMODUU 


FE 


IJGUU222 


SDMODUU 


FF 


IJGUU220 


SDMODUU 


FD 


IJGUU220 


SDMODUU 


FF 


IJGUU240 


SDMODUU 


FF 


IJGUU250 


SDMODUU 


FG 


IJGUU260 


SDMODUU 


FG 


IJGUU271 


SDMODUU 


FG 


IJGUU279 


SDMODUU 


FG 


IJGUU270 


SDMODUU 


FG 


IJGUU280 


SDMODUU 


FH 


IJGUU200 


SDMODUU 


FE 


IJGUU310 


SDMODUU 


FJ 


IJGUU310 


SDMODUU 


FK 


IJGUU350 


SDMODUU 


FF 


IJGUU360 


SDMODUU 


FL 


IJGUU370 


SDMODUU 


FL 


IJGUU380 


SDMODUU 


FL 


IJGUU390 


SDMODUU 


FL 


IJGUU410 


SDMODUU 


FM 


IJGUUFR 


SDMODUU 


FC 


IJGUUNIO 


SDMODUU 


FG 


IJGUUNOE 


SDMODUU 


FM 


IJGUU020 


CNTRL 


GA 


IJGUU030 


SDMODUU 


FB 


IJGUU030 


SDMODUU 


FB 


IJGUU040 


SDMODUU 


FB 


IJGUU051 


SDMODUU 


FB 


IJGUU050 


SDMODUU 


FB 


IJGUU060 


SDMODUU 


FB 


IJGUU070 


SDMODUU 


FB 


IJGUU080 


SDMODUU 


FC 


IJGUU090 


SDMODUU 


FC 


IJGUUSER 


SDMODUU 


FH 


IJGVG110 


SDMODVI 


DC 


IJGVG120 


SDMODVI 


DC 


IJGVG131 


SDMODVI 


DC 


IJGVG130 


SDMODVI 


DC 


IJGVG100 


SDMODVI 


DC 


IJGVG210 


SDMODVI 


DC 


IJGVG220 


SDMODVI 


DC 
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IJGVG250 


SDMODVI 


DD 


IJGVG261 


SDMODVI 


DD 


IJGVG262 


SDMODVI 


DD 


IJGVG260 


SDMODVI 


DD 


IJGVG272 


SDMODVI 


DD 


IJGVG311 


SDMODVI 


DA 


IJGVG312 


SDMODVI 


DE 


IJGVG310 


SDMODVI 


DD 


IJGVG320 


SDMODVI 


DE 


IJGVG350 


SDMODVI 


DD 


IJGVG370 


SDMODVI 


DE 


IJGVG300 


SDMODVI 


DD 


IJGVGERR 


SDMODVI 


DA 


IJGVGRET 


SDMODVI 


DB 


IJGVGRET 


SDMODVI 


DB 


IJGVGRTR 


SDMODVI 


DB 


IJGVGRTW 


SDMODVI 


DB 


IJGVG020 


CNTRL 


EP 


IJGVG030 


SDMODVI 


DA 


IJGVG030 


SDMODVI 


DA 


IJGVG040 


SDMODVI 


DA 


IJGVG050 


SDMODVI 


DA 


IJGVG060 


SDMODVI 


DA 


IJGVG070 


SDMODVI 


DC 


IJGVG080 


SDMODVI 


DC 


IJGVGUNR 


SDMODVI 


DA 


IJGVGUSE 


SDMODVI 


DB 


IJGVGUSE 


SDMODVI 


DB 


IJGVGUSR 


SDMODVI 


DB 


IJGVGWLE 


SDMODVI 


DA 


IJGVP110 


SDMODVO 


DJ 


IJGVP120 


SDMODVO 


DJ 


IJGVP130 


SDMODVO 


DJ 


IJGVP150 


SDMODVO 


DM 


IJGVPIOO 


SDMODVO 


DJ 


IJGVP210 


SDMODVO 


DH 


IJGVP230 


SDMODVO 


DK 


IJGVP240 


SDMODVO 


DK 


IJGVP260 


SDMODVO 


DK 


IJGVP280 


SDMODVO 


DG 


IJGVP290 


SDMODVO 


DK 


IJGVP200 


SDMODVO 


DH 


IJGVP310 


SDMODVO 


DK 


IJGVP320 


SDMODVO 


DU 


IJGVP331 


SDMODVO 


DT 


IJGVP330 


SDMODVO 


DT 


IJGVP330 


SDMODVO 


DT 


IJGVP351 


SDMODVO 


DT 


IJGVP352 


SDMODVO 


DT 


IJGVP350 


SDMODVO 


DT 


IJGVP360 


SDMODVO 


DL 


IJGVP380 


SDMODVO 


DL 


IJGVP390 


SDMODVO 


DL 


IJGVP440 


SDMODVO 


DL 


IJGVP450 


SDMODVO 


DL 


IJGVP460 


SDMODVO 


DL 


IJGVP470 


SDMODVO 


DL 


IJGVP520 


SDMODVO 


DP. 


IJGVP531 


SDMODVO 


DP 


IJGVP53A 


SDMODVO 


DP 


IJGVP53B 


SDMODVO 


DP 


IJGVP530 


SDMODVO 


DP 


IJGVP550 


SDMODVO 


DN 


IJGVP560 


SDMODVO 


DN 



IJGVP570 


SDMODVO 


DN 


IJGVP580 


SDMODVO 


DN 


IJGVP020 


CNTRL 


EP 


IJGVP030 


SDMODVO 


DG 


IJGVP030 


SDMODVO 


DG 


IJGVP040 


SDMODVO 


DG 


IJGVP050 


SDMODVO 


DG 


IJGVP060 


SDMODVO 


DH 


IJGVP070 


SDMODVO 


DH 


IJGVP080 


SDMODVO 


DJ 


IJGVP090 


SDMODVO 


DJ 


IJGVPUNI 


SDMODVO 


DM 


IJGVU140 


SDMODVU 


DW 


IJGVU151 


SDMODVU 


DW 


IJGVU152 


SDMODVU 


DW 


IJGVU153 


SDMODVU 


DW 


IJGVU156 


SDMODVU 


DX 


IJGVU158 


SDMODVU 


DX 


IJGVU159 


SDMODVU 


DX 


IJGVU150 


SDMODVU 


DW 


IJGVU150 


SDMODVU 


DW 


IJGVU161 


SDMODVU 


DY 


IJGVU161 


SDMODVU 


DY 


IJGVU160 


SDMODVU 


DX 


IJGVU100 


SDMODVU 


DW 


IJGVU220 


SDMODVU 


EB 


IJGVU240 


SDMODVU 


EB 


IJGVU250 


SDMODVU 


EB 


IJGVU250 


SDMODVU 


EG 


IJGVU260 


SDMODVU 


EB 


IJGVU270 


SDMODVU 


EB 


IJGVU292 


SDMODVU 


EC 


IJGVU290 


SDMODVU 


EC 


IJGVU310 


SDMODVU 


EC 


IJGVU330 


SDMODVU 


EC 


IJGVU340 


SDMODVU 


EC 


IJGVU360 


SDMODVU 


ED 


IJGVU370 


SDMODVU 


ED 


IJGVU380 


SDMODVU 


ED 


IJGVU300 


SDMODVU 


EC 


IJGVU415 


SDMODVU 


EG 


IJGVU410 


SDMODVU 


EG 


IJGVU420 


SDMODVU 


EG 


IJGVU430 


SDMODVU 


EG 


IJGVU442 


SDMODVU 


EL 


IJGVU444 


SDMODVU 


EL 


IJGVU440 


SDMODVU 


EG 


IJGVU450 


SDMODVU 


EL 


IJGVU460 


SDMODVU 


EM 


IJGVU470 


SDMODVU 


EL 


IJGVU490 


SDMODVU 


ED 


IJGVU400 


SDMODVU 


EG 


IJGVU400 


SDMODVU 


EG 


IJGVU510 


SDMODVU 


ED 


IJGVU520 


SDMODVU 


EN 


IJGVUHFT 


SDMODVU 


EA 


IJGVUINM 


SDMODVU 


EL 


IJGVUOPT 


SDMODVU 


DY 


IJGVUOPW 


SDMODVU 


DY 


IJGVUOPW 


SDMODVU 


EA 


IJGVURD 


SDMODVU 


DZ 


IJGVURD 


SDMODVU 


EA 


IJGVURET 


SDMODVU 


DZ 
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IJGVURRH 


SDMODVU 


EN 


IJGVURTR 


SDMODVU 


DZ 


IJGVURTR 


SDMODVU 


EA 


IJGVU020 


CNTRL 


EP 


IJGVU030 


SDMODVU 


DV 


IJGVU030 


SDMODVU 


DV 


IJGVU040 


SDMODVU 


DV 


IJGVU050 


SDMODVU 


DV 


IJGVU065 


SDMODVU 


DV 


IJGVU075 


SDMODVU 


DW 


IJGVU070 


SDMODVU 


DW 


IJGVU090 


SDMODVU 


DW 


IJGVUOP 


SDMODVU 


EL 


IJGVUOP 


SDMODVU 


EL 


IJGVUSER 


SDMODVU 


DY 


IJGVUSER 


SDMODVU 


EA 


IJGVUSKB 


SDMODVU 


EA 


IJGVUUNR 


SDMODVU 


DY 


IJGVUWLR 


SDMODVU 


DY 


IJGVUWT 


SDMODVU 


EL 


IJGWBLD 


SDMODW 


GG 


IJGWCHEK 


SDMODW 


GF 


IJGWCKRD 


SDMODW 


GF 


IJGWCLOS 


SDMODW 


GE 


IJGWCOMP 


SDMODW 


GG 


IJGWCTL 


SDMODW 


GM 


IJGWDECR 


SDMODW 


GC 


IJGWETRY 


SDMODW 


GD 


IJGWFOPN 


SDMODW 


GL 


IJGWFRE 


SDMODW 


GG 


IJGWFREE 


SDMODW 


GM 


IJGWFTST 


SDMODW 


GK 


IJGWHOLD 


SDMODW 


GB 


IJGWIGN 


SDMODW 


GJ 


IJGWINST 


SDMODW 


GC 


IJGWLCTY 


SDMODW 


GL 


IJGWLOAD 


SDMODW 


GC 


IJGWLREG 


SDMODW 


GE 


IJGWNOTE 


SDMODW 


GL 


IJGWOPT 


SDMODW 


GF 


IJGWOPT 


SDMODW 


GF 


IJGWPASS 


SDMODW 


GL 


IJGWPNT 


SDMODW 


GL 


IJGWPNTS 


SDMODW 


GM 


IJGWRDSK 


SDMODW 


GG 


IJGWREAD 


SDMODW 


GB 


IJGWRW 


SDMODW 


GE 


IJGWSLD 


SDMODW 


GD 


IJGWSOFF 


SDMODW 


GD 


IJGWSSET 


SDMODW 


GC 


IJGWSSTR 


SDMODW 


GD 


IJGWSTAR 


SDMODW 


GB 


IJGWSTCH 


SDMODW 


GD 


IJGWSVCO 


SDMODW 


GB 


IJGWTEST 


SDMODW 


GC 


IJGWTLIM 


SDMODW 


GL 


IJGWUND 


SDMODW 


GE 


IJGWUNIO 


SDMODW 


GF 


IJGWUNRC 


SDMODW 


GG 


IJGWUPOF 


SDMODW 


GK 


IJGWUSER 


SDMODW 


GH 


IJGWWRTE 


SDMODW 


GC 


IJGWWTER 


SDMODW 


GF 


IJGWWTER 


SDMODW 


GF 



IJGWWTER 


SDMODW 


GF 


IJGWWTER 


SDMODW 


GF 


IJGWWXIT 


SDMODW 


GC 


IJHIHRE2 


DAMOD 


NF 


IJIAE11 


DAMODV 


NW 


IJIAFG 


DAMODV 


NX 


IJIAFRD 


DAMODV 


NU 


IJIAFS 


DAMODV 


NW 


IJIAFT 


DAMOD 


NB 


IJIAFT2 


DAMODV 


NW 


IJIAFTA 


DAMODV 


NW 


IJIAFX 


DAMODV 


NW 


IJIANT 


DAMODV 


NV 


IJIANT1 


DAMODV 


NV 


IJIANV 


DAMODV 


NV 


IJIANVL 


DAMODV 


NX 


IJIARD 


DAMODV 


NV 


IJIAWR 


DAMODV 


NW 


IJICMC 


DAMOD 


NK 


IJICTL 


DAMOD 


NH 


IJICTLl 


DAMOD 


NH 


IJIDIC 


DAMOD 


NG 


IJIDUMY 


DAMOD 


ND 


IJIDV2 


DAMOD 


NK 


IJIDV3 


DAMOD 


NK 


IJIEOF 


DAMOD 


NA 


IJIEOFl 


DAMOD 


NE 


IJIEOV 


DAMOD 


ND 


IJIFGC 


DAMOD 


NJ 


IJIFIN 


DAMOD 


NC 


IJIFREE 


DAMOD 


NH 


IJIFRM 


DAMOD 


ND 


IJIFXL 


DAMOD 


NA 


IJIGCH 


DAMODV 


PC 


IJIGET 


DAMODV 


PC 


IJIGET1 


DAMODV 


PC 


IJIGNXT 


DAMODV 


PC 


IJIGSKB 


DAMODV 


PC 


IJIGSKB1 


DAMODV 


PC 


IJIGSKE 


DAMODV 


PC 


IJIGSKM 


DAMODV 


PC 


IJIGTTT 


DAMODV 


PC 


IJIJCK 


DAMOD 


NF 


IJILADR 


DAMOD 


NE 


IJILBK 


DAMOD 


NK 


IJILCH 


DAMOD 


NC 


IJILOAD 


DAMOD 


NJ 


IJIMXK 


DAMOD 


NA 


IJINCD 


DAMOD 


NK 


IJINCT 


DAMOD 


NG 


IJINEF 


DAMOD 


ND 


IJINFIT 


DAMODV 


NV 


IJINID 


DAMOD 


NF 


IJINRF 


DAMODV 


NT 


IJINRM • 


DAMOD 


NB 


IJINRMU 


DAMODV 


NT 


IJINRTO 


DAMOD 


ND 


IJIOV2 


DAMOD 


NJ 


IJIOVCH 


DAMODV 


PE 


IJIOVH 


DAMODV 


PE 


IJIOVP 


DAMOD 


NJ 


IJIPRI 


DAMOD 


NC 


IJIPSI 


DAMOD 


NB 
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IJIREAD 


DAMOD 


NE 


IJIREAD 


DAMODV 


PA 


IJIRND 


DAMOD 


NB 


IJIRON 


DAMOD 


NB 


IJIRTER 


DAMOD 


ND 


IJIRZO 


DAMOD 


NB 


IJISAFIT 


DAMODV 


NU 


IJISAFT 


DAMODV 


NU 


IJISANUL 


DAMODV 


NM 


IJISASRO 


DAMODV 


NV 


IJISBK 


DAMOD 


NB 


IJISCMC 


DAMODV 


PD 


IJISCTL 


DAMODV 


NY 


IJISCTL1 


DAMODV 


NY 


IJISCTL1 


DAMODV 


NY 


IJISDOM 


DAMODV 


NN 


IJISDV3 


DAMODV 


PE 


IJISEOV 


DAMODV 


NZ 


IJISERF 


DAMODV 


NT 


IJISFGC 


DAMODV 


PE 


IJISFIN 


DAMODV 


NU 


IJISFREE 


DAMODV 


NY 


IJISFRM 


DAMODV 


NZ 


IJISGDL 


DAMODV 


NM 


IJISGS 


DAMODV 


NS 


IJISICL 


DAMODV 


NZ 


IJISING 


DAMODV 


NT 


IJISJCK 


DAMODV 


PB 


IJISKI 


DAMODV 


NR 


IJISKI1 


DAMODV 


NR 


IJISKID 


DAMODV 


NR 


IJISKIF 


DAMODV 


NR 


IJISKIF1 


DAMODV 


NR 


IJISKIR 


DAMODV 


NR 


IJISKS 


DAMODV 


NR 


IJISKS1 


DAMODV 


NR 


IJISLBK 


DAMODV 


PD 


IJISLOAD 


DAMODV 


PE 


IJISMID 


DAMODV 


PA 


IJISNEF 


DAMODV 


PA 


IJISNF 


DAMODV 


NQ 


IJISNID1 


DAMODV 


PA 


IJISNL 


DAMODV 


NP 


IJISNL1 


DAMODV 


NP 


IJISNRM 


DAMODV 


NT 


IJISNRTO 


DAMODV 


NZ 


IJISOV1 


DAMODV 


PD 


IJISOV2 


DAMODV ' 


PE 


IJISOV2 


DAMODV 


PE 


IJISOV2S6 


DAMODV 


PE 


IJISOVP 


DAMODV 


PD 


IJISPW 


DAMODV 


NP 


IJISRFD 


DAMODV 


NN 


IJISRON 


DAMODV 


NN 


IJISRTER 


DAMODV 


PB 


IJISSF 


DAMODV 


NP 


IJISSTO 


DAMODV 


NM 


IJISSTO 


DAMODV 


NM 


IJISSTRT 


DAMODV 


NM 


IJISSVCF 


DAMODV 


PE 


IJISSWL 


DAMODV 


NM 


IJISTDL 


DAMODV 


NS 


IJISTI 


DAMODV 


NP 


IJISTK 


DAMODV 


NP 



IJISTKW 


DAMODV 


NQ 


IJISttNR 


DAMODV 


PB 


IJISTO 


DAMOD 


NA 


IJISTO 


DAMOD 


NA 


IJISTRT 


DAMOD 


NA 


IJISTT 


DAMODV 


NP 


IJISUBRS 


DAMOD 


NC 


IJISUID 


DAMODV 


PA 


IJISVR 


DAMODV 


NS 


IJISVR1 


DAMODV 


NS 


IJISVT 


DAMODV 


NP 


IJISVT1 


DAMODV 


NQ 


IJISVW 


DAMODV 


NQ 


IJISWC 


DAMODV 


NQ 


IJISWLL 


DAMODV 


NT 


IJISWND 


DAMODV 


NT 


IJISWSB 


DAMODV 


NN 


IJISWTM 


DAMODV 


NZ 


IJISXTFD 


DAMODV 


NZ 


IJISYID 


DAMODV 


PA 


IJISZER 


DAMODV 


NU 


IJITNR 


DAMOD 


NF 


IJITOM 


DAMOD 


NF 


IJITRHLD 


DAMOD 


NB 


IJIUID 


DAMOD 


NF 


IJIWAFT 


DAMODV 


NW 


IJIWFTR 


DAMODV 


PA 


IJIWLR 


DAMODV 


NT 


IJIWND 


DAMOD 


NB 


IJIWND 


DAMOD 


NH 


IJIWRT 


DAMODV 


NM 


IJIWRU 


DAMOD 


NA 


IJIWTM 


DAMOD 


ND 


IJIXNF 


DAMOD 


NK 


IJIXTFD 


DAMOD 


ND 


IJIYID 


DAMOD 


ND 


IJIZER 


DAMOD 


NB 


IJOPEN 


$$BOSD04 


JL 


IJUP330 


SDMODUO 


EZ 


IJWUPDT 


SDMODW 


GC 


ILLEGAL 


$$BOMSG2 


AS 


INCORE 


$$BOMSG2 


AQ 


INCREASE 


$$BOSDI2 


HG 


INCREMEN 


$$BOSD03 


JH 


INCREMNT 


$$BODAIN 


PH 


INCRKEY 


$$BODACL 


RH 


INCRKEY 


$$B0SDI3 


HJ 


INCRMT 


$$BODA02 


QB 


INCVAR 


$$B0DA01 


PQ 


INITBS 


$$BOSD01 


HB 


INITCCB 


$$BOSDOl 


JB 


INITDTF 


$$BOSDI4 


HL 


INITDTF 


$$BOSD04 


JL 


INITDTF 


$$B0SD05 


JP 


INITDUMP 


$$BOMSG2 


AR 


INITPSW 


$$BOSDIl 


HC 


INITREG 


$$BOMSGl 


AP 


INITSEEK 


$$BOSDOl 


JB 


INITUTLO 


$$BOSD06 


JR 


INPULB 


$$BODAUl 


RC 


INPUT 


$$BODAIN 


PG 


INPUT 


$$B0DAU1 


RA 


INPUTFLE 


$$BOSDCl 


LA 


INRANGE 


$$B0SDI2 


HG 
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INSERT 


$$BODAUl 


RD 


INSERTX 


$$BOSD05 


JP 


INSERTX 


$$BOSDW2 


KH 


ISAMTYPE 


$$BOFLPT 


AA 


JCTEXIT 


$$BOMSG2 


AR 


JJISSEDF 


DAMODV 


NM 


LABADR 


$$BODAIN 


PH 


LABELSW 


$$BODACL 


RH 


LABELSW 


$$BOSD06 


JQ 


LAF1XTNT 


$$BOSDI2 


HG 


LASTIND 


$$BOSD05 


JN 


LASTIND 


$$BOSDW2 


KG 


LASTLINE 


$$BODSPW 


AG 


LASTSW 


$$BOSD01 


JB 


LASTVOL 


$$BOSDIl 


HC 


LASTXTNT 


$$BOSD05 


JP 


LASTXTNT 


$$BOSDWl 


KD 


LASTXTNT 


$$BOSDW2 


KH 


LDLIM 


$$BODA01 


PQ 


LIMRCH 


$$BODA02 


QA 


LOADALTR 


$$BODAIl 


PJ 


LOADEXIT 


$$BOSDI3 


HK 


LOADEXIT 


$$BOSD04 


JM 


LOADEXIT 


$$BOSD05 


JP 


LOADEXIT 


$$BOSD06 


JR 


LOADINP 


$$BOSD00 


HA 


LOADIO 


$$BOSDEV 


LG 


LOADMSG 


$$BOSDIl 


HD 


LOADMSG 


$$BOSDOl 


JB 


LOADMSG 


$$BOSDWl 


KE 


LOADONE 


$$BODACL 


RF 


LOADPHAS 


$$BOMSG2 


AQ 


LOADREG 


$$BOMSGl 


AP 


LOADREGO 


$$BOSD06 


JR 


LOADUSER 


$$BODACL 


RG 


LOADUSER 


$$BOSD06 


JQ 


LOADWORK 


$$BOMSGl 


AN 


LOADWORK 


$$BOSDIl 


HC 


LOADWORK 


$$BOSD07 


JS 


LOOP 


$$BODSMW 


AT 


LUBXXX 


$$BOMSGl 


AN 


MARSWITCH 


$$BOSD03 


JJ 


MAXOUT 


$$BODAUl 


RB 


MESSG17 


$$BOSDI3 


HJ 


MESSG47 


$$BOSDIl 


HC 


MESSG5 


$$BOMSG2 


AQ 


MODCCWLG 


$$BODSPW 


AF 


MODIFY3 


$$BOSDIl 


HC 


MODRESP 


$$BOMSG2 


AQ 


MONORTN 


$$BODQUE 


LE 


MONORTN 


$$BOFLPT 


AC 


MORXTNT 


$$BODAIl 


PK 


MORXTNT 


$$BODAIN 


PG 


MORXTNTS 


$$BODSPW 


AG 


MORXTNTS 


$$BOSDIl 


HC 


MOVE 


$$BODSPW 


AG 


MOVEADDR 


$$BOSDW3 


KJ 


MOVECCW 


$$BOSDI2 


HG 


MOVECCW 


$$BOSDWl 


KD 


MOVECCW9 


$$BOSDWl 


KE 


MOVEDATA 


$$BODACL 


RG 


MOVELL 


$$BODA02 


QB 


MOVEMSG 


$$BOMSG2 


AQ 



MOVEMSG1 


$$BODSPV 


AE 


MOVENAME 


$$BODSMW 


AT 


MOVENAME 


$$BOFLPT 


AC 


MOVEPT 


$$BODAIl 


PJ 


MOVERCM 


$$BODSPW 


AG 


MOVERCM 


$$BOSD03 


JG 


MOVERCM 


$$BOSD08 


KA 


MOVESYM 


$$BOSDIl 


HD 


MOVESYM 


$$BOSDWl 


KE 


MOVEUNIT 


$$BOSDCl 


LB 


MOVEUNIT 


$$BOSDIl 


HD 


MOVEUNIT 


$$BOSDWl 


KE 


MOVEUTLO 


$$BOSD06 


JQ 


MOVLOLIM 


$$BOSDOa 


JL 


MOVSYM 


$$BOSD01 


HB 


MOVSYM 


$$BOSD01 


HB 


MSG2 


$$BODAIl 


PJ 


MSG2 


$$BODAIN 


PF 


MSG2 


$$BODAOl 


PQ 


MSGEXIT 


$$BOSD03 


JG 


MSGPHAS1 


$$BOSDIl 


HE 


MSGPHAS1 


$$BOSDOl 


JC 


MSGPHAS1 


$$BOSDWl 


KF 


MSGRCUT2 


$$BOMSG2 


AQ 


MSGRET 


$$BODAUl 


RC 


MSGRITE 


$$BOSD03 


JK 


MSGROUT1 


$$BOMSGl 


AN 


MSGRTN 


$$BODAIl 


PL 


MSGRTN 


$$BODAIN 


PH 


MSGRTN 


$$BODAOl 


PR 


MSG05SW 


$$BOMSG2 


AS 


MULTU 


$$BOSDEV 


LG 


MVEXT 


$$BODAIN 


PF 


MVPNTR 


$$BODAOl 


PN 


NDRUTINE 


$$BOFLPT 


AC 


NEWLIMIT 


$$BOSDI2 


HF 


NEWVOLUM 


$$BOSDOl 


JB 


NEXT 


$$BODSPW 


AF 


NEXT1 


$$BODSMW 


AD 


NEXT2 


$$BODSMW 


AU 


NEXTADR 


$$BOWDMP 


AL 


NEXTLBL 


$$BOSD03 


JG 


NEXTLBL 


$$BOSD08 


KA 


NEXTPHAS 


$$BODSPW 


AH 


NEXTPHAS 


$$BOSDIl 


HE 


NEXTPHAS 


$$BOSDI2 


HG 


NEXTPHAS 


$$BOSD01 


JC 


NEXTPHAS 


$$BOSD03 


JG 


NEXTPHAS 


$$BOSD06 


JR 


NEXTPHAS 


$$BOSDWl 


KF 


NEXTREAD 


$$BOSD03 


JK 


NEXTTEST 


$$BOMSG2 


AS 


NEXTVOL 


$$BOSD01 


JA 


NEXTXTNT 


$$BOSDIl 


HD 


NEXTXTNT 


$$BOSD01 


JB 


NOF1 


$$BODAUl 


RE 


NOF1LB 


$$BODAIl 


PL 


NOF3 


$$BODAIl 


PL 


NOF3 


$$BODAUl 


RE 


NOF4 


$$BODA01 


PR 


NOF4 


$$BODA02 


QD 


NOF4 


$$BODA03 


QF 


NOHOLD 


$$BOSDC2 


LD 


NOMATCH 


$$BOSDW3 


KJ 


NOMSG 


$$BODA03 


QE 
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NOMSG 


$$BODA04 


QJ 


NONSDTY 


$$BOFLPT 


AA 


NONXTENT 


$$BOFLPT 


AA 


NORELAD 


$$BODAIN 


PG 


NOROOM 


$$BODA03 


QH 


NOSER 


$$BODAOl 


PN 


NOTAP 


$$BOSDEV 


LF 


NOTF1 


$$BOWDMP 


AM 


NOTRKHLD 


$$BOSDCl 


LC 


NOTRKHLD 


$$BOSDI3 


HK 


NOUHL 


$$BODAUl 


RE 


NOVLAB 


$$BODAIl 


PL 


NOVLAB 


$$BODAOl 


PR 


NOVOL1 


$$BODA02 


QD 


NOVOL1 


$$BODA03 


QH 


NOVOL1 


$$BODAUl 


RE 


NOXNTSW1 


$$BOSDI2 


HG 


NOXT 


$$BODAIN 


PH 


NOXT 


$$BODA02 


QD 


NOXT 


$$BODA03 


QH 


NRFFU 


$$BODA01 


PR 


NRFF4 


$$BODA03 


QF 


NRF01 


$$BODA02 


QD 


NRF09 


$$BODA03 


QH 


NRF09 


$$BODA04 


QL 


NRFVL 


$$BODAOl 


PR 


NXTEXT 


$$BODAOl 


PQ 


NXTSU 


$$BODA02 


QA 


ONLYONE 


$$BOSDOl 


JA 


OPENCODE 


$$B0SDI3 


HJ 


OPENCUT8 


$$BOSD08 


KA 


OPENFILE 


$$BOSDOl 


JA 


OPENINP1 


$$BOSDIl 


HC 


OPENINP2 


$$BOSDI2 


HF 


OPENOUT1 


$$BOSDOl 


JA 


OPENOUT2 


$$BOSD02 


JF 


OPENOUT3 


$$BOSD03 


JG 


OPENOUT4 


$$BOSD04 


JL 


OPENOUT5 


$$BOSD05 


JN 


OPENOUT6 


$$BOSD06 


JQ 


OPENOUT7 


$$BOSD07 


JS 


OPENWRK1 


$$BOSDWl 


KD 


OPENWRK2 


$$BOSDW2 


KG 


OPENWRK3 


$$BOSDW3 


KJ 


OPN2 


$$BODAIl 


PJ 


OTHER 


$$BOWDMP 


AM 


OUT 


$$BODA04 


QJ 


OUTPTFL 


$$BOSDCl 


LA 


OUTPUT 


$$BOSIGN 


JE 


OUTPUTFL 


$$BOSDEV 


LF 


OUTRUTIN 


$$BODQUE 


LE 


PACKXTNT 


$$BOSDl2 


HG 


PACKXTNT 


$$BOSD03 


JH 


PASS 


$$BODAUl 


RC 


PASSXTNT 


$$BOSDIl 


HD 


PAXENTS 


$$BOSDW3 


KJ 


PLUGXT 


$$BODA04 


QK 


PNTCCB 


$$BODAIN 


PF 


POINTERX 


$$BOSDW3 


KJ 


POSTD18 


$$BOSDIl 


HC 


POSTDIB 


$$BOSDOl 


JA 


POSTEDX 


$$BOSDEV 


LG 


POSTLMTS 


$$BOSDOa 


JL 


POSTOPEN 


$$BOSDI4 


HL 



POSTOPEN 


$$BOSDWl 


KD 


POSTXTNT 


$$BOSDI2 


HH 


POSTXTNT 


$$BOSDI4 


HL 


POSTXTNT 


$$BOSDW3 


KJ 


PRBGN 


$$BOSD01 


HB 


PRECONVT 


$$BOSD01 


HB 


PRINTER1 


$$BODSPV 


AE 


PRINTERl 


$$BODSPW 


AH 


PRINTER1 


$$BOVDMP 


AK 


PRINTERl 


$$BOWDMP 


AL 


PROGNAME 


$$BODSPV 


AE 


PUT21LL 


$$BOFLPT 


AB 


PUT21UL 


$$BOFLPT 


AB 


PUTTER2 


$$BOWDMP 


AM 


PVTLIBRY 


$$BOSDCl 


LA 


QTAMFLPT 


$$BOSDI4 


HM 


QTAMOPEN 


$$BOSDI4 


HM 


RDFLAB 


$$BODA02 


QA 


RDFOR3 


$$BODAIl 


PK 


RDLABEL 


$$BODACL 


RG 


RDY 


DAMOD 


NL 


READ 


$$BODAIl 


PJ 


READDISK 


$$BODSPW 


AH 


READDISK 


$$BOSDCl 


LC 


READDISK 


$$BOSDIl 


HE 


READDISK 


$$BOSDI2 


HH 


READDISK 


$$BOSD01 


JD 


READDISK 


$$BOSDW2 


KH 


READDISK 


$$BOSDW3 


KK 


READDISK 


$$BOVDMP 


AK 


READDISK 


$$BOWDMP 


AL 


READDISK 


SD 


KB 


READDISK 


SD 


KC 


READF1 


$$BODAUl 


RA 


READF3 


$$BODSPW 


AG 


READFMT4 


$$BOVDMP 


AJ 


READMSG 


$$BODSPV 


AE 


READMSG 


$$BOMSG2 


AR 


READUL 


$$BODAUl 


RC 


READVOL1 


$$BOSDIl 


HD 


READVOL1 


$$BOSD02 


JF 


READXTNT 


$$BOSDOl 


JB 


RECMOV 


$$BODAOl 


PR 


RECMOV 


$$BODA02 


QC 


REDUCE 


$$BODSMW 


AT 


REENTRY 


$$BOSDI2 


HF 


REENTRY 


$$BOSDI3 


HJ 


REGSAVE 


$$BOSDEV 


LF 


RELOAD 8 


$$BODSPW 


AG 


RELOCATE 


$$BOVDMP 


AJ 


REOPEN1 


$$BOSDCl 


LA 


REOPEN 1 


$$BOSDCl 


LB 


REREAD 


$$BODSPV 


AE 


REREAD1 


$$BOSD01 


HB 


REREADF1 


$$BOSDW2 


KG 


RESET 


$$BOFLPT 


AC 


RESET 9 


$$BOSDCl 


LA 


RESETCP 


$$BOSD00 


HA 


RESETEOF 


$$BOSDIl 


HC 


RESETIND 


$$BOSDI3 


HK 


RESETIND 


$$BOSDOl 


JC 


RESETLBL 


$$BOSD06 


JQ 


RESETMON 


$$BOSDIl 


HE 


RESETPNT 


$$BOSDW3 


KJ 
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RESTORE 


$$BODQUE 


LE 


RESTORE 


$$BODSMW 


AT 


RESTORE 


$$BOFLPT 


AC 


RETMON 


S$BOSDIl 


HC 


RETMON 


$$BOSDOl 


JA 


RETURN 


$$BOVDMP 


AJ 


RETURN 


$$BOWDMP 


AL 


RETURNF3 


$$BODSPW 


AG 


REVTOC 


$$BODA02 


QD 


RTNF3 


$$BODAIl 


PJ 


RTNMON 


$$BODACL 


RG 


SAVDIB 


$$BOSD00 


HA 


SAVE 


$$BODSMW 


AT 


SAVECON 


$$BOSDEV 


LF 


SAVEF1 


$$BOSD01 


JB 


SAVEFX 


$$BODAOl 


PN 


SAVELIMIT 


$$BOSDWl 


KF 


SAVESEQ 


$$BOSDI2 


HF 


SAVESEQNO 


$$BOSDOl 


JB 


SAVESYS 


$$BODSPV 


AE 


SAVEUNIT 


$$BOSDWl 


KE 


SAVFRX 


$$BODA02 


QA 


SAVLIMIT 


$$BOSD02 


JF 


SCROPN 


$$BODA02 


QC 


SCRTCH 


$$B0DA02 


QC 


SD 


$$BOSD01 


HB 


SEARCH 


SD 


KB 


SECDOVLP 


$$BOMSG2 


AQ 


SEQERR 


$$BODA04 


QK 


SEROK 


$$BODA03 


QE 


SETEXIT 


$$BOSD04 


JM 


SETIND 


$$BOSD01 


HB 


SETINTSW 


$$BOMSG2 


AR 


SETLAST 


$$BOSDOl 


JA 


SETON 


$$BOFLPT 


AA 


SETRECD 


$$BOSDIU 


HL 


SETSW1 


$$BOSDCl 


LB 


SHIFTMSG 


$$BOMSGl 


AP 


SKIP16 


$$BOFLPT 


AA 


SKIP24 


$$BOFLPT 


AA 


SKIP28 


$$BOFLPT 


AB 


SKIP29 


$$BOFLPT 


AB 


SKIP20 


$$BOFLPT 


AA 


SKIP32 


$$BOFLPT 


AB 


SKIP36 


$$BOFLPT 


AB 


SKIP30 


$$BOFLPT 


AB 


SKIP40 


$$BOFLPT 


AB 


SKIP90 


$$BOFLPT 


AD 


SKIP04 


$$BODQUE 


LE 


SKIP04 


$$BOFLPT 


AA 


SKIP 06 


$$BOFLPT 


AA 


SKIP08 


$$BOFLPT 


AA 


SPLITCYL 


$$BOSD03 


JH 


SQEZJIB 


$$BOFLPT 


AD 


STARTFRE 


$$BOSDC2 


LD 


STDTF 


$$BODAIN 


PF 


STORCT 


$$FODA03 


QE 


STORE 


$$BODAIN 


- PH 


STORSU 


$$BODAIl 


PJ 


STOWN 


$$BODAUl 


RB 


STRFXT 


$$BODA03 


QE 


SUMROUT 


$$BOMSG2 


AS 


SUMROUT 


SD 


KC 


SVF1AD 


$$BODA02 


QB 


SYSPRINT 


$$BODSPV 


AE 


SYSTEMSW 


$$B0SD08 


KA 



TESTC2 


$$BODA02 


QB 


TESTCCB 


$$BOSDIl 


HC 


TESTDTF 


$$BOSDWl 


KE 


TESTEOB 


$$BODSMW 


AU 


TESTEOF 


$$BODACL 


RG 


TESTEOF 


$$BODSMW 


AU 


TESTEOF 


$$BOSDI3 


HJ 


TESTEOV 


$$BOSD01 


JB 


TESTIPT 


$$BOSDEV 


LF 


TESTLAST 


$$BOSDIl 


HD 


TESTNEXT 


$$BOSD07 


JS 


TESTOPEN 


$$BOSDIl 


HC 


TESTOPEN 


$$BOSD03 


JG 


TESTPS 


$$BODAIl 


PL 


TESTPS 


$$BODA04 


QL 


TESTPTR 


$$BODQUE 


LE 


TESTPTR 


$$BOFLPT 


AA 


TESTSW 


$$BOSDIl 


HC 


TESTSYM 


$$BOSDIl 


HD 


TESTWORK 


$$BOSD00 


HA 


TESTXT 


$$BODA02 


QB 


TIC 


DAMOD 


NL 


TOMANY 


$$BODA03 


QE 


TRAILER 


$$BOSD01 


JC 


TRKLOOP 


$$BOSDC2 


LD 


TST2314 


$$BODAIN 


PF 


TST2321 


$$BODAIN 


PF 


TSTDVCTP 


$$BODAIN 


PG 


TSTLIM 


$$BOSD00 


HA 


TSTMONT 


$$BOFLPT 


AC 


TSTOUT 


$$BODAIN 


PH 


TSTPOINT 


$$BOSD03 


JH 


TSTPRIME 


$$B0SDI2 


HG 


TSTRDLB 


$$BODACL 


RH 


TSTRPY 


$$BODA02 


QC 


TSTVAR 


$$BODA02 


QB 


TW311 


$$BODA02 


QB 


TWTY1 


$$BODAOU 


QJ 


TWTY11 


$$BODA04 


QJ 


TYPEASW 


$$BOMSG2 


AS 


TYPEEOB 


$$BOMSG2 


AR 


TYPEMSG 


$$BOSDI2 


HG 


TYPEMSG 


$$BOSD03 


JK 


TYPEMSG1 


$$BOSD07 


JS 


TYPERROR 


$$BOSD07 


JS 


ULAB 


$$BODAUl 


RA 


UNDEF 


$$BOSDOl 


JB 


UNEXDEF 


$$BOSDCl 


LC 


UNPACK 


$$BOWDMP 


AM 


UNPACK3 


$$BODSPW 


AG 


UPPERLT 


$$BODAIl 


PK 


UPPERLT 


$$BODAIN 


PH 


UPVSEQ 


$$BODA04 


QK 


USEREXIT 


$$BOSDCl 


LC 


USEREXIT 


$$BOSDEV 


LF 


USEREXIT 


$$BOSDEV 


LG 


USEREXIT 


$$BOSDW3 


KJ 


USERLBLS 


$$BOSDOl 


JC 


USERXTNT 


$$B0SDI2 


HF 


VERIFY 


$$BOSDOl 


JB 


VERIFY 


$$BOSDWl 


KE 


VERIFY 


$$BOSIGN 


JE 
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VERIFYCP 


$$BOSD04 


JM 


VIA1052 


$$BOSD04 


JM 


VIA1052 


$$BOSD05 


JP 


VTOCADDR 


$$BOSDIl 


HE 


VTOCADDR 


$$BOSD02 


JF 


VTOCADDR 


$$BOSDWl 


KF 


VTOCDSPZ 


$$BODSPW 


AF 


WORKCLOS 


$$BOSDCl 


LB 


WORKFILE 


$$BOSDCl 


LA 


WRI 


DAMOD 


NL 


WRITDISK 


$$BOSDCl 


LC 


WRITDISK 


$$BOSD06 


JR 


WRITDISK 


$$BOSDW2 


KH 


WRITDISK 


SD 


KB 


WRITDISK 


SD 


KC 



WRITE 


$$BODA03 


QG 


WRITE 


$$BODA04 


QL 


WRITE 


$$BODAUl 


RE 


WRITE 


$$BODSMW 


AT 


WRITEF1 


$$BOSDCl 


LB 


WRITELBL 


$$BODACL 


RH 


WRITELBL 


$$BOSD06 


JQ 


WRITEMSG 


$$BOMSG2 


AQ 


WRLABL 


$$BODA04 


QK 


WRLAST 


$$BODAUl 


RB 


WRNGPKSW 


$$BOMSG2 


AS 


WRONGPAK 


$$BOSD02 


JF 


XTNTCONV 


$$BOSD01 


HB 


XTNTOK 


$$BOSD01 


HB 


XTNTOKAY 


$$BOSD02 


JF 
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APPENDIX B: MESSAGE CROSS-REFERENCE LIST 



For explanations and actions to be taken 
for the various messages, refer to DOS 
Messages . GC24-5074. 



Note ; The second digit of the message 
number indicates the type of DASD file 
issuing the message. The file types are: 

3 = Sequential DASD - Open input 

4 = Sequential DASD - Open output 



5 = Sequential DASD - Close 

6 = Direct Access - Input 

7 = Direct Access - Output 

8 = Common Open/Close routines 

9 = Sequential DASD - Work file 
V = VTOC Display routines 



r~" 
l 


Message 
Number 


-+- 

-+- 
i 


Phase 




T~ 

Chart | 




Message 


1 

- — J 


1 
i 


44001 
47001 


$$BODA03 


T 

-+- 


T 

KB | 

QH | 


NO 

NO 
NO 

NO 


LABEL SPACE IN VTOC 

or 
RECORD FOUND 
FORMAT 1 LABEL 

or 
RECORD FOUND 


1 


1 


49001 
43011 


T 

-+- 

J_ 


$$BOSDI2 


T 

-+- 

4— 


KB | 

+- 

HF | 


^ 


i~ 

Y- 

1 


44011 


T 

-+- 
-4- 


$$BOSD04 
$$BOSD05 


T 

-+- 
-+- 

J. 


KB | 
JM | 
JN j 

LB j 

PL j 
RE j 




45011 
46011 


$$BOSDCl 

$$B0DAI1 
$$B0DAU1 


NO 


FORMAT 3 LABEL FOUND 




1 

1 


47011 


T 


$$B0DA02 
$$B0DAU1 


T 
4. 


QD | 
RE j 




1 
1 


49011 


T 

-+- 
-+- 
■-+- 

J. 


$$BOSDW2 
$$BOSDW3 


T 
J. 


KB | 
KG | 
KJ | 

H 

HG | 

1 

JN j 
LB j 


^ 


1 

H 
I- 


43031 


$$BOSDI2 


-+- 
-+- 

J. 


44031 


$$BOSD05 








45031 


$$B0SDC1 








46031 


T 


$$B0DAI1 
$$BODAUl 


T 
-+- 


PL | 
RE j 

RE j 
1 

KG j 
KJ j 

X 




47031 


$$BODAUl 








49031 


$$BOSDW2 
$$BOSDW3 






j 
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r — 

| Message 
| Number 


• T 

i 


Phase 


T" 


Chart | 


Message 


' 1 
1 


| 43041 

1- 

| 44041 


T 

H- 


$$B0SDI1 


4— 


HE | 
i 


NO FORMAT 4 LBL IN VTOC 

or 
NO RECORD FOUND 


1 


$$BOSD02 


1 
4.— 


— I 

JE j 




| 47041 
| 49041 


1 . 


$$BODA01 
$$BODA02 
$$BODA03 

$$BOSDWl 


1 

-+- 

1 


PR | 
QD | 
QF | 

KF | 
j 




| 4V04I 


$$BODSPW 
$$BOVDMP 


1 
j. 


1 

AF | 
AJ | 


1 


| 43061 
| 44061 
| 45061 


T 

-+- 


$$B0SDI1 
$$BOSD02 
$$B0SDC1 


1 

-+- 
-+- 


FL | 

JE | 
1 

LB j 


NO STANDARD VOL1 LABEL 

or 
NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

or 
NO UTL0 FILE MARK FOUND 


1 


| 46061 
| 47061 




$$B0DAI1 
$$B0DAU1 

$$BODA01 
$$BODA02 
$$BODA03 
$$B0DAU1 


T 

-+- 


PL | 
RE j 

1 

PR j 
QD | 
QH | 
RE j 




| 49061 


T 


$$B0SDW1 


1 


KE | 




| 4V06I 
| 43071 


T 

-+- 

J. 


$$BODSPW 
$$BOVDMP 

$$B0SDI1 


1 

-+- 

1 


AF | 
AJ | 

+- 

HD j 


-i 


| 44071 


T 


$$BOSD01 


T 
i 


JB | 




| 49071 
| 4308D 

| 4408D 
| 4608D 


T 

-¥- 
-+- 


$$BOSDWl 

$$BOSDI3 
$$BODACL 

$$BOSD06 

$$BODACL 


1 

-+- 

-+- 
-+- 


KD | 

+- 

HJ j 

RG | 

1 

JQ | 

^ 

RG j 




| 4708D 


* T 


$$BODACL 


1 


RF | 
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Message 
Number 

44091 



47091 



49091 



4V09I 



Phase 
$$BOSD03 

$$BOSD08 



$$BODA02 
$$BODA03 
$$BODA04 
$$BOSD08 



$$BOSD03 



$$BOSD08 



$$BODSPW 
$$BOVDMP 



Chart 



JG 

JH 
JK 
KA 



QB 
QH 
QL 
KA 



JG 
JH 
JK 
KA 



AG 
AL 



Message 



NO RECORD FOUND 



-H 



4330D 



$$BOSDI2 



JD 



FMT1-DLAB UNEQUAL 



4331D 



$$BOSDI2 



HF 



4433A 
4733A 
4933A 



44341 
49351 

49361 

4338D 
4638D 



$$BOSD08 

$$BOSD08 

$$B0SD08 

+ 

$$BOSD05 



f- 



VOLUME SEQUENCE ERROR 



KA 
KA 
KA 



EQUAL FILE ID IN VTOC 






JN 






4639D 



$$BOSDW2 
$$BOSDW3 

$$BOSDW3 

+— 

$$BOSDI3 

$$BODAUl 

4- 



KG 
KJ 



CURRENT FILE LBL DELETED 
DELETED WORKFILE LABEL 



+ + 



KJ 
+ 1 

HJ 
RE 



NO MORE AVAIL/MATCH EXTENT 
USER HDR LBL IS NOT STD 



$$BODACL 



RG 



USER TRL LBL IS NOT STD 



4440A 
4740A 
4940A 

4441A 
4741A 
4941A 



$$BOSD03 
$$BODA01 
$$BOSD03 



$$BOSD02 
$$BODA01 
$$BOSDWl 



JK 

PQ 
JK 

+ 

JF 

PP 
KF 



EXTENT OVERLAP ON ANOTHER 



EXTENT OVERLAP ON VTOC 



4342A 



$$BOSDI2 



— + 



HG 



NO MATCHING EXTENT 






42431 



| $$BOSD08 



KA 



INVALID EXTENT HI/LO LIMIT 
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T T 

Chart 



Message 
Number 



4444A 
4744A 
4944A 
44451 
47451 



$$B0DA02 
$$B0SD03 

$$B0SD01 

+ 

$$B0DA03 



Phase 



$$B0SD03 



_ + ~ 






— +~ 



JK 
1 

QC 
1 

JK 



JA 

^ 

QE 



Message 



OVERLAP ON UNEXPRD FILE 



TOO MANY EXTENTS 



4947A 



$$BOSDWl 



KD 



EXTENTS NOT ON SAME UNIT 



43481 
44481 
4450A 
46511 



$$BOSD00 



HA 



SYSIN/SYSOUT UNSUPPORTED 



$$BOSD07 
$$BODAIl 



HA 
JS 
PK 



■H 



$$BOSD00 



NO MORE AVAILABLE EXTENTS 
SYSUNITS NOT IN SEQUENCE 






47511 



$$BODA04 



QK 



4355A 

I- 

4455A 



4655A 



-f 



$$BOSDIl 
$$BOSD02 



~ I— 



HD 
1 

JF 



WRONG PACK, MOUNT nnnnnn 



-H 



$$BODAIl 



4755A 



$$BODA01 



PJ 
PN 



H 



4955A 
43581 



$$BOSDWl 
$$BOSD01 



KE 



1 






HB 



NO EXTENT FOR OUTPUT FILE 



44581 



$$BOSD01 



HB 



+ 



43591 
44591 



$$BOSD01 



HB 



INVALID EXTENT 






$$BOSD01 



HB 
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T T~ 

Chart 



Message 
Number 



Phase 



Message 



43601 



44601 



+ 



$$BOSDIl 



HC 



NO EXTENTS, ALL BYPASSED 



$$BOSDOl 



JA 



47601 



h 



$$BODAIN 
$$BODA02 
$$BODA03 



PH 
QD 
QH 



49601 

43611 

I- 

44611 



$$BOSDWl 
$$BOSD01 
$$BOSD01 



KD 

-+ 

HB 
, 

HB 






INVALID DLBL FUNCTION 



— +— 



4366A 
j. 

4466A 

4766A 

h 

4477A 



43831 



$$BOSDI2 
$$BOSDOl 
$$BODA01 
$$BOSD07 
$$BOSDIl 



— + 1 



— + 1 



HF 
JC 
PQ 
JS 
HD 



+- 



1 TRACK USER LBL EXTENT 



"H 



— + 






EXTENT ENTRY ERROR-RETRY 
INVALID LOGICAL UNIT 



-H 



44831 



$$BOSD01 



JB 



46831 



$$BODAIN 



PF 



49831 



$$BOSDWl 



KE 



^ 

NO JIBS AVAILABLE 

DISPLAY VTOC ON SYSLOG OR SYSLST 

SYSLST NOT A PRINTER 

1 



48901 



4V95A 
4V96A 
44971 



47971 



I" 

44981 
Y 

47981 
4699D 



$$BOFLPT 

+ 

$$BODSPV 

$$BODSPV 
$$BOSD03 
$$BODA02 



AC 
AE 
AE 



-+ 






JK 
QC 



OVLAP EXPIRED SECRD FILE 






$$BOSD03 
$$BODA02 



JK 



QC 



OVLAP UNEXPRD SECRD FILE 






$$BODAIl 



PJ 



DATA SECURED FILE ACCESSED 



-H 



4399D 
Figure 40, 



$$BOSDI2 



HF 
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APPENDIX C: SUPERVISOR CALLS (SVC'S) 



Macro Supported 


SVC 


Function 


EXCP 





Execute channel programs. 


FETCH 


1 

2 
3 


Fetch any phase. 

Fetch a logical transient (B- transient). 

Fetch or return from a physical transient (A- transient). 


LOAD 


A 


Load any phase. 


MVCOM 


5 


Modify supervisor communications region. 


CANCEL 


6 


Cancel a problem program or task. 


WAIT 


7 


Wait for a CCB or TECB. 




8 


Transfer control to the problem program from a logical transient (B- transient). 


LBRET 


9 


Return to a logical transient (B- transient) from the problem program after a SVC 8. 


SETIME 


10* 


Set timer interval . 




11 
12 
13 


Return from a logical transient (B- transient). 

Logical AND (Reset) to second job control byte (displacement 57 in communications region). 

Logical OR (Set) to second job control byte (displacement 57 in communications region). 


EOJ 


14 


Cancel job and go to job control for end of job step. 




15 


Same as SVC except ignored if CHANQ table is full. (Primarily used by ERP). 


STXIT (PC) 


16* 


Provide supervisor with linkage to user's PC routine for program check interrupts. 


EXIT (PC) 


17* 


Return from user's PC routine. 


STXIT (IT) 


18* 


Provide supervisor with linkage to user's IT routine for interval timer interrupts. 


EXIT (IT) 


19* 


Return from user's IT routine. 


STXIT (OC) 


20* 


Provide supervisor with linkage to user's OC routine for external or attention interrupts (operator communications). 


EXIT (OC) 


21* 


Return from user's OC routine. 




22* 
23* 


The first SVC 22 seizes the system for the issuing program by disabling multiprogram operation. The second SVC 22 

releases the system (enables multiprogram operation) . 

Load phase header. Phase load address is stored at user's address. 


SETIME 


24* 


Provide supervisor with linkage to user's TECB and set timer interval. 




25* 
26* 
27* 


Issue HALT I/O on a teleprocessing device. 

Validate address limits. 

Special HIO on teleprocessing devices. 


EXIT (MR) 


28* 


Return from user's stacker select routine (MICR type devices only). 




29* 


Provide return from multiple wait macros WAITF and WAITM (except MICR type devices). 


QWAIT 


30* 


Wait for a QTAM element. 


QPOST 


31* 
32 
33 
34 


Post a QTAM element. 

Reserved. 

Reserved for internal macro COMRG. 

Reserved for internal macro GETIME. 



* = optional 
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Macro Supported 


SVC 


Function 


HOLD 


35* 


Hold, a track for use by the requesting task only. 


FREE 


36* 


Free a track held by the task issuing the FREE. 


STXIT (AB) 


37* 


Provide supervisor with linkage to user's AB routine for abnormal termination of a task. 


ATTACH 


38* 


Initialize a subtask and establish its priority. 


DETACH 


39* 


Perform normal termination of a subtask. It includes calling the FREE routine to free any tracks held by the subtask. 


POST 


40* 


Inform the system of the termination of an event and ready any waiting tasks. 


DEQ 


41* 


Inform the system that a previously enqueued resource is now available. 


ENQ 


42* 


Prevent tasks from simultaneous manipulation of a shared data area (resource). 




43* 


Provide supervisor support for external creation and updating of SDR records. 




44* 


Provide supervisor support for external creation of OBR records. 




45* 


Provide emulator interface. 




46* 


Provide OLTEP with the facility to operate in supervisory state. 




47* 


Provide return from wait multiple WAITF for MICR type devices. 




48 


Reserved. 




49 


Reserved. 




50 


Reserved for LIOCS error recovery. 



= optional 
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APPENDIX D: MICROFICHE CROSS-REFERENCE INDEX 



The index gives the relationship of 
core- image phase names, relocatable module 
names, microfiche labels, and microfiche 
identification numbers to each other. 



An asterisk indicates the microfiche 
label. If the microfiche label differs ' 
from both the phase and the module name, it 
is so indicated in parentheses. 

When a phase or module takes up more 
than one microfiche card, the 
identification number of only the first 
card is shown. 

The index includes all the macro names 
and identification numbers. The position 
of each macro on the microfiche card is 
further identified by rows A to E. The 
rows are not indicated for macros that use 
more than one microfiche card. 

For the complete microfiche 
cross-reference index, see Introduction to 
DOS Logic listed in the Preface . 



Logical IOCS Macros 



Macro Name 


Row 


Card ID 


CHECK 


C 


453.002 


CLOSE (R) 


A,B 


453.003 


CNTRL 


C 


453.003 


DAMOD 


A,B 


454.001 


DTFDA 


A-C 


454.002 


DTFPH 


C 


453.005 


DTFSD 


A,B 


455.001 


DTFSR 


E 


453.005 


FREE 


B 


453.006.50 


GET 


E 


453.007 


NOTE 


B 


453.009 


OPEN(R) 


C,D 


453.009 


POINTR 


B 


453.010 


POINTS 


C 


453.010 


POINTW 


D 


453.010 


PUT 


B 


453.011 



READ 


C 


453.011 




RELSE 


D 


453.011 




SDMOD 


C,D 


455.001 




SDMODFI 


A,B 


455.001. 


01 


SDMODFO 


C,D 


455.001. 


01 


SDMODFU 


A-C 


455.002 




SDMODUI 


D 


455.002 




SDMODUO 


E 


455.002 




SDMODUU 


A,B 


455.002. 


01 


SDMODVI 


A,B 


455.003 




SDMODVO 


C,D 


455.003 




SDMODVU 


A-C 


455.004 




SDMODW 


" D,E 


455.004 




TRUNC 


A 


453.016 




WAITF 


C 


453.016 




WRITE 


D 


453.016 





Logical Transient Phases 



Core Image 


Relocatable 




Phase Name 


Module Name 


Card ID 


$$BODACL* 


None 


CTL.104.00 


$$BODAIN* 


None 


CTL.105.00 


$$BODAIl* 


None 


CTL.106.00 


$$BODAOl* 


None 


CTL.107.00 


$$BODA02* 


None 


CTL.108.00 


$$BODA03* 


None 


CTL.109.00 


$$BODA04* 


None 


CTL.110.00 


$$B0DAU1* 


None 


CTL.111.00 


$$BODQUE* 


None 


CTL.112.00 


$$BODSMW* 


None 


CTL.112.50 


$$BODSPV* 


None 


CTL.113.00 


$$BODSPW* 


None 


CTL.114.00 


$$BOFLPT* 


None 


CTL.115.00 


$$BOMSGl* 


None 


CTL.126.00 


$$BOMSG2* 


None 


CTL.127.00 


$$BOMSG3* 


None 


CTL.128.00 


$$BOMSG4* 


None 


CTL.129.00 


$$BOMSG5* 


None 


CTL.130.00 


$$BOMSG6* 


None 


CTL.131.00 


$$BOMSG7* 


None 


CTL.131.50 


$$BOSDCl* 


None 


CTL.149.00 


$$BOSDC2* 


None 


CTL.150.00 


$$BOSDIl* 


None 


CTL.152.00 


$$BOSDI2* 


None 


CTL.153.00 


$$BOSDI3* 


None 


CTL.154.00 


$$BOSDI4* 


None 


CTL.154.50 


$$BOSD01* 


None 


CTL.155.00 


$$BOSD02* 


None 


CTL.156.00 


$$BOSD03* 


None 


CTL.157.00 


$$BOSD04* 


None 


CTL.158.00 


$$BOSD05* 


None 


CTL.159.00 


$$BOSD06* 


None 


CTL.160.00 


$$BOSD07* 


None 


CTL.161.00 


$$BOSD08* 


None 


CTL.162.00 
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$$B0SDW1* 


None 


CTL.164.00 


$$B0SDW2* 


None 


CTL.165.00 


$$B0SDW3* 


None 


CTL.166.00 


$$BOSD00* 


None 


CTL.167.00 


$$BOSD01* 


None 


CTL.168.00 


$$BOSIGN* 


None 


CTL.169.00 


$$BOVDMP* 


None 


CTL.171.00 


$$BOWDMP* 


None 


CTL.171.50 
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a 
o 

CO 

t* 

H 
O 
O 

co 

2 



co 




CO 

o 



CD 



O 




0* 
Pi 

o 
o 

s 

K 

o 



Oi to 

Qj O 
O 



ft 



o 

Hi 



Bytes - 



Count 



Transmission 
Information 



CSW Status Bits 
4 5 



Residual Count 



Transmitting 
Information 
Between Physical 
IOCS and Problem, 
Program 



I (Note 1) 


~ - - _ ^ , 


1 Byte 4 


Byte 5~ - - - _ _ l 


i BIT DESIGNATION 
1 


BIT DESIGNATION j 


1 32 Attention 


40 Program- controlled | 


33 Status modifier 


interruption 1 


. 34 Control unit end 


41 Incorrect length • 


, 35 Busy 


42 Program check ' 


1 36 Channel end 


43 Protection check 


1 37 Device end 


44 Channel data check . 


I 38 Unit check 


45 Channel control check | 


1 39 Unit exception 


46 Interface control check I 


'^^ 


47 Chaining check ' 



Byte 2 



Symbolic Unit 


Reserved for 


CCW Address 


Reserved for 


CCW Address 


Optional | 


Address 


Logical IOCS 






Physical IOCS 


in CSW 


Sense CCW 1 


6 7 


8 


9 


II 


12 


13 15 


16 231 


1 Hexadecimal 


Buffer Offset: 


Address of CCW 


X'80'- CCB being 


Address of CCW 


8 Bytes Appended | 


Representation 
of SYSnnn 


ASCII Input Tapes 
X'OO'-X^' 


Associated w 
this CCB 


•th 


used by ERP 


in the CSW 
Stored at Channel 


to the CCB when | 


Sense Information! 


SYSRDR =0000 








X'40'- Channel 


End, or Address 


is Desired 1 


SYSIPT =0001 


ASCII Output Tapes 






Appendage 


of the Channel 




SYS PC H =0002 


Fixed: X'00' 






Routine Present 


Appendage 




SYSLST =0003 


Variable: X'00'or 






for Teleprocessing 


Routine for 




SYSLOG=0004 


X'04' 






Device 


Teleprocessing 




SYSLNK =0005 


Undefined: X'00' 








Devices 




SYSRES =0306 








X'20 1 - Sense 






SYSSLB =0007 








Information 






SYSRLB =0008 








Desired 






SYSUSE =0009 














SYS000 =0100 








X'10 1 - Messcge 






SYS001 =0101 








Writer 






SYS221 =01DD 








X'08'-EU Tape 
Error 

X'02'-Tape ERP 






" - -. ^ 








Read Opposite 






" ^ '^ | 






Recovery 






" - ^ 1 






X'Ol'-Seek 








.. 




Separation or 














Console Buffering 





















Return Tape Read 






Traffic Bit 
(Wait) 


End- of- File 
(/*or/&) 


Unrecoverable 
I/O Error 


Accept 

Unrecoverable 
I/O Error 


Return DASD 
Data Checks 
2671 errors, or 
1017/1018 
errors to the 


Post at 
Device End 


Data Check, 1018 
Data Check, 2540 
or 2520 Equipment 
Check or DASD 
Data Checks on 


User Error 
Routine 














Read or Verify 














user 




Command 






( Note 5) 



(Note 2) 


2 


3 


4 


(Note 5) 
5 


(Notes 3 & 6) 








6 


7 


Set On By—* 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 











Byte 


3 










DASD- 


DASD- 


DASD- 


2540, 2520- 


Non- Recovery 


No- Record - 


Carriage 


Command 




Data Check in 


Track Overrun 


End of Cylinder 


Equipment Check 


Questionable 


Found Condition 


Channel 9 


Chaining 


I 


Count Area 


MICR- 


MICR- 


Tape- 


Condition: 


(Retry on 2311, 


Overflow or 


Retry from 


I 


MICR- 


Intervention 


(Note 4) 


Read Data Check 


Card- 


2314, or 2319) 


Verify Error 


the next CCW 




SCU Not 


Required 


1287/1288- 


DASD- 


Unusual 




for DASD. 


to be executed 




Operational 


1285/1 287- 


Hopper Empty 


Any Data Check 


Command 










1285/1287/1288 


Key board 


in Document 


1285/1287- 


Sequence 




1287 Document 






Data Check 


Correction in 
Journal Tape 
Mode 
1017- 


Mode 


Equipment Check 
1017/1018- 
Data Check 


DASD- 

No Record Found 
1285/1287/1288- 

Document Jam 




Mode- Late 
Stacker Select 

1288- End of 









Broken Tape 


2 


3 


or Torn Tape 
4 


5 


Page 

6 


7 






Set On By— *» 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 1 



PIOCS = Physical IOCS 
Pr. Pr. = Problem Program 

Note 1 . Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and device end results as a separate interrupt, device end will be ORed into CCB byte 4. 

Note 2. Indicates / * or /& statement encountered on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is also on. 

Note 3. DASD data checks on count not returned. 

Note 4. For 1270/1275/1412/1419, Disengage. For 1275/1419D, I/O Error in external interrupt routine (channel data check or busout check)* 

Note 5. The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in byte 3 will be set on 

at device end. Also see Note 1 . 

Note 6. 1018 ERP does not support the Error Correction Function. 



> 

H 

X 

w 



Byte 


Bit 


Condition 


ndicared 


Mask for 
Test Under 
Mask 
Instruction 


1 (ON) 


(OFF) 


2 


Traffic Bit (WAIT) 


I/O Completed . Normally 
set at Channel End. Set at 
Device End if Bit 5 is ON . 


I/O Requested and not 
completed. 


X'80' 


1 End of File on System Input 


/* or/&on SYSRDR or 
SYSIPT. Byte 4, Unit Ex- 
ception Bit is also ON . 




X'40' 


2 Unrecoverable I/O Error 


I/O error passed back due to 
program option or operator 
option 


No program or operator 
option error was passed 
back 


X'20* 


3* Accept Unrecoverable I/O Error 
(Bit 2 is ON) , 


Return to User after Physical 
IOCS Attempts to correct 
I/O Error . + 


Operator Option: 
Dependent of the Error. 


X'10' 


4* 2671 Data Check 

1017/1018 Data Checks 
Return any DASD Data Checks 


Operator Options: 
Ignore, Retry, or Cancel 

Ignore or Cancel 

Return to User 


Operator Option: N 
Retry or Cancel 

Cancel 


X'08' 


5* Post at Device End 


Device End Condition will 
be posted i.e., byte 2, bit 
and byte 3, bits 2 and 6 
set at Device End. Also byte 
4, bit 5 is set . 


Device End Conditions 
will not be posted . 
Traffic Bit is set at 
Channel End . 


X'04 1 


6* Return: Uncorrectable tape read 

data check; 1018 data check; 2540 
or 2520 punch equipment check; 
or DASD read or verify data check. 
(Data checks on count not returned.) 


Return to user after physical 
IOCS attempts to correct 
error. 

Return to user when 1018 
data check. 


Operator Option: 
Ignore or Cancel for 
Tapes, Punches, and 
Paper Tape Punch (1018). 
Retry or cancel for DASD . 


X'02 1 


7* User Error Routine 


User will handle error recov- 
ery (Test Bit 2). a 


A Physical IOCS Error 
routine will be used. 


X'01 1 


3 


Data check In DASD count field. 

MICR-SCU not operational . 
Data Check-1285, 1287 or 1288 


Yes-Byte 3, bit 3 is OFF; 
Byte 2, bit 2 is ON . 
Yes 
Yes 


No 

No 
No 


X'80' 


1 DASD Track overrun . 

1017 Broken Tape 

MICR Intervention required. 
Keyboard correction 1285 or 1287 in 
Journal Tape Mode 


Yes 

Yes 

Yes 
Yes 


No 

No 

No 
No 


X'40 1 


2 End of DASD Cylinder 

MICR- 1270/1275/1412/1419, disengage. 
- 1275/141 9D, I/O error in external 
interrupt routine. 

Hopper Empty 1287 or 1288 Document Mode 


Yes 

Document feeding Stopped. 

Channel data check or Busout 

check 

Yes 


No 
No 

No 


X'20' 



Figure 42. Command Control Block (Part 2 of 3) 
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Byte 


Bit 


Condition Indicated 


Mask for 
Test Under 
Mask 
Instruction 


1 (ON) 


(OFF) 


3 


3 


Tape read data check; 2540 or 2520 
punch equipment check; or any 
DASD data check 


Operation was unsuccessful . 
Byte 2, Bit 2 is also ON . 
Byte 3, Bit is OFF. 


No 


X'10' 






1017/1018 Data Check 


Yes 


No 








1285, 1287, or 1288 equipment check 


Yes 


No 




4 


Questionable Condition 


Card: Unusual Command 
sequence (2540). DASD: 
No record found . 




X'08' 






Non-recovery 


1285/1287/1288: Document 
Jam or Torn Tape 






5 


No record found condition 


Retry command if no record 
found condition occurs 
(2311, 2314, or 2319) 


Set ON questionable 
condition bit and 
return to user. 


X'04' 


6 


Verify Error for DASD or Carriage 
Channel 9 Overflow 


Yes. (Set ON when Channel 
9 is reached only if Byte 2, 
Bit 5 is ON.) 


No 


X'02' 






1287 Document Mode-Late Stacker 
Select 


Yes 


No 








1288 End of Page 


Yes 


No 




7* 


Command Chain Retry 


Retry begins at last CCW 


Retry begins at first CCW 


x'or 








executed . 


of channel program . 





+ 
n 



User Option Bits. Set in CCB macro. Physical IOCS sets the other bits OFF at EXCP time and ON when the condition 

specified above occurs. 

I/O program check, command reject, or tape equipment check always terminates the program. 

For System/360, the user must handle all error or exceptional conditions except Channel Control Check, Interface 

Control Check, I/O Program Check, and I/O Protection Check. For System/370, the user may handle Channel 

Control Checks and Interface Control Checks. 



Figure 4.2. Command Control Block (Part 3 of 3) 
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APPENDIX F: 



EXPLANATION OF FLOWCHART SYMBOLS 



PROCESS 
*B2 



DESCRIPTION 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



* BB-D4, INITL1 

* BC-B2, 0PENX4 
* BL-J1, ENDPRN 



SUBROUTINE 



PREPARATION 



IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



* READ A * 
RECORD 






X 






C4 ». 

.*" **. YES 

*. ERROR .* 

*. .* 


* 
...X* 


*»»»C5********** 
5RRTN BG* 

ERROR ROUTINE * 


**NO 




X 


X 

»«<*<ft*D4** ******** 




* 1 » 


* PROCESS THE * 

* RECORD * 




• «*« 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL, SUCH AS 
USER'S ROUTINES. 



•***F1***»»»**«** ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
INPUT/OUTPUT * BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
* THE BLOCK. 



**F5******* 



Gl *. 

DECISION 



**H1****** 
TERMINAL 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



.•ALL RECORDS" 


NO 


. PROCESSED 


••.... 












X 


• YES 






*BL * 






* Al* 


















PRINT 


X 




***»H4**»****** 






END OF JOB 


• 




* 



ON-PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR AN EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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APPENDIX G: DASD LABEL INFORMATION 



DASD LABELS 



Whenever files of records are written on 
DASD r each volume must contain standard 
labels to identify the pack or cell and the 
logical file(s) on it- When logical IOCS 
is used for a file, the IOCS routines read, 
check and/or write standard labels. When 
physical IOCS is used, IOCS processes the 
labels if the DTFPH macro instruction is 
included in the user's program. The entry 
TYPEFLE must be specified to indicate 
whether the file is an input file (read and 
check labels) or an output file (read and 
check old labels and write new labels) . 



bytes may contain whatever information the 
user requires. The additional volume 
labels are also written by the utility 
program that writes the standard volume 
label. However, IOCS does not make them 
available to the user for checking or 
rewriting when problem programs are 
executed. These labels are provided for 
use with Operating System/ 3 60 and are 
always bypassed by the Disk Operating 
System OPEN routines. Figure 43 shows the 
format of the standard DASD volume label. 



Standard File Labels 



The standard labels include one volume 
label for each pack or cell and one or more 
file labels for each logical file on the 
DASD. The following paragraphs briefly 
describe the organization of labels on disk 
packs or data cells. Additional 
information about labels is given in the 
Data Management Concepts publication, 
listed in the Preface of this publication. 



Volume Labels 



The standard volume label identifies the 
entire volume and offers volume protection. 
For systems residence, the volume label is 
always the third record on cylinder 0, 
track 0. The first two records on this 
track of SYSRES are Initial Program Load 
(IPL) records. On all other volumes, these 
records contain binary zeros. The volume 
label record consists of a count area, a 
4- byte key area, and an 80-byte data area. 
Both the key area and the first four bytes 
of the data area contain the label 
identifier VOL1. The remaining 76 bytes of 
the data area contain other identifying 
information such as the volume serial 
number, and the address of the file labels 
for the pack or cell (see Standard File 
Labels ) . An IBM- supplied utility program 
writes the volume label when the direct 
access device is received by the 
installation. 

The standard volume label may be 
followed by one to seven additional volume 
labels (starting with record 4 on cylinder 
0, track 0). These labels must contain, the 
label identifier VOL2, VOL3, etc. in the 
four-byte key areas and in the first four 
bytes of the data areas. The other 76 



The standard file labels identify the 
logical file, give its location (s) on the 
disk pack or data cell, and offer file 
protection. The labels for all logical 
files on a volume are grouped together and 
stored in the Volume Table of Contents of 
DASD. 

The number and format of labels required 
for any one logical file depends on the 
file organization (see Standard File Label 
Formats) and the number of separate areas 
(extents) of the pack or cell used by the 
file. The data records for a logical file 
may be contained within one area of the 
pack or cell, or they may be scattered in 
different areas of it. The limits 
(starting and ending addresses) of each 
area used by the file are specified by the 
standard file label (s). 

Because each file label contains file 
limits, the group of labels on the volume 
is essentially a directory of all files on 
the volume. Therefore, it is known as the 
Volume Table of Contents (VTOC) . The VTOC 
itself becomes a file of records (one or 
more standard- label records per logical 
file) and, in turn, has a label. The label 
of the VTOC is the first record in the 
VTOC. This label identifies the file as 
the VTOC file, and gives the file limits of 
the VTOC file. The Volume Table of 
Contents is contained within one cylinder 
of a disk pack or data cell. It does not 
overflow onto another cylinder. 

If a logical file of data records is 
recorded on more than one volume, standard 
labels for the file must be included in the 
VTOC of each volume used. The label (s) on 
each volume identifies the portion of the 
logical file on the pack or cell and 
specifies the extent (s) used on it. 
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Standard File Label Formats 



All standard file label records have a 
count area and a 140-byte key/data area. 
Five standard- label formats are provided. 

Format 1 : This format is used for all 
logical files , and it has a 44-byte key 
area and a 96-byte data area. It is always 
the first of the series of labels when a 
file requires more than one label on a disk 
pack or cell (as discussed in Format 2 and 
Format 3 ) . 

The format-1 label identifies the 
logical file (by a file name assigned by 
the user and included in the 44-byte key 
area) , and it contains file and data record 
specifications. It also provides the 
addresses for three separate DASD areas 
(extents) for the file. If the file is 
scattered over more than three separate 
areas on one pack or cell, a format-3 label 
is also required. In this case, the 
format-1 label points to the second label 
set up for the file on this volume. 

If a logical file is recorded on more 
than one volume, a format-1 label is always 
created in the VT0C for each volume. 
Figure 44 shows the format of the format-1 
label . 

J Format 2 : This format is required for any 
file that is organized by the Indexed 
Sequential File Management System. The 
4 4 -byte key area and the 96-byte data area 
contain specifications unique to this type 
of file organization. 

If an indexed sequential file is 
recorded on two or more volumes, the 
format- 2 label is used only on the volume 
containing the cylinder index. This volume 
may, or may not, contain data records. The 
format- 2 label is not repeated on the 
additional packs (as the format-1 label 
is) . See Figure 45 for the format of the 
format- 2 label. 

Format 3 : If a logical file uses more than 
three extents on any pack or cell, this 
format specifies the addresses of the 
additional extents. It is used only for 
extent information. It has a 4 4- byte key 
area and a 96-byte data area that provide 
for 13 extents. 

The format-3 label is pointed to by the 
format-1 label for the logical file. In a 
DTFSD file, it may also be pointed to 
another format-3 label. It is included as 
required on the first pack or cell, or on 
additional volumes if the logical file is 
recorded on two or more volumes. See 

j Figure 46 for the format of the format-3 

y label . 



Format 4 ; The format- 4 label defines the 
VTOC itself. This is always the first 
label in the VTOC. This label provides the 
location and number of available tracks in 
the alternate track area. Figure 47 shows 
the format of the format-4 label. 

Format 5 ; The format-5 label is used by 
the Operating System/360 for Direct Access 
Device Space Management. Figure 48 shows 
the format of the format-5 label. 



User-Standard DASD File Labels 



The user may include additional labels to 
define his file further, provided the file 
is processed sequentially (DTFSR or DTFSD 
macro specified) , by the Direct Access 
Method (DTFDA macro specified) or by 
physical IOCS (DTFPH macro specified) . 
User standard file labels are not processed 
by the Indexed Sequential File Management 
System (DTFIS specified) . A file may have 
up to eight user header labels and eight 
user trailer labels for a 2311 or 2314 
file. If the device is a 2321, the file 
may have up to five user header labels and 
five user trailer labels. The trailer 
labels can be written to indicate an 
end-of -volume or end-of-file condition. 
That is, when the end of an extent on one 
volume is reached and the next extent is on 
a different volume, or when the end of the 
file is reached, user trailer labels can be 
included. The labels may contain whatever 
trailer information the user desires (for 
example, a record count for the completed 
volume) . 

User-standard labels are not stored in 
the Volume Table of Contents. Instead, 
they are written on the first track of the 
first extent allotted for the logical-file 
data records. In this case, the user's 
data records start with the second track in 
the extent, regardless of whether the 
labels require a full track. If a file is 
written on two or more packs or cells, the 
additional labels are written on each of 
the packs or cells. 

All user-standard labels must be 80 
bytes long, and they must contain standard 
information in the first four bytes. The 
remaining 76 bytes may contain whatever 
information the user wants. 

The standard information in the first 
four bytes is used as a record key when 
reading or writing header labels. The 
header labels are identified by UHL1, 
UHL2,...,UHL8 (or UHL5) . The trailer 
labels, when applicable, are identified in 
the key field by UTLO, UTL1, . * . ,UTL7 (or 
UTL4) although the first four bytes of the 
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labels will contain UTL1-UTL8 (or UTL5) . 
Each user-label set (header or trailer) is 
terminated by a file mark (a record with 
data length 0) , which is written by IOCS. 

For example, if a file has five header 
labels and four trailer labels, the 
contents of the user-label track are: 



If only header labels are used, the 
user-label track contains: 



R0 Standard information 

Rl UHL1 — user's 1st header label 

R2 UHL2 — user's 2nd header label 



R0 Standard information 

Rl UHL1 — user's 1st header label 

R2 UHL2 — user's 2nd header label 

R3 UHL3 — user's 3rd header label 

R4 UHL4 — user's 4th header label 

R5 UHL5— user's 5th header label 

R6 UHL6 — file mark 

R7 UTL1 — user's 1st trailer label 

R8 UTL2 — user's 2nd trailer label 

R9 UTL3 — user's 3rd trailer label 

RIO UTL4 — user's 4th trailer label 

Rll UTL5 — file mark 



R(n) UHL(n) — user's nth header label where 

n is < 8 
R(n+1) UHL(n+l) 
R(n+2) UTLO — file mark 



The user's label routine can determine 
if a label is a header or trailer label by 
testing the first four bytes, of the label. 
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Volume Label Format (80 bytes) for DASD (Shaded areas are not processed by DOS/360) 
FIELD NAME AND LENGTH DESCRIPTION 



1. 



LABEL IDENTIFIER 
3 bytes 

' VOLUME LABEL NUMBER 
1 byte 

VOLUME SERIAL NUMBER 



6 bytes 



VOLUME SECURITY 
1 byte 



Must contain VOL to indicate that 
this is a Volume Label. 

Indicates the relative position (1 - 8) 
of a volume label within a group of 
volume labels. 

A unique identification code which is 
assigned to a volume when it enters 
an installation. This code may also 
appear on the external surface of the 
volume for visual identification. It 
is normally a numeric field 000001 to 
999999, however any or all of the 6 
bytes may be alphameric. 

Indicates security status of the volume: 

= no further identification for each 

file of the volume is required. 

1 =further identification for each file 

of the volume is required before 
processing. 



FIELD 
5. 



NAME AND LENGTH 

DATA FILE DIRECTORY 
10 bytes 

RESERVED 
10 bytes 

RESERVED 
10 bytes 

OWNER NAME AND 
ADDRESS CODE 
10 bytes 



RESERVED 
29 bytes 



DESCRIPTION 

The first 5 bytes contain the starting 
address (CCHHR)of the VTOC. The 
last 5 bytes are blank. 

Reserved. 



Reserved. 



Indicates a specific customer, instal- 
lation and/or system to which the 
volume belongs. This field may be a 
standardized code, name, address, etc. 

'Reserved. 



Note: All reserved fields should contain blanks to facilitate their use in the future. 

Any information appearing in these fields at the present time will be ignored by the 
Disk Operating System programs and Operating System/360 programs. 
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/Record Block Key 
/ Format Length Length 



_Data Set 
Indicators 



Extent Type _ 
Indicator 



Sequence 
Number 



Sequential DASD does not support bytes 85-105. 



Format 1: This format is common to all data files on Direct Access Storage Devices. (Shaded areas are not processed by DOS/360) 

FIELD NAME AND LENGTH DESCRIPTION FIELD NAME AND LENGTH 



DESCRIPTION 



ftJ 
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1. 



FILE NAME 

44 bytes, alphameric 

EBCDIC 



This field serves as the key portion of 
the file label. 

Each file must have a unique file name. 
Duplication of file names will cause 
retrieval errors. The file name can 
consist of three sections: 

1 . File ID is an alphameric name 

assigned by the user and identifies 
the file. Can be 1-35 bytes if 
generation and version numbers 
are used, or 1-44 bytes if they 
are not used. 

2. Generation Number . If used, this 
field is separated from File ID by a 
period. It has the format Gnnnn, where 
G identifies the field as the generation 
number and nnnn (in decimal) identifies 
the generation of the file. 

3. Version Number of Generation . 

If used, this section immediately follows 
the generation number and has the format 
Vnn, where V identifies the field as the 
version of generation number and nn 
(in decimal) identifies the version of 
generation of the file. 



Note: The Disk Operating System 
compares the entire field 
against the file name given in 
the DLBL card. The generation 
and version numbers are treated 
differently by Operating 
System/360. 



The remaining fields comprise the DATA portion of the file label: 



2. 



4. 



FORMAT IDENTIFIER 
1 byte, EBCDIC numeric 

FILE SERIAL NUMBER 

6 bytes, alphameric EBCDIC 



VOLUME SEQUENCE 
NUMBER 2 bytes, binary 



CREATION DATE 

3 bytes, discontinuous binary 



1 - Format 1 



Uniquely identifies a file/volume 
relationship. It is identical to the 
Volume Serial Number of the first 
or only volume of a multivolume file. 

Indicates the order of a volume relative 
to the first volume on which the data 
file resides . 

Indicates the year and the day of the 
year the file was created. It is of 
the form YDD, where Y signifies the 
year (0-99) and DD the day of the 
year (1-366). 
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7C. 
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11. 



NAME AND LENGTH 



EXPIRATION DATE 

3 bytes, discontinuous binary 



EXTENT COUNT 
1 byte 



BYTES USED IN LAST BLOCK 
OF DIRECTORY 
1 byte, binary 

SPARE 
1 byte 

SYSTEM CODE 
13 bytes 



RESERVED 



7 bytes 

FILE TYPE 
2 bytes 



RECORD FORMAT 
1 byte 



DESCRIPTION 

Indicates the year and the day of the 
year the file may be deleted. The 
form of this field is identical to that 
of Field 5. 

Contains a count of the number of 
extents for this file on this volume. 
If user labels are used, the count does 
not include the user label track. This 
field is maintained by the Disk Operat- 
ing System programs. 

Used by O/S . 



Reserved 



Uniquely identifies the programming 
system. The character codes that can be 
used in this field are limited to EBCDIC 
characters. On input, IOCS ignores 
this field. On output, IOCS writes the 
information supplied in DLAB. If you use 
DLAB, IOCS writes: DOS/360 Ver 3. 

Reserved 



The contents of this field uniquely identify 
the type of data file: 

Hex 4000=Consecutive organization 

Hex 2000 = Direct -access organization 

Hex 8000 = lndexed -sequential organiza - 
tion 

Hex 0200 = Library organization 

Hex 0000=Organization not defined in 
the file label . 



FIELD 
12. 



NAME AND LENGTH 



OPTION CODES 



14. 



15. 



16. 



17. 



Used by O/S. 



1 byte 



BLOCK LENGTH 
2 bytes, binary 

RECORD LENGTH 
2 bytes, binary 

KEY LENGTH 

1 byte, binary 

KEY LOCATION 

2 bytes, binary 

DATA SET INDICATORS 
1 byte 



19. 



SECONDARY ALLOCATION 

4 bytes, binary 

LAST RECORD POINTER 

5 bytes, discontinuous binary 



DESCRIPTION 

Bits within this field indicate various 
options used in building the file. 



= 

1 =Reserved 

2=Master index present (ISFMS) 

3, = lndependent overflow present (ISFMS) 

4 = Cylinder overflow present (ISFMS) 
5=Reserved 

6 = UsedbyO/S 

7 = Used by O/S 

Indicates the block length for fixed 
length records or maximum block size 
for variable length blocks. 

Indicates the record length for fixed 
length records or the maximum record 
length for variable length records. 

Indicates the length of the key 
portion of the data records in the 
file. 

Indicates the high order position of 
the data record . 

Bits within this field are used to 
indicate the following: 

Bit 

If on, indicates that this is the 
last volume on which this file 
normally resides . 

1, 2, 4, 6, 7: Ofor DOS 

Used by O/S 

3 If on, DOS data security is invoked. 

5 Used by DOS 
Used by O/S 



Used by O/S 
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1 byte 



22. 



EXTENT SEQUENCE NUMBER 
1 byte, binary 



Reserved 



Indicates the type of extent with which 
the following fields are associated: 

HEX CODE 

00 Next three fields do not indicate 
any extent. 

01 Prime data area (Indexed Se - 
quential); or Consecutive area, 
etc., (i.e., the pxtent containing 
the user's data records.) 

02 Overflow area of an Indexed 
Sequential file. 

04 Cylinder index or master index 
area of an Indexed Sequential 
file. 

40 User label track area. 

80 Shared' cylinder indicator. 

Indicates the extent sequence in a 
multi -extent file. 



FIELD 



23. 



24. 



25-28. 



29-32. 



NAME AND LENGTH 



LOWER LIMIT 

4 bytes, discontinuous binary 



UPPER LIMIT 
4 bytes 



ADDITIONAL EXTENT 
1 bytes 



ADDITIONAL EXTENT 



33. 



1 bytes 



POINTER TO NEXT FILE LABEL 

WITHIN THIS LABEL SET 

5 bytes, discontinuous binary 



DESCRIPTION 



The cylinder and the track address 
specifying the starting point (lower 
limit) of this extent component. 
This field has the format CCHH. 



The cylinder and the track address 
specifying the ending point (upper 
limit) of this extent component. 
This field has the format CCHH. 



These fields have the same format 
as the fields 21 -24 above. 



These fields have the same format 
as the fields 21 -24 above . 



The address (format CCHHR) of a 
continuation label if needed to 
further describe the file . If field 
10 indicates Indexed Sequential 
organization, this field points to 
a Format 2 file label within this 
label set. Otherwise, it points to 
a Format 3 file label, and then only 
if the file contains more than three 
extent segments. This field contains 
all binary zeros if no additional file 
label is pointed to . 
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Format 2: This format is applicable only to Indexed Sequential data files. It is always pointed to by c Format 1 label. (Shaded areas are not processed by DOS/360) 



FIELD 
Kl 



K2 



K3 



K4 



NAME AND LENGTH 

KEY IDENTIFICATION 
1 byte 

ADDRESS OF 2ND LEVEL 

AAASTER INDEX 

7 bytes, discontinuous binary 

LAST 2ND LEVEL AAASTER 

INDEX ENTRY 

5 bytes, discontinuous binary 

ADDRESS OF 3RD LEVEL 

MASTER INDEX 

7 bytes, discontinuous binary 



DESCRIPTION 

Contains the Hex Code 02 in order 
to avoid conflict with a file name. 



Contains the address of the first track 
of the second level of the master index, 
in the form MBBCCHHR. (OS/360only) 

Contains the address of the last index 
entry in the second level of the master 
index, in the form CCHHR. (OS/360 
only) 

Contains the address of the first track 
of the third level of the master index, 
in the form MBBCCHH. (OS/360 only) 



FIELD 
K5 

K6 
Dl 
D2 



NAME AND LENGTH 



LAST 3RD LEVEL MASTER INDEX 

ENTRY 

5 bytes, discontinuous binary 



SPARE 
1 9 bytes 

FORMAT IDENTIFIER 



1 byte, EBCDIC numeric 
NUMBER OF INDEX LEVELS 



1 byte, binary 



DESCRIPTION 

Contains the address of the 
last entry in the third level of 
the master index, in the form 
CCHHR. (OS/360 only) 

Reserved 



2 = Format 2 



Indicates how many levels of 
index are present with an 
Indexed Sequential file. 
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FIELD 
D3 



D4 



D5 



D6 



D7 



D8 



D9 



D10 



Dll 



D12 



D13 



£ D14 



D15 



D16 



D17 



NAME AND LENGTH 

HIGH LEVEL INDEX DEVELOP- 
MENT INDICATOR 
1 byte, binary 

FIRST DATA RECORD IN 

CYLINDER 

3 byres 

LAST DATA TRACK IN 
CYLINDERS 2 bytes 



NUMBER OF TRACKS FOR 
CYLINDER OVERFLOW 
1 byte, binary 

HIGHEST "R" ON HIGH LEVEL 
INDEX TRACK 1 byte 

HIGHEST "R" ON PRIME TRACK 
1 byte 

HIGHEST "R" ON OVERFLOW 
TRACK 

"R" OF LAST DATA RECORD ON 
SHARED TRACK 1 byte 

HIGH RECORD ON 



TRACK INDEX TRACK 

1 byte 

TAG DELETION COUNT 

2 bytes, binary 

NON -FIRST 
REFERENCE COUNT 

3 bytes, binary 

NUMBER OF BYTES FOR 
HIGHEST -LEVEL INDEX 
2 bytes, binary 

NUMBER OF TRACKS FOR 
HIGHEST-LEVEL INDEX 
1 byte, binary 



PRIME RECORD COUNT 
4 bytes, binary 

STATUS INDICATOR 
1 byte 



DESCRIPTION 

Contains the number of tracks determining 
development of master index. 



Contains the address of the first data 
record on each cylinder, in the form 
HHR. 

Contains the address of the last data 
track on each cylinder, in the form 
HH. 

Contains the number of tracks in 
cylinder overflow area. 
(Applies to OS/360 only) 

Contains the highest possible R on track 
containing high-level index entries . 

Contains the highest possible R on prime 
data tracks for fixed length records. 

Contains the highest possible R on over- 
flow data tracks for fixed length records. 

Contains the R of the last data record 
on a shared track . 

The first byte of this two - byte field 
indicates the high (0-256) record on 
the track index track. The second byte 
is reserved . 

Contains the number of records 
that have been tagged for deletion. 

Contains a count of the number of 
random references to a non -first 
overflow record . 

Indicates how many bytes are needed 
to hold the highest - level index in 
main storage. 

Contains a count of the number of 
tracks occupied by the highest - 
level index. 

Contains a count of the number of 
records in the prime data area. 

The eight bits of this byte are used 
for the following indications: 



Bit 


Description 


0-1 
2 


must remain off 

file closed for ADD or 

ADDRTR 


3-5 
6 

7 


must remain off 
last block full 
last track full 



FIELD 
D18 



D19 



D20 



D21 



D22 



D23 



D24 



D25 



D26 



D27 



D28 



D29 



D30 



D31 



NAME AND LENGTH 

ADDRESS OF CYLINDER INDEX 
7 bytes 

ADDRESS OF LOWEST -LEVEL 
MASTER INDEX 7 bytes 

ADDRESS OF HIGHEST -LEVEL 
INDEX 7 bytes 

LAST PRIME DATA RECORD 
ADDRESS 8 bytes 

LAST TRACK INDEX ENTRY 
ADDRESS 5 bytes 

LAST CYLINDER INDEX ENTRY 
ADDRESS 5 bytes 

LAST MASTER INDEX ENTRY 
ADDRESS 5 bytes 

LAST INDEPENDENT OVERFLOW 
RECORD ADDRESS 8 bytes 

BYTES REMAINING ON 
OVERFLOW TRACK 



2 bytes, binary 

NUMBER OF INDEPENDENT 
OVERFLOW TRACKS 
2 bytes, binary 

OVERFLOW RECORD COUNT 
2 bytes/ binary 

CYLINDER OVERFLOW AREA 
COUNT 
2 bytes, binary 

DUMMY TRACK 



INDEX ENTRY 3 bytes 



POINTER TO FORMAT 3 
FILE LABEL 5 bytes 



DESCRIPTION 

Contains the address of the first track 
of the cylinder index, in the form 
MBBCCHH. 

Contains the address of the first track 
of the lowest - level index of the high 
level indexes, in the form MBBCCHH . 

Contains the address of the first track 
of the highest level master index, in 
the form MBBCCHH . 

Contains the address of the last data 
record in the prime data area, in the 
form MBBCCHH . 

Contains the address of the last normal 
entry in the track index on the last 
cylinder in the form CCHHR . 

Contains the address of the last 
index entry in the cylinder index 
in the form CCHHR. 

Contains the address of the last 
index entry in the master index in 
the form CCHHR. 

Contains the address of the last 
record written in the current 
independent overflow area, in 
the formMBBCCHHR. 

Contains the number of bytes 
remaining on current independent 
overflow track . 
(Applies to OS/360 only) 

Contains the number of tracks 
remaining in independent overflow 
area . 

Contains a count of the number of 
records in the overflow area . 

Contains the number of cylinder 
overflow areas full . 



This field contains the HHR portion of 
the dummy track index entry. 
(Applies to OS/360 only) 

Contains the address (in the form 
CCHHR) of a Format 3 file label if 
more than 3 extent segments exist 
for the data file within this volume. 
Otherwise it contains binary zeros. 
(Applies to OS 360 only) 
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Format 3: This format is used to describe extra extent segments on the volume if there are more than can be described in the Format 1 (and Format 2 if it exists) file label . This file label is 
pointed to by a Format 1 , Format 2, or another Format 3 file label . 



FIELD 
1. 

2-17 



NAME AND LENGTH 



KEY IDENTIFICATION 



4 byte 



EXTENTS (in KEY) 
40 bytes 



FORMAT IDENTIFIER 
1 byte, EBCDIC numeric 



DESCRIPTION FIELD 

Each byte of this field contains the 19-54 

Hex- Code 03 in order to avoid conflict 
with a data file name. 

Contains four groups of fields identical in 55. 

format to fields 21 -24 in the Format 1 label . 



3 - Format 3 



NAME AND LENGTH 

ADDITIONAL EXTENTS 
90 bytes 



POINTER TO NEXT 



FILE LABEL 
5 bytes 



DESCRIPTION 

Contains nine groups of fields identical in 
format to fields 21 -24 in the Format 1 label . 



Contains the address (in the form CCHHR) of 
another Format 3 label if additional extents 
must be described. Otherwise, it is all 
binary zeros. 
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Format 4: 



FIELD 



t_rtr 

Extent Type Extent Sequence Number 



This format describes the Volume Table of Contents and is always the first file label in the VTOC 
(Shaded areas are not processed by DOS/360) 



There must be one and only one of these Format 4 file labels per volume. 



ft 
O 



4. 



6. 



7. 



8A. 



NAME AND LENGTH 






* 






*) 


1. 


KEY FIELD 


a 







44 bytes, binary 


> 
w 


ft 






D 


?. 


FORMAT ID 




-P 




1 byte, EBCDIC numeric 




*** 


3. 


LAST ACTIVE FORMAT 1 



5 bytes 

AVAILABLE FILE LABEL RECORDS 
2 bytes, binary 

HIGHEST ALTERNATE TRACK 
4 bytes 



NUMBER OF ALTERNATE TRACKS 
2 bytes, binary 

VTOC INDICATORS 
1 byte 



NUMBER OF EXTENTS 

1 byte 

RESERVED 

2 bytes 



DESCRIPTION 

Each byte of this field contains the 

Hex Code 04 in order to provide a unique 

key. 

4 = Format 4 



Contains the address (in the form CCHHR) of 
the last active Format 1 file label . It is used 
to stop a search on a file name . 

Contains a count of the number of unused 
records in the VTOC . 

Contains the highest address (in the form 
CCHH) of a block of tracks set aside as 
alternates for bad tracks. 

Contains the number of alternate tracks 
available. 

Bit 0, if on, indicates no DADSM (O/S Direct 
Access Device Space Management - Format 5) 
label, or DADSM label does not reflect true 
status of volume. 

Bit 1-2 not used. 

3 1401/1440/1460 Emulator Pack. 
4-7 not used. 

Contains the hexadecimal constant 01, to 
indicate one extent in the VTOC. 

Reserved . 



FIELD 


NAME AND LENGTH 


DESCRIPTION 


9. 


DEVICE CONSTANTS 


Contains constants describing 




14 bytes 


the device on which the 
volume was mounted when the 
VTOC was created. The 
following describes each of 
the subfields. 



Device Size (4 bytes) - The number of cylinders (CC) and tracks per cylinder (HH). 

Track Length (2 bytes) - The number of available bytes on a track exclusive of home 
address and record zero (record zero is assumed to be a non - keyed record with an 
eight byte data field). 

Record Overhead (3 bytes) - The number of bytes required for gaps, check bits, and 
count field for each record. This value varies according to the record characteristics 
and thus is broken down into three subfields. 

I - Overhead required for a keyed record other than the last record on the track. 
L - Overhead required for a keyed record that is the last record on the track . 
K - Overhead bytes to be subtracted from I or L if the record does not have a key 
field. 

Flag (1 byte) - Further defines unique characteristics of the device . 

bits meaning 

0-5 reserved 

6 CC and HH must be used as 1 -byte values, as in the case of the 

7 2321 . A tolerance factor must be applied to all but the last 
record on the track. 



FIELD 



NAME AND LENGTH 



DESCRIPTION 



Tolerance (2 bytes) -A value that is to be used to determine the effective length of 
the record on the track. The effective length of a record is calculated in the follow- 
ing manner: 

1 . Add the key length to the data length of the record 

2. Test bit 7 in the flag byte: 
a . if 0, go to step 3 

b. multiply value from step 1 by the tolerance factor 
c . shift result 9 bits to the right 

3. Add overhead bytes to the result. 

NOTE: Step 2 is not required if the calculation is for the last record on the track. 

Labels/Track (1 byte) -A count of the number of labels that can be written on each 
track in the VTOC . (Number of full records of 44 -byte key and 96 -byte data 
lengths that can be contained on one track of this device). 

Directory Blocks/Track (1 byte) -A count of the number of directory blocks that can be 
written on each track for an Operating System/360 partitioned data set. (Number of 
full records of 8-byte key and 256 -byte data lengths that can be contained on one 
track of this device). 

The following illustrates the device constants field for the various direct access devices: 
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200 


20616 186 


186 


53 





512 


63 


45 


2302 
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46 


5070 82 


55 


20 
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537 


22 


14 


7320 





400 


2129 111 


43 


14 
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537 
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5 



NOTE: CCHH for the 2321 above are separate 1 byte quantities. 



10. 



11 -14. 



15. 



RESERVED 
29 bytes 

VTOC EXTENT 



RESERVED 
25 bytes 



Reserved . 



These fields describe the extent of the 
VTOC, and are identical in format to 
fields 21 -24 of the Format 1 file label . 
Extent type 01 (prime data area). 

Reserved . 



Figure 47. Standard DASD File Label, Format 4 (Part 2 of 2) 
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Format 5: This format is used for Direct Access Device Space Management (DADSM) only. (Shaded areas are not processed by DOS/360) 



FIELD 
1. 

2. 



3-9 



NAME AND LENGTH 

KEY IDENTIFICATION 

4 bytes 

AVAILABLE EXTENT 

5 bytes 



AVAILABLE EXTENTS IN KEY 



35 bytes 
Note: Format 5 label used by OS/360 only. 



DESCRIPTION 
Each of these four bytes is a hex 05. 



Indicates an extent of space available 
for allocation to a data file. The first 
two bytes are relative track address. 
The next two are the number of full 
cylinders included in the extent. The 
last byte is the number of tracks in 
addition to the cylinders in the extent. 

These fields are identical to Field 2. 
They are in relative track address 
sequence. 



FIELD NAME AND LENGTH 

10. FORMAT IDENTIFIER 

1 byte EBCDIC numeric 

11-28 AVAILABLE EXTENTS 

90 bytes 

29. POINTER TO NEXT FORMAT 5 



DESCRIPTION 
5 = Format 5 



These fields are the same as Field 2. 
There are 26 available extent fields 
in the Format 5 label. 

Contains the address (in the form 
CCHHR) of the next Format 5 file 
label if one exists. 



INDEX 



Indexes to systems reference library 
manuals are consolidated in the publication 
DOS Master Index , GC24-5063. For 
additional information about any subject 
listed below, refer to other publications 
for the same subject in the Master Index. 
For a consolidated index of all the DOS 
LI0CS Volumes, refer to DOS LI PCS Volume 1, 
Introduction , GY24-5020. 



alteration factors 127 
asynchronous processing extensions 

COBOL OPEN/IGNORE 12 

end-of -extent 1 2 

reentrant modules 12 

relative addressing 12,93,127 

track hold function 12 

trailer labels 12 



B-transients (see logical transients) 



capacity record (RO) 100 

CCB (command control block) 396 

CCWS (basic), channel program builder 107 

channel program builder 107 

descriptor byte 108 

detail chart 325 

strings 107 
channel programs 

direct access 113 

sequential DASD 52 
CHECK macro 

SDMODW 68 

SDMODW, detail chart 261 
close routines 

direct access, input/output 134,372 

SDMODFO, no truncation 57 

SDMODFO, no truncation, detail chart 
173 

SDMODFO, truncated 57 

SDMODFO, truncated, detail chart 168 

SDMODFU, no truncation 59 

SDMODFU, no truncation detail chart 
185 

SDMODFU, truncated 59 

SDMODFU, truncated, detail chart 174 

SDMODUO 65 

SDMODUO, detail chart 244 

SDMODVO 62 

SDMODVO, detail chart 213 

SDMODVU 64 

SDMODVU, detail chart 232 

SDMODW 68 

SDMODW, detail chart 260 
close sequential DASD 

all files 77 

FEOVD specified 84 

free track function 83 

free track function detail chart 311 

input and output 83 

input and output, detail chart 308 



CNTRL macro 

DAMOD 103 

DAMOD, detail chart 322 

DAMODV 107 

DAMODV, detail chart 337 

fixed length records 59 

fixed length records, detail chart 
195 

SDMODW 69 

SDMODW, detail chart 267 

undefined records 66 

undefined records, detail chart 256 

variable length records 64 

variable length records, detail chart 
233 
command control block (CCB) 396 
control field, spanned records 96 
control, open output sequential DASD 79 
control, open output sequential DASD, 

detail chart 281 
conversion of relative addresses 94 



DA logic module macros 101 
DAMOD 

channel program builder subroutine 
325 

CNTRL detail chart 322 

CNTRL macro 103 

FREE detail chart 322 

FREE macro 103 

input/output macros 101 

input/output macros, detail chart 
315 

macro 101 

seek overlap subroutine 323 

WAITF detail chart 318 
DAMODV 

channel program builder subroutine 
325 

CNTRL and FREE macros, detail chart 
337 

CNTRL macro 107 

FREE macro 107 

IJIGET subroutine, detail chart 341 

IJISOVP Seek Overlap subroutine, chart 
342 

Input/Output macros 103 

Input/Output macros detail charts 
326 

WAITF macro 107 

WAITF macro, detail charts 338 
DASD 

file protect 15 

file protect, detail chart 135 

label information 400 

label information (SYSRES) 13 

label processing 13 
data security message writer 20 
data security 

indicator 130 



Index 4 1 3 



data security (CONT.) 

message writer, detail chart 152 
delete label , open output sequential DASD 

82 
delete label 

open output sequential DASD detail 
chart 298 
dequeue extent JIBS 84 

detail chart 312 
descriptor bytes , DA channel program 

builder 107 
descriptor words 

block 23 

segment 24 
direct access 

channel program builder strings 109 

charts 315 

files 85 
85 
101 
270 

open input sequential DASD 78 

open input sequential DASD, detail 
chart 271 

open sequential DASD 78 
DSKXTNT table 127 
DTF table initialization, SD open input 

79 
DTF tables 

DTFDA 86 

DTFPH direct access 92 

DTFPH sequential disk 50 

DTFSD data files 35 

DTFSD work files 47 
DTFDA macro 85 
DTFPH macro 

direct access 92 

sequential disk 49 
DTFPH table for sequential disk 50-51 
DTFSD channel programs 52 
DTFSD macro 



method 
module 
DLBL extents 



extents 

console open output sequential 82 
console open output sequential detail 
chart 297 



FEOV, $$B0SDEV, detail chart 313 
FEOVD macro, SDMOD, detail chart 268 
file label 

open output sequential DASD 81 

open output sequential DASD detail 
chart 291 

open work file sequential DASD 82 

open work file sequential DASD detail 
chart 304 

standard DASD 400 
file protect 

DASD 1 5 

DASD detail chart 135 
fixed-length record format (SD) 22 
fixed-length record modules 55 
flowchart symbols 399 
Forced End of Volume, $$BOSDEV, detail 

chart 313 
Format 3 label 

open output DASD detail chart 293 

open output sequential DASD 81 
formatting macro 100 

FREE macro, DAMODV, detail chart 337 
FREE macro 

DAMOD 103 

DAMOD, detail chart 322 

DAMODV 107 

SDMODW 69 

SDMODW, detail chart 267 
free track function 

close sequential DASD 83 

close sequential DASD detail chart 
311 



data files 


34 


work files 


34 


DTFSD tables 




data files 


35-46 


work files 


47-49 



ERET macro 55 , 60, 64 ,66 

ERREXT 56,61,65 

ERROPT 56,61,65 

error/status indicator 96 

extent information to user, DA 133 

extent overlap 

open output sequential DASD 80 
open output sequential DASD chart 
287 

extent to DTF 

open input sequential DASD 78 
open input sequential DASD detail 

chart 274 
open work file sequential DASD 83 
open work file sequential DASD chart 
306 



GET macro 

SDMODFI, 
SDMODFI, 

159 
SDMODFI, 
SDMODFI, 
SDMODFU, 
SDMODFU , 

185 
SDMODFU, 
SDMODFU, 
SDMODUI 
SDMODUI , 
SDMODUU 
SDMODUU , 
SDMODVI 
SDMODVI , 
SDMODVU 
SDMODVU, 



no truncation 56 

no truncation detail chart 

truncated 55 

truncated detail chart 154 

no truncation 59 

no truncation detail chart 

truncated 58 

truncated detail chart 174 

64 
detail chart 234 

66 
detail chart 245 

60 
detail chart 196 

62 
detail chart 215 



ID, reference by (DA) 
IDLOC 94 



93 
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ignore 

open sequential DASD 80 

open sequential DASD, detail chart 
285 
IJIGET subroutine, DAMODV, detail chart 

341 
IJISOVP Seek Overlap subroutine, DAMODV, 

chart 342 
initialization and termination 

direct access 127 

sequential DASD 70 
initialization of DTF table 

SD open input 79 

SD open input detail chart 279 
initialization 

open sequential DASD 77 

open sequential DASD, detail chart 
269 
input/output areas (SD) 25 
Input/Output macros 

DAMOD 101 

DAMODV 103 

DAMODV, detail charts 326 
introduction 1 1 



logical transients (CONT.) 



key, reference by (DA) 



93 



label information ; 

DASD (SYSkES) 13 
label list (cross reference) 
labels, standard DASD file 



375 



Format 1 


401,404 




Format 2 


401,407 




Format 3 


401,409 




Format 4 


401,410 




Format 5 


401,413 




user-standard DASD file 


401 


volume ' 


400,403 






list VTOC 17 








logical transients 






$$BODACL 


134 






$$BODACL, 


detail 


chart 


372 


$$BODAIN 


130 






$$BODAIN, 


detail 


chart 


344 


$$BODAI1 


130 






$$BODAI1, 


detail 


chart 


347 


$$B0DA01 


130 






$$BODA01, 


detail 


chart 


351 


$$BODA02 


131 






$$BODA02, 


detail 


chart . 


355 


$$BODA03 


132 






$$BODA03, 


detail 


chart 


359, 


$$BODA04 


132 






$$BODA04, 


detail 


chart 


363 


$$B0DAU1 


133 






$$B0DAU1, 


detail 


chart 


367 


$$BODQUE 


84 






$$BODQUE, 


detail 


chart 


312 


$$BODSMW 


20 






$$BODSMW, 


detail 


chart 


152 


$$BODSPV 


16 






$$BODSPV, 


detail 


chart 


139 



$$BODSPW 


16 






$$BODSPW, 


detail 


chart 


140 


$$BOFLPT 


15 






$$BOFLPT, 


detail 


chart 


135 


$$B0MSG1 


18 






$$B0MSG1, 


detail 


chart 


147 


$$BOMSG2 


19 






$$BOMSG2, 


detail 


chart 


149 


$$B0SDC1 


83 






$$B0SDC1, 


detail 


chart 


308 


$$BOSDC2 


83 






$$BOSDC2, 


detail 


chart 


311 


$$BOSDEV 


84 






$$BOSDEV, 


detail 


chart 


313 


$$BOSDI1 


78 






$$BOSDI1, 


detail 


chart 


271 


$$B0SDI2 


78 






$$BOSDI2, 


detail 


chart 


274 


$$BOSDI3 


79 






$$BOSDI3, 


detail 


chart 


277 


$$B0SDI4 


79 






$$B0SDI4, 


detail 


chart 


279 


$$B0SD01 


79 






$$BOSD01, 


detail 


chart 


281 


$$BOSD02 


80 






$$BOSD02, 


detail 


chart 


286 


$$BOSD03 


80 






$$BOSD03, 


detail 


chart 


287 


$$BOSD04 


81 






$$BOSD04, 


detail 


chart 


291 


$$BOSD05 


81 






$$BOSD05, 


detail 


chart 


293 


$$BOSD06 


81 






$$BOSD06, 


detail 


chart 


295 


$$B0SD07 


82 






$$BOSD07, 


detail 


chart 


297 


$$B0SD08 


82 






$$BOSD08, 


detail 


chart 


298 


$$B0SDW1 


82 






$$B0SDW1, 


detail 


chart 


301 


$$BOSDW2 


82 






$$BOSDW2, 


detail 


chart 


304 


$$BOSDW3 


83 






$$BOSDW3, 


detail 


chart 


306 


$$BOSD00 


77 






$$BOSD00, 


detail 


chart 


269 


$$BOSD01 


78 






$$BOSD01 , 


detail 


chart 


270 


$$BOSIGN 


80 






$$BOSIGN, 


detail 


chart 


285 


$$BOVDMP 


17 






$$BOVDMP, 


detail 


chart 


143 


$$BOWDMP 


17 






$$BOWDMP, 


detail 


chart 


145 



macros, (see individual macro) 

message codes for disk OPEN error message 

writer 20 
message cross-reference list 387 
message writer data security, detail chart 

152 
message writer disk open 
phase 1 18 
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message writer disk open (CONT.) 

phase 1, detail chart 14 7 

phase 2 19 

phase 2, detail chart 149 
message writer, data security 20 
microfiche cross-reference index 394 
module 

generation macros (sequential DASD) 
55 

save areas (SD) 25 
modules 

direct access 101 

fixed-length records 55 

undefined records 64 

variable-length records 60 

work file 66 
multiple track search 94 



NOTE macro 

SDMODW 68 

SDMODW, detail chart 



266 



347 



open direct access 
input 130 
input detail chart 
input/output 130 
input/output detail chart 
input , output 130 
output, phase 
output , phase 
output, phase 
phase 



344 



1 



130 



1 detail chart 



131 
detail chart 

132 
detail chart 

132 
detail chart 



351 



355 



open sequential DASD (CONT.) 

output, console extent 82 
output, console extent chart 297 
output, control 79 
output, control detail chart 281 
output, delete label 82 
output, delete label detail chart 

298 
output, extent overlap 80 
output, extent overlap chart 287 
output, file label 81 
output, file label detail chart 291 
output, format 3 label 81 
output, format 3 label chart 293 
output, user labels 81 
output, user labels detail chart 

295 
output, volume label 80 
output, volume label detail chart 

286 
workfile, extent to DTF 83 
workfile, extent to DTF chart 306 
workfile, file label 82 
workfile, file label detail chart 

304 
workfile, volume label 82 
workfile, volume label chart 301 
open/close logic 

direct access 127 

sequential access 77 

sequential access general chart 71 



359 



363 



output 

output, phase 

output, phase 

output, phase 

output, phase 

user labels 133 

user labels detail chart 367 
open disk message writer 

phase 1 18 

phase 1 detail chart 147 

phase 2 18 

phase 2 detail chart 149 
open logic direct access general chart 

129 
open sequential DASD 

dequeue extent JIBS 84 

DLBL extents 78 

DLBL extents detail chart 270 

ignore 80 

ignore detail chart 285 

initialization 77 

initialization detail chart 269 

input, DLBL extents 78 

input, DLBL extents detail chart 
271 

input, extent to DTF 78 

input, extent to DTF detail chart 



274 
input, 
input , 



POINTR macro 
SDMODW 
SDMODW, 

POINTS macro 
SDMODW 
SDMODW, 

POINTW macro 
SDMODW 
SDMODW, 

PUT macro 

SDMODFO 
SDMODFO 

169 
SDMODFO 
SDMODFO 
SDMODFU 
SDMODFU 

194 
SDMODFU 
SDMODFU 
SDMODUO 
SDMODUO 
SDMODUU 
SDMODUU 
SDMODVO 
SDMODVO 
SDMODVU 
SDMODVU 



68 
detail chart 266 

69 
detail chart 267 

69 
detail chart 266 

no truncation 57 

no truncation detail chart 

truncated 56 

truncated detail chart 163 

no truncation 59 

no truncation detail chart 



truncated 58 
truncated detail chart 

65 
, detail chart 239 

66 
, detail charts 247 

61 
, detail chart 202 

63 
, detail chart 226 



184 



initialization of DTF 
user labels 79 



279 



input, user labels detail chart 277 



READ ID macro 

DAMOD, detail chart 



315 



v. 
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READ KEY macro 

DAMOD, detail charts 315 
READ macro 

SDMODW 67 

SDMODW, detail charts 257 

SPNUNB records 103 

VARUNB records 103 
reconversion factor 94 
record formats (SD) 

fixed-length records 22 

segmented 24 

spanned records 23 

undefined records 24 

variable-length records 23 
record ID returned (IDLOC) 94 
record zero (R0) 102 
reentrant modules 12 
reference by ID (DA) 93 
reference by KEY (DA) 93 
reference methods and addressing systems 

(DA) 92 
relative addressing conventions 93,127 
RELSE macro 

fixed-length records 60 

fixed-length records, detail chart 
195 

SDMODVI 61 

SDMODVI, detail chart 200 

SDMODVU 64 

SDMODVU, detail chart 232 



save areas 

SDMODFI fixed-length input 26 

SDMODFO fixed-length output 27 

SDMODFU fixed-length input with update 
28 

SDMODUI undefined input 31 

SDMODUO undefined output 31 

SDMODUU undefined input with update 
32 

SDMODVI varible-length input 28 

SDMODVO variable-length output 29 

SDMODVU variable-length output with 
update 30 

SDMODW work files 33 
SD open output subroutines 299 
SDMOD 

FEOVD macro, detail chart 268 
SDMODFI 

no truncation, GET 56 

no truncation, GET detail chart 159 

save area 26 

truncated, GET 55 

truncated, GET detail chart 154 
SDMODFO 

no truncation, close 57 

no truncation, close detail chart 
173 

no truncation, PUT 57 

no truncation, PUT detail chart 169 

save area 27 

truncated, close detail chart 168 

truncated, PUT 56 



SDMODFO (CONT.) 

truncated, PUT detail chart 163 

truncated, TRUNC 57 

truncated, TRUNC detail chart 168 

truncation, close 57 
SDMODFU 

no truncation, close 59 

no truncation, close detail chart 
185 

no truncation, GET 59 

no truncation, GET detail chart 185 

no truncation, PUT 59 

no truncation, PUT detail chart 194 

save area 28 

truncated, close detail chart 174 

truncated, GET 58 

truncated, GET detail chart 174 

truncated, PUT 58 

truncated, PUT detail chart 184 

truncation, close 59 
SDMODUI 

GET 64 

GET, detail chart 234 

save area 31 
SDMODUO 

close 65 

close, detail chart 244 

PUT 65 

PUT, detail chart 239 

save area 31 
SDMODUU 

GET 66 

GET, detail chart 245 

PUT 66 

PUT, detail chart 247 

save area 32 

subroutines 248 
SDMODVI 

GET 60 

GET, detail chart 196 

RELSE 6 1 

RELSE, detail chart 200 

save area 28 
SDMODVO 

close 62 

close, detail chart 213 

PUT 61 

PUT, detail chart 202 

save area 29 

TRUNC 62 

TRUNC, detail chart 214 
SDMODVU 

close 64 

close, detail chart 232 

GET 62 

GET, detail chart 215 

PUT 63 

PUT, detail chart 226 

RELSE 64 

RELSE, detail chart 232 

save area 30 
SDMODW 

CHECK 69 

CHECK, detail chart 261 
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SDMODW (CONT.) 
CLOSE 68 

CLOSE , detail chart 260 
CNTRL 69 

CNTRL, detail chart 267 , 2 67 
FREE 69 

FREE, detail chart 267 
NOTE 68 

NOTE, detail chart 266 
POINTR 68 

POINTR, detail chart 266 
POINTS 69 

POINTS, detail chart 267 
POINTW 69 

POINTW, detail chart 266 
READ 67 

READ, detail chart 257 
READ, WRITE macros, common routine 

259 
save area 33 
WRITE 67 

WRITE, detail chart 258 
SDMODXX macros 

FI no truncation GET 56 

FI no truncation GET detail chart 

159 
FI truncated GET 55 
FI truncated GET detail chart 154 
FO no truncation close 57 
FO no truncation close detail chart 

173 
FO no truncation PUT 57 
FO no truncation PUT detail chart 

169 
FO truncated close 57 
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